How to send an attachement without SMTP ??? 1

[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

 

[ShadowFox333]

I use a version of this script to send email and attachments
hope this helps

Dim ToAddress
Dim FromAddress
Dim MessageSubject
Dim MessageBody
Dim MessageAttachment

Dim ol, ns, newMail

ToAddress = "bob@email.cc"
FromAddress = "bob@email.cc"
MessageSubject = "New Reader Service Leads"
MessageBody = "Here are your leads for 08-12-02"
MessageAttachment = "c:\folder\a0210.eml"

' connect to Outlook
Set ol = WScript.CreateObject("Outlook.Application&quot
Set ns = ol.getNamespace("MAPI&quot

Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody & vbCrLf

' validate the recipient, just in case...
' Set myRecipient = ns.CreateRecipient(ToAddress)
' myRecipient.Resolve
' If Not myRecipient.Resolved Then
' MsgBox "Unknown recipient"
' Else
newMail.RecipIents.Add(ToAddress)
newMail.Attachments.Add(MessageAttachment)
' newMail.Attachments.Add(MessageAttachment)
newMail.Send
' End If

Set ol = Nothing