Can not send mail using smtp.gmail.com, port 587 from vbs script

by

Gmail users can access their account on the official website or by using first-party or third-party apps and services instead. A first party app is for instance Google’s official Gmail app for Android, while Thunderbird and the mail client app of Windows 8 are third-party apps.

Google announced back in April 2014 that it would improve the sign-in security of its services and affect any application sending usernames and passwords to the company.

The company suggested to switch to OAuth 2.0 back then but did not enforce it up until now.

If you open the new less secure apps page under security settings on Google, you will notice that Google has disabled access by default.

Note: You see the page only if you are not using Google Apps or have enabled two-factor authentication for the account.

You can flip the switch here to enable less secure applications again so that access is regained.

enter image description here

Another thing the port used is 465 and not 587
So you can try out this vbscript that works for me using the port 465

EmailSubject = "Sending Email by CDO"
EmailBody = "This is the body of a message sent via" & vbCRLF & _
        "a CDO.Message object using SMTP authentication ,with port 465."

Const EmailFrom = "[email protected]"
Const EmailFromName = "My Very Own Name"
Const EmailTo = "[email protected]"
Const SMTPServer = "smtp.gmail.com"
Const SMTPLogon = "[email protected]"
Const SMTPPassword = "gMaIlPaSsWoRd"
Const SMTPSSL = True
Const SMTPPort = 465

Const cdoSendUsingPickup = 1    'Send message using local SMTP service pickup directory.
Const cdoSendUsingPort = 2  'Send the message using SMTP over TCP/IP networking.

Const cdoAnonymous = 0  ' No authentication
Const cdoBasic = 1  ' BASIC clear text authentication
Const cdoNTLM = 2   ' NTLM, Microsoft proprietary authentication

' First, create the message

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = EmailSubject
objMessage.From = """" & EmailFromName & """ <" & EmailFrom & ">"
objMessage.To = EmailTo
objMessage.TextBody = EmailBody

' Second, configure the server

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

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPLogon

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPPassword

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = SMTPSSL

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update
'Now send the message!
On Error Resume Next
objMessage.Send

If Err.Number <> 0 Then
    MsgBox Err.Description,16,"Error Sending Mail"
Else 
    MsgBox "Mail was successfully sent !",64,"Information"
End If

More Related Contents:

  1. About using Double quotes in Vbscript
  2. Can I pass an argument to a VBScript (vbs file launched with cscript)?
  3. Getting current directory in VBScript
  4. Read and write binary file in VBscript
  5. Read and write into a file using VBScript
  6. Creating multi-select list box in VBScript [closed]
  7. Does VBScript allow named arguments in function calls?
  8. Launch programs whose path contains spaces
  9. Parameterized query in Classic Asp
  10. How do I sort arrays using vbscript?
  11. Access network share from within VBScript eg FileSystemObject
  12. ByRef and ByVal in VBScript
  13. Lists in VBScript
  14. Order of Files collection in FileSystemObject
  15. VBScript: What is the simplest way to format a string?
  16. How can I use Clipboard in vbscript? [duplicate]
  17. Find my own process ID in VBScript
  18. Passing-variable-from-vbscript-to-batch-file with arguments
  19. Can I pick up environment variables in vbscript WSH script?
  20. VBscript relative path
  21. Passing Parameters to a Stored Procedure using ASP
  22. How can I show a message box with two buttons?
  23. WScript.Shell.Exec – read output from stdout
  24. How to use GetObject in VBScript
  25. How can I convert a VBScript to an executable (EXE) file? [closed]
  26. Vbscript list all PDF files in folder and subfolders
  27. MSGbox in VBS that updates with value of variable
  28. How can I use the common Save As dialog from VBScript?
  29. Create a folder in Outlook: error 800A0401 – Expected End of Statement
  30. VBscript error input past end of file

Leave a Comment