none
Problem using gmail from excel RRS feed

  • Question

  • using the below code. works for 5 out of 6 users. I think the code is okay. any thoughts on what might be causing problem?

    thanks

    Private Sub gmailexcel2()
     
     On Error GoTo ERR17
     
    Dim Mail As New MESSAGE
    Dim Config As Configuration
    Set Config = Mail.Configuration
    Config(cdoSendUsingMethod) = cdoSendUsingPort
    Config(cdoSMTPServer) = "smtp.gmail.com"
    Config(cdoSMTPServerPort) = 465 '25
    Config(cdoSMTPAuthenticate) = cdoBasic
    Config(cdoSMTPUseSSL) = True
    Config(cdoSendUserName) = "*****@gmail.com"
    Config(cdoSendPassword) = "*******"
    Config.Fields.UPDATE
    Mail.To = "*************"
    Mail.From = Config(cdoSendUserName)
    Mail.Subject = Range("A622") & " " & Range("AA1") & Range("U1") & " File Started"
    Mail.TextBody = "New File Started - Please Do An Estimate"
    Mail.Send
    MsgBox "EMAIL SENT TO ESTIMATOR"
    TextBox104 = ""
    Exit Sub

    ERR17:
    MsgBox "EMAIL FAILED...TRY AGAIN LATER"
    Exit Sub
    End Sub

    Wednesday, September 11, 2019 7:45 PM