View Single Post
Old 07-25-2003, 09:49 PM
jarrodsinclair jarrodsinclair is online now
Registered User
Join Date: 07-25-2003
Location: San Jose, CA (moved from Tucson, AZ in 07/03)
Posts: 5
Send a message via AIM to jarrodsinclair Send a message via Yahoo to jarrodsinclair
Another cool way to send e-mail using CDOSYS objects

here is another way to add attachments and send status of the build when complete:
' send by connecting to port 25 of the SMTP server
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost

Const cdoSendUsingPort = 2
StrSmartHost = "exchange"

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

' set the CDOSYS configuration fields to use port 25 on the SMTP server

With Flds
.Item("") = cdoSendUsingPort
.Item("") = strSmartHost
.Item("") = 10
End With

' build HTML for message body
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "At %DATETIME%, the build of %ProjectName% (%BUILDNUM%) on %COMPUTERNAME% completed successfully.</br>"
strHTML = strHTML & "The Build started at %STARTTIME%.</br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

' apply the settings to the message
With iMsg
Set .Configuration = iConf
.To = "%DistributionList%"
.From = ""
.Subject = "Build Succeeded"
.HTMLBody = strHTML
'you and create a loop here and add as many attachment as you would like
.AddAttachment "C:\Program Files\VisBuildPro\VisBuildPro.log"
End With

' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Reply With Quote