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.
