Dear you can use CDONTS for this
Dim MyBody2
Dim MyCDONTSMail3
Set MyCDONTSMail3 = CreateObject("CDONTS.NewMail")
MyCDONTSMail3.From= "
[email protected]"
MyCDONTSMail3.To= "
[email protected]"
MyCDONTSMail3.Cc="
[email protected]"
MyCDONTSMail3.Subject="This is a Test"
MyCDONTSMail3.AttachFile Server.MapPath("/somedirectory/bla.txt")
' or you could specify the path exactly if you knew it like below
'MyCDONTSMail3.AttachFile ("C:\inetpub\wwwroot\somedirectory\bla.txt")
MyBody2 = "Thank you for ordering that stuff" & vbCrLf
MyBody2 = MyBody2 & "We appreciate your business" & vbCrLf
MyBody2 = MyBody2 & "Your stuff will arrive within 7 business days"
MyCDONTSMail3.Body= MyBody2
MyCDONTSMail3.Send
set MyCDONTSMail3=nothing
Numan
--------------------------------------------------
Love is the most precious thing of this world. So find and grab it!
Send Emails and Attachments.
