Hi, Check this link..
http://www.automationrepository.com/2011/11/how-to-send-emails-using-qtp-from-gmail-and-yahoo/ * cheers, a n i s h [QTP Framework Tutorials]<http://www.automationrepository.com/2012/03/qtp-framework-types-an-introduction/>| [QTP Blogs] <http://www.automationrepository.com/qtp-blogs/> ** [Subscribe to get new posts in your Inbox]<http://feedburner.google.com/fb/a/mailverify?uri=automationrepository/feeds> * On Fri, Sep 13, 2013 at 6:22 AM, Wajahat Awan <[email protected]>wrote: > When i use the below code it doesn't open gmail.com > even if i put system to open gmail.com. It doesn't enter username and > password and sign me in. > > Systemutil.run "Iexplore","www.gmail.com" > > > Function fSendResultEmail() > > Set TestMail=CreateObject("CDO.Message") > TestMail.Configuration.Fields.Item(" > http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True > TestMail.Configuration.Fields.Item(" > http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 > TestMail.Configuration.Fields.Item (" > http://schemas.microsoft.com/cdo/configuration/smtpserver")=" > smtp.gmail.com" > TestMail.Configuration.Fields.Item (" > http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 > TestMail.Configuration.Fields.Item (" > http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 > 'Specify user id and password > TestMail.Configuration.Fields.Item(" > http://schemas.microsoft.com/cdo/configuration/sendusername") = " > [email protected]" > TestMail.Configuration.Fields.Item(" > http://schemas.microsoft.com/cdo/configuration/sendpassword") = > "**********" > 'Update the configuration fields > TestMail.Configuration.Fields.Update > > 'Specify email properties > TestMail.Subject = "Sending Email from QTP" > TestMail.From = "[email protected]" > TestMail.To = "[email protected]" > TestMail.CC = "" > TestMail.BCC = "" > TestMail.TextBody = "This is the Text Body" > TestMail.Send > > Set TestMail = Nothing > > End Function > > -- > -- > You received this message because you are subscribed to the Google > "QTP - HP Quick Test Professional - Automated Software Testing" > group. > To post to this group, send email to [email protected] > To unsubscribe from this group, send email to > [email protected] > For more options, visit this group at > http://groups.google.com/group/MercuryQTP?hl=en > > --- > You received this message because you are subscribed to the Google Groups > "QTP - HP Quick Test Professional - Automated Software Testing" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to [email protected]. > For more options, visit https://groups.google.com/groups/opt_out. > -- Regards, Anish Pillai My QTP Blog <http://automationrepository.blogspot.com> -- -- You received this message because you are subscribed to the Google "QTP - HP Quick Test Professional - Automated Software Testing" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/MercuryQTP?hl=en --- You received this message because you are subscribed to the Google Groups "QTP - HP Quick Test Professional - Automated Software Testing" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/groups/opt_out.
