Mail attachment 1

[glenmac]

Hi I borowed this code from a post here. I'd like to add an attachment to the emails sent, Does anyone know if this is possible and if so what the syntax is?

Dim Users(2)
Users(0) = "Fred@test.com"
Users(1) = "Bob@test.com"
Users(2) = "Pete@test.com"

For i = 0 to 2
  Set objOutlk = createobject("Outlook.Application")
  Set objMail = objOutlk.createitem(0)
  objMail.To = Users(i)
  objMail.subject = MailSubject
  objMail.body = MailBody
  objMail.send
Next

 

[hithere]

looks like you're using CDONTS so try this:
<%
mail.AttachFile server.MapPath(&quot;attachedfile.asp&quot 'You must use the exact server path.
%>
&quot;Where's the Ka-Boom? There's supposed to be an Earth-shattering Ka-Boom!&quot;
Marvin the Martian

 

[glenmac]

No I'm not using CDONTS. I'm calling Outlook.
&quot;&quot;Set objOutlk = createobject(&quot;Outlook.Application&quot&quot;&quot;
I've tried .Attachfile and it gives me &quot;object doesn't support this property or method objMail.attachFile&quot;

 

[hithere]

OOPS! Sorry 'bout that, try this:


'To add an attachment, use:
'objMail.attachments.add(&quot;C:\MyAttachmentFile.txt&quot
objMail.body = strMsg
objMail.display 'Use this To display before sending, otherwise call objMail.Send to send without reviewing &quot;Where's the Ka-Boom? There's supposed to be an Earth-shattering Ka-Boom!&quot;
Marvin the Martian

 

[glenmac]

Thanks hithere worked great!! Star for you.