rag84dec
04-08-2008, 03:46 AM
Hi i am using the folllowing code to send a simple mail but it is failing i mean it is not sending any mail.I have SMTP installed on my machine...
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Subject"
objMessage.Sender = "some@gmail.com"
objMessage.To = "some@gmail.com"
objMessage.TextBody = "e-mail message"
objMessage.Send
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Subject"
objMessage.Sender = "some@gmail.com"
objMessage.To = "some@gmail.com"
objMessage.TextBody = "e-mail message"
objMessage.Send