Send an Email message using CDOSYS and Google Apps mail servers

Dim ObjSendMail

Set ObjSendMail = CreateObject("CDO.Message") 

     

'This section provides the configuration information for the remote SMTP server.

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.yoursite.com"

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' or 587

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

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

     

' Google apps mail servers require outgoing authentication. Use a valid email address and password registered with Google Apps.

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="somemail@yourserver.com" 'your Google apps mailbox address

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword" 'Google apps password for that mailbox

     

ObjSendMail.Configuration.Fields.Update

     

ObjSendMail.To = "someone@someone.net"

ObjSendMail.Subject = "this is the subject"

ObjSendMail.From = "someone@someone.net"

     

' we are sending a text email.. simply switch the comments around to send an html email instead

'ObjSendMail.HTMLBody = "this is the body"

ObjSendMail.TextBody = "this is the body"

     

ObjSendMail.Send

     

Set ObjSendMail = Nothing