View Single Post
  #1  
Old November 8th 06, 02:25 PM posted to microsoft.public.outlook.contacts
safs
external usenet poster
 
Posts: 17
Default Error in mail Attachment

When i am trying to send mail My Attachment file look like file.bin can
any one say the ression

dim commnet,file1,Msg,attachment,f,f1
comment=request.Form("comtxt")
file1=request.Form ("Fileup")

f1="http://www.icmsolutions.co.in/Attachment/whitepapper.pdf"


Dim ObjSendMail

Set ObjSendMail = CreateObject("CDO.Message")

ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send
the message using the network (SMTP over the network).'
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserver")
="smtp.net4india.com"
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = "
ObjSendMail.AddAttachment file1
ObjSendMail.Subject = "This is From Career Page in ICMSOLUTIONS"
'****You have to give the Email id which exiest in the same Domain'
ObjSendMail.From = "
ObjSendMail.HtmlBody = HTML1
ObjSendMail.Send
set ObjSendMail= nothing

Ads