Email Issue

[keerthika]

Hi All,

Can any one pls suggest any idea for the below error

Error : The server rejected the sender address. The server response was: 530 5.7.0 Must issue a STARTTLS command first. x10-v6sm2314716qts.27 - gsmtp

Sub SendGMail()

Set objMsg = CreateObject("CDO.Message")

Set msgConf = CreateObject("CDO.Configuration")

'Server Configuration

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusetssl") = true

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/StartTSL") = true

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "**********@gmail.com"

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "**************"

msgConf.Fields.Update

'End With

objMsg.To = "******@gmail.com" ' type to mail id

objMsg.From = "********@gmail.com" 'type from mail id

objMsg.Subject = "Test mail"

objMsg.HTMLBody = "QlikView Test Mail"

objMsg.Sender = "Mr. Name"

Set objMsg.Configuration = msgConf

' Send

objMsg.Send

Msgbox("Email Sent Successfully")

' Clear

Set objMsg = nothing

Set msgConf = nothing

End Sub

Thanks in advance

[Miguel_Angel_Baeyens]

You keep opening threads about the same issue. You must talk to your Google Account Administrator to let you connect via external programs (i.e.: not using the browser or native Google apps).

Google SMTP server will reject any request if you are not properly authorized and this is not an issue in QlikView.

[Frank_Hartmann]

did you try using Port 465 instead of 587?