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... Code: 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