mail attachement from Global Variable

[sedgely]

i have a task that creates and populates a text file, the text file. i then use an activeX taask to copy and rename the file from using a global variable and yesterdays date as the file name.
i now want to email the file as an attachment, but because the file name is different each day, i'm not sure how to achieve this, can anyone suggest a solution.

Thanks

Cheers, Craig
Si fractum non sit, noli id reficere

 

[unclerico]

Function Main()
Dim objMessage
Dim myMail

Set myMail=CreateObject("CDO.Message")

myMail.Subject="subject text"
myMail.From="emailaddress@company.com"
myMail.To="recipient1@company.com;recipient2@company.com"
myMail.TextBody="body text"
myMail.AddAttachment "C:\" & DTSGlobalVariables("variable").Value & DateAdd(d,-1,Now()) & ".txt"
myMail.Configuration.Fields.Item _
("

http://schemas.microsoft.com/cdo/configuration/sendusing")=2

'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

_
="MN02SE01.atk.com"
'Server port
myMail.Configuration.Fields.Item _
("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

_
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

Main = DTSTaskExecResult_Success
End Function

 

[unclerico]

oops, forgot to change the smtp server value...chagne the following:

myMail.Configuration.Fields.Item _
        ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] _
        =[s]"MN02SE01.atk.com"[/s] "YourSMTPServerNameOrIPAddress"