1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
'Const MailServerName = "smarthost.dns.microsoft.com"
Const MailServerName = "mail.icecomputing.com"
Const SMTPTimeout = 10
Const FromAddress = """Siggi"" <siggi@icecomputing.com>"
Const ToAddress = """Siggi Bjarnason"" <siggib@icecomputing.com>"
Const CCAddress = ""'"2062951027@mobile.att.net"
Const Subject = "Hows it going?"
Const MsgBody = "This is the body of the message"
Const cdoSendUsingPort = 2
Const cdoBasic = 1
mysendmail subject,msgbody
Sub MySendMail(StrSubject,msg)
Dim iMsg,iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MailServerName
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = SMTPTimeout
.Item("http://schemas.microsoft.com/cdo/configuration/cdoSendEmailAddress") = """User"" <example@icecomputing.com>"
.Item("http://schemas.microsoft.com/cdo/configuration/cdoSMTPAuthenticate") = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/cdoSendUserName") = "siggi@icecomputing.com"
.Item("http://schemas.microsoft.com/cdo/configuration/cdoSendPassword") = "foxriver"
.Update
End With
With iMsg
Set .Configuration = iConf
.To = ToAddress
.CC = CCAddress
.From = FromAddress
.Subject = StrSubject
.textbody = Msg
'.HTMLBody = msg
'.CreateMHTMLBody "http://ihsi"
.Send
End With
End Sub
|