vBNAzh3w

1Dim emailObj
2Set emailObj = CreateObject("CDO.Message")
3
4emailObj.From     = "******@gmail.com"
5emailObj.To       = "******@gmail.com"
6
7emailObj.Subject  = "Test Email"
8emailObj.TextBody = "Testing Email Functionality"
9
10Set emailConfig = emailObj.Configuration
11
12emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")            = "smtp.gmail.com"
13emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")        = 465
14emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")             = 2
15emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")      = 1
16emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
17emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")            = true
18
19'First Account
20emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")          = "******@gmail.com"
21emailConfig.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
27emailConfig.Fields.Update
28emailObj.Send
29
30If err.number = 0 Then
31    Msgbox "Done"
32Else
33    Msgbox err
34End If