yH0hEa2K

1
2
3Set emailObj      = CreateObject("CDO.Message")
4
5emailObj.From     = "jarodmar@"
6emailObj.To       = "jarodmar@"
7
8emailObj.Subject  = "Test CDO"
9emailObj.TextBody = "Test CDO"
10
11Set emailConfig = emailObj.Configuration
12
13emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
14emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
15emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")    = 2  
16emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  
17emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      = true 
18emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")    = ""
19emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = ""
20
21emailConfig.Fields.Update
22
23emailObj.Send
24
25If err.number = 0 then Msgbox "Done"
26
27-------------------------------------------------------------------------------------------------------------------------
28
29'Create the objects require for sending email using CDO
30Set objMail = CreateObject("CDO.Message")
31Set objConf = CreateObject("CDO.Configuration")
32Set objFlds = objConf.Fields
33
34'Set various parameters and properties of CDO object
35objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
36'your smtp server domain or IP address goes here such as smtp.yourdomain.com
37objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yourdomain.com" 
38objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'default port for email
39'uncomment next three lines if you need to use SMTP Authorization
40'objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your-username"
41'objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your-password"
42'objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'cdoBasic
43objFlds.Update
44objMail.Configuration = objConf
45objMail.From = "fromEmailAddress@yourdomain.com"
46objMail.To = "toEmailAddress@yourdomain.com"
47objMail.Subject = "Put your email's subject line here"
48objMail.TextBody = "Your email body content goes here"
49objMail.Send
50
51'Set all objects to nothing after sending the email
52Set objFlds = Nothing
53Set objConf = Nothing
54Set objMail = Nothing
55
56-------------------------------------------------------------------------------------------------------------------------
57 
58Sub SendEmail(ToAddress, Subject, Text)
59    Dim iMsg 
60    Dim iConf
61    Dim Flds
62 
63    Set iMsg = CreateObject("CDO.Message")
64    Set iConf = CreateObject("CDO.Configuration")
65 
66    iConf.Load -1
67    Set Flds = iConf.Fields
68    
69    With Flds
70        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
71        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
72        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "gmail account"
73        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "gmail password"
74        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'smtp mail server
75        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
76        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'stmp server
77        .Update
78    End With
79 
80    With iMsg
81        Set .Configuration = iConf
82        .To = ToAddress
83        .From = "dr.zhihua.lai at gmail.com"
84        .Subject = Subject
85        .TextBody = Text
86        .Send
87    End With
88 
89    Set iMsg = Nothing
90    Set iConf = Nothing
91End Sub
92 
93If WScript.Arguments.Count <> 3 Then
94    WScript.Echo "Usage: cscript.exe " & WScript.ScriptFullName & " email subject text"
95Else 
96    SendEmail WScript.Arguments(0), WScript.Arguments(1), WScript.Arguments(2)
97End If
98
99-------------------------------------------------------------------------------------------------------------------------
100
101    Dim objMessage, objConfig, Fields
102    Set objMessage = CreateObject("CDO.Message") 
103    Set objConfig = CreateObject("CDO.Configuration")
104    Set Fields = objConfig.Fields
105    With Fields
106      .Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
107      .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
108      .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
109      .Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
110      .Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username@office365.com"
111      .Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Office365Password"
112      '.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
113      .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
114      .Update
115    End With
116    Set objMessage.Configuration = objConfig
117    With objMessage
118      .Subject = "Test Message"
119      .From = "username@office365.com"
120      .To = "someone@somedomain.com"
121      .HTMLBody = "Test Mesage"
122    end With
123    objMessage.Send