html in email and attachment

jarrodsinclair · #5 03-04-2004, 10:23 AM

I also had simular problems so I just wrote my own e-mail step. I use it for completion and error e-mails. if you select only from '<step' to '</step>' then go to build pro and click past it will create the step for you. Hope this helps

<step action='Run Script' type='0'>
<Language>VBScript</Language>
<Script><![CDATA[' send by connecting to port 25 of the SMTP server
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost

Const cdoSendUsingPort = 2
StrSmartHost = "exchange2"

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("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
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 = "%FromEmail%"
.Subject = "Build Succeeded"
.HTMLBody = strHTML
.AddAttachment "%TEMP%\%PROJROOT%.html"
.Send
End With

' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing]]></Script>
<indent type='3'>1</indent>
<name>Send Mail</name>
</step>