Guest User

Untitled

a guest
Nov 30th, 2017
488
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.41 KB | None | 0 0
  1. Dim emailObj
  2. Set emailObj = CreateObject("CDO.Message")
  3.  
  4. emailObj.From = "******@gmail.com"
  5. emailObj.To = "******@gmail.com"
  6.  
  7. emailObj.Subject = "Test Email"
  8. emailObj.TextBody = "Testing Email Functionality"
  9.  
  10. Set emailConfig = emailObj.Configuration
  11.  
  12. emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
  13. emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
  14. emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  15. emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  16. emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
  17. emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
  18.  
  19. 'First Account
  20. emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******@gmail.com"
  21. emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "************"
  22.  
  23. 'Second Account
  24. 'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******@gmail.com"
  25. 'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""************""
  26.  
  27. emailConfig.Fields.Update
  28. emailObj.Send
  29.  
  30. If err.number = 0 Then
  31. Msgbox "Done"
  32. Else
  33. Msgbox err
  34. End If
Add Comment
Please, Sign In to add comment