Dynamic Email Attachments
 

Hi all

I am trying to find a way to add files dynamically into the "Attachments" section of a "Send Mail" item.

So far it appears that you have to hard code the path and filename one line at a time, but I would like to use wildcards or some other way to attach files dynamically at build time.

Would appreciate any assistance on this..

thanks

re: Dynamic Email Attachments
 

Here is a sample (using a Process Files step and a temporary macro) that should achieve what you want. Just replace the file criteria with the files you want to attach, and copy these steps into your build.

Kevin

A general hint here David, if it is a text field in VBP you can use a macro expansion (macro name inside %%) or script (inside []) to generate its contents. Note too that you can expand macros inside the script, for example to pass parameters to a function call.

This makes VBP extremely powerful as pretty much all option information can be generated at execution time and can come from anywhere.

Peter

Thanks
 

Excellent help and support, thanks very much for that, it will solve the problem...

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:
VBSCRIPT CODE:
' 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("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 = ""
strHTML = strHTML & ""
strHTML = strHTML & ""
strHTML = strHTML & "At %DATETIME%, the build of %ProjectName% (%BUILDNUM%) on %COMPUTERNAME% completed successfully.
"
strHTML = strHTML & "The Build started at %STARTTIME%.
"
strHTML = strHTML & ""
strHTML = strHTML & ""

' apply the settings to the message
With iMsg
Set .Configuration = iConf
.To = "%DistributionList%"
.From = "person@company.com"
.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"
.Send
End With

' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing