Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim emailObj
- Set emailObj = CreateObject("CDO.Message")
- emailObj.From = "******@gmail.com"
- emailObj.To = "******@gmail.com"
- emailObj.Subject = "Test Email"
- emailObj.TextBody = "Testing Email Functionality"
- Set emailConfig = emailObj.Configuration
- emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
- emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
- emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
- emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
- emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
- emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
- 'First Account
- emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******@gmail.com"
- emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "************"
- 'Second Account
- 'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******@gmail.com"
- 'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""************""
- emailConfig.Fields.Update
- emailObj.Send
- If err.number = 0 Then
- Msgbox "Done"
- Else
- Msgbox err
- End If
Add Comment
Please, Sign In to add comment