Email Attachment

[falinskip]

Hi there,

I can't seem to get this code to work, Does anyone know how to send an email attachment without using smtp?

Thanks,

Paul


Set objEmail = CreateObject("CDO.Message&quot
objEmail.From = "testsrv@co.oakland.mi.us"
objEmail.To = "user@co.oakland.mi.us"
objEmail.Subject = "testsrv Server down"
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
("

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

= 2
objEmail.Configuration.Fields.Item _
("

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

= _
"emailbox.co.oakland.mi.us"
objEmail.Configuration.Fields.Item _
("

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

= 25

'*************************************8
Set objAttachment = objMessage.Attachments.Add("Attached File", , _
MsgFileData,"c:\data\Weekly.xls&quot

Set objAttachment = objMessage.Attachments.Add("Linked File", , _
MsgFileLink, "\\odin\xldata\Weekly.xls&quot

Set objAttachment = objMessage.Attachments.Add("Embedded File", , _
MsgOLE, "c:\data\Weekly.xls&quot
'objMessage.Update
'objMessage.Send

objEmail.Configuration.Fields.Update
objEmail.Send

 

[cornboy88]

Here are a few links that might help you out.

http://www.cdolive.com/cdo5.htm#AddAttachment

http://www.dotnet101.com/articles/art004_aspnetemail.asp

http://wdvl.com/Authoring/ASP/FormHandling/cdonts_techniques.html

cornboy88

 

[jonscott8]

First, where did the variable objMessage come from?

Next, where did you define (or initialize if they're variables) the constants MsgFileData, MsgFileLink, and MsgOLE? Jon Hawkins