Sending emails from QTP - Printable Version

Sending emails from QTP - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: Sending emails from QTP (/Thread-Sending-emails-from-QTP)

Sending emails from QTP - AkhilaV - 06-19-2012

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

RE: Sending emails from QTP - sshukla12 - 06-20-2012

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

RE: Sending emails from QTP - AkhilaV - 06-20-2012

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

RE: Sending emails from QTP - sshukla12 - 06-21-2012

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

RE: Sending emails from QTP - ssvali - 06-21-2012

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

RE: Sending emails from QTP - QTPScript - 08-29-2012

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.