Simple sending mail fails

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

Code (markup):

 

Do you get any error message when performing the script? If not, are you sure that the SMTP server you send through accepts the request?

 

You can also try:

Dim SendResultsTo As String = "some@gmail.com"
Dim FromEmail As String ="some@gmail.com"
Dim smtpMailServer As String = "xxxx.yoursmtpserver.com"
Dim smtpUsername As String = "mail@xyz.com"
Dim smtpPassword As String = "XXXX"
Dim MailSubject As String = "Subject"
Dim MessageBody As String ="e-mail message"
Dim myMessage As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage()
myMessage.To.Add(SendResultsTo)
myMessage.From = New System.Net.Mail.MailAddress(FromEmail)
myMessage.Subject = MailSubject
myMessage.Body = MessageBody
myMessage.IsBodyHtml = False

Dim basicAuthenticationInfo As New System.Net.NetworkCredential(smtpUsername, smtpPassword)
Dim MailObj As New System.Net.Mail.SmtpClient(smtpMailServer)
MailObj.Credentials = basicAuthenticationInfo
MailObj.Send(myMessage)

 

I'm pretty sure that it's "From", not "Sender". Try this:

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Subject"
objMessage.From = "some@gmail.com"
objMessage.To = "some@gmail.com"
objMessage.TextBody = "e-mail message"
objMessage.Send
Set objMessage = Nothing

Code (markup):