Sending emails from QTP

[AkhilaV]

Hi,

I am trying to send an email from QTP. I called the following function and it displayed an error "The transport failed to connect to the server" when oMessage.Send is called.

Can anyone help me in finding the solution for this

SendCDOMessage "mymail@mail.com", "mymail@mail.com","Hi","Hi this a mail from QTP"

Code:

'''=================================================================
' Function SendCDOMessage
'''=================================================================
' Description:
' Sends an email message using Microsoft's CDO.Message object
' Parameters:
' Return value: True if succeeded, False otherwise

Public Function SendCDOMessage(EmailTo, EmailFrom, EmailSubject, MessageBody)

    Dim oMessage
    Set oMessage = CreateObject("CDO.Message")
'     Set message details
    oMessage.Subject = EmailSubject
    oMessage.From = EmailFrom
    oMessage.To = EmailTo
    oMessage.AutoGenerateTextBody = True
    oMessage.HTMLBody = MessageBody
'     Set configuration
    oMessage.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") =  "smtp.gmail.com"
    oMessage.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") =2
    oMessage.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=465
    oMessage.Configuration.Fields.Update
'     Send the message
    oMessage.Send
    MsgBox Err.Number
    If Err.Number <> 0 Then
        SendCDOMessage = False
    Else
        SendCDOMessage = True
    End If
    Set oMessage = Nothing

End Function

[sshukla12]

Hi,

I had used Outlook to send the mail.Use the below code for reference if its useful 2 u:

Code:

call sendmail("sshukla12@gmail.com","Test Mail","This is a test mail")


Function sendmail(mailto,subject,body)
   Set oMailobj=CreateObject("Outlook.Application")
   Set oSendmailobj=oMailobj.CreateItem(0)
   oSendmailobj.To=mailto
   oSendmailobj.Subject=subject
   oSendmailobj.Body=body
   oSendmailobj.Send
   Set oMailobj=Nothing
   Set oSendmailobj=Nothing
End Function

Regards,
Sankalp

[AkhilaV]

Hi Sankalp,

Thanks for your reply.

It is working fine when I am using CreateObject("Outlook.Application"). But when I use CreateObject("CDO.Message") same error "The transport failed to connect to the server" is displayed when oMessage.Send is called.

Do I need to make any settings in my machine when using CreateObject("CDO.Message")?
Do we need to set up Outlook for this to work?

Thanks,
Akhila V

[sshukla12]

Hi Akhila,

I had not used CDO.message, ya but for the code that i suggested u have 2 use outlook...let me have a look on CDO.message and then only I can reply 2 u on that. Till then any memeber in forum who have idea over this might help u.

Regards,
Sankalp

[ssvali]

Try this...

Code:

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="from mail address"
myMail.To="to mail address"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

[QTPScript]

Hello

Please make sure SMTP server is setup perfectly . If you are using Windows 7 then i am sure it will problem. Just setup SMTP correctly. it will work. this is standard code for all the email using SMTP. it is working correctly at my end.

Google search term " SMTP configuration windows 7" or replace windows 7 with your operating system.