Hi AllI am trying to send an email with an attachment using the script which in present in smartbear support artical, but the amils are not getting sent atall. The script executes successfully but no emails are getting sent.Please find the script below. http://smartbear.com/support/viewarticle/9020/Function SendEmail(mFrom, mTo, mSubject, mBody, mAttachment) Dim smtpServer, portNumber, userName, userPassword Dim useAutentification, useSSL, connectionTimeout Dim schema, mConfig, mMessage smtpServer = "smtp.gmail.com" smtpPort = 465 userLogin = "XYZ@gmail.com" ' e.g. abc@gmail.com userPassword = "Password" autentificationType = 1 ' cdoBasic connectionTimeout = 30 ' Required by GMail useSSL = True Err.Clear() On Error Resume Next schema = "http://schemas.microsoft.com/cdo/configuration/" Set mConfig = Sys.OleObject("CDO.Configuration") mConfig.Fields.Item(schema & "sendusing") = 2 ' cdoSendUsingPort mConfig.Fields.Item(schema & "smtpserver") = smtpServer mConfig.Fields.Item(schema & "smtpserverport") = smtpPort mConfig.Fields.Item(schema & "sendusername") = userLogin mConfig.Fields.Item(schema & "sendpassword") = userPassword mConfig.Fields.Item(schema & "smtpauthenticate") = autentificationType mConfig.Fields.Item(schema & "smtpusessl") = useSSL mConfig.Fields.Item(schema & "smtpconnectiontimeout") = connectionTimeout mConfig.Fields.Update() Set mMessage = Sys.OleObject("CDO.Message") Set mMessage.Configuration = mConfig mMessage.From = mFrom mMessage.To = mTo mMessage.Subject = mSubject mMessage.HTMLBody = mBody If 0 < Len(mAttachment) Then mMessage.AddAttachment(mAttachment) End If mMessage.Send() If Err.Number > 0 Then Call Log.Error("E-mail cannot be sent", Err.Description) SendEMail = False Err.Clear() Else Log.Message("Message to <" & mTo & "> was successfully sent") SendEMail = True End IfEnd FunctionWith RegardsNikhil C. Indurkar

Can someone please reply to this topic and help me on this. It is very urgent for me

I never got this to work when I tried it unless I used a non-secure smtp port (which was ok, we were only sending out generic emails and nothing confidential at all).Here is the code from my module that is functional.Sub semail(from, towhom, subject, text) if from = "" then from = """qa dept"" <qa@DO-NOT-REPLY.com>" if towhom = "" then towhom = Project.Variables.sdEmailTo if subject = "" then subject = "No subject specified." if text = "" then text = "No text specified." Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Set objMessage = CreateObject("CDO.Message") objMessage.Subject = subject objMessage.From = from objMessage.To = towhom objMessage.TextBody = text objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxxxxxxxxxx.com" objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "qa@xxxxxxxxx.com" objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxx" objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 26 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 45 objMessage.Configuration.Fields.Update objMessage.Send End Sub

Thanks for the reply Vince.But the result is all the same after doing further more investigation i got to know that the gmail smtp server which i was using is blocked by our firewall and because of that reason i was unable to send mail. ( Now I need to use different method to send mail )In addition to that i was checking out another test complete sendmail. The parameter for this method are BuiltIn.SendMail(ToAddress, FromHost, FromName, FromAddress, Subject, Body, FileName1,FileName2..FileNameN)Out of all there parameter can someone please explain me about the FromHost parameter.In help it says "The host from which the message will be sent.". Can someone please help me with an example to understand this method.Thanks in AdvanceNikhil

Hi Nikhil,I also failed to get the How To script up and running. Possibly, Gmail settings have been changed since 11/1/2010, or the description misses a requirement. I've added a task to fix the article to our task list.As for the FromHost parameter, it defines the address of the SMTP server. As for examples of sending e-mails, does the function Vince provided works for you? Also, you can find a similar example in this thread.

Hi, I am not getting an email when the test is failed, i am getting emails when test is passed? here is the code i am usingCall SendMail("skonkala@metrix.com","Smtprelay","TestComplete", "testcomplete@metrix.com","Notification","Hello Srujana, Your test failed","C:\TestResults.mht") ElseCall SendMail("skonkala@metrix.com","Smtprelay","TestComplete", "testcomplete@metrix.com","Notification","Hello Srujana, Your test passed","C:\TestResults.mht") End IfEnd SubSrujana

Forum Discussion

Nikhil_Mcafee

New Contributor

13 years ago

email's are not getting sent. URGENT !!!!

Hi All

I am trying to send an email with an attachment using the script which in present in smartbear support artical, but the amils are not getting sent atall. The script executes successfully but no emails are getting sent.Please find the script below.

http://smartbear.com/support/viewarticle/9020/

Function SendEmail(mFrom, mTo, mSubject, mBody, mAttachment)

Dim smtpServer, portNumber, userName, userPassword

Dim useAutentification, useSSL, connectionTimeout

Dim schema, mConfig, mMessage

smtpServer = "smtp.gmail.com"

smtpPort = 465

userLogin = "XYZ@gmail.com" ' e.g. abc@gmail.com

userPassword = "Password"

autentificationType = 1 ' cdoBasic

connectionTimeout = 30

' Required by GMail

useSSL = True

Err.Clear()

On Error Resume Next

schema = "http://schemas.microsoft.com/cdo/configuration/"

Set mConfig = Sys.OleObject("CDO.Configuration")

mConfig.Fields.Item(schema & "sendusing") = 2 ' cdoSendUsingPort

mConfig.Fields.Item(schema & "smtpserver") = smtpServer

mConfig.Fields.Item(schema & "smtpserverport") = smtpPort

mConfig.Fields.Item(schema & "sendusername") = userLogin

mConfig.Fields.Item(schema & "sendpassword") = userPassword

mConfig.Fields.Item(schema & "smtpauthenticate") = autentificationType

mConfig.Fields.Item(schema & "smtpusessl") = useSSL

mConfig.Fields.Item(schema & "smtpconnectiontimeout") = connectionTimeout

mConfig.Fields.Update()

Set mMessage = Sys.OleObject("CDO.Message")

Set mMessage.Configuration = mConfig

mMessage.From = mFrom

mMessage.To = mTo

mMessage.Subject = mSubject

mMessage.HTMLBody = mBody

If 0 < Len(mAttachment) Then

mMessage.AddAttachment(mAttachment)

End If

mMessage.Send()

If Err.Number > 0 Then

Call Log.Error("E-mail cannot be sent", Err.Description)

SendEMail = False

Err.Clear()

Else

Log.Message("Message to <" & mTo & "> was successfully sent")

SendEMail = True

End If

End Function

With Regards

Nikhil C. Indurkar

12 Replies

genius_niladri
11 years ago
Hi Support,

I am not getting an email when the test is failed, i am getting emails when test is passed? here is the code i am using,

'USEUNIT SendMail

Sub Add_Node()

'Runs the "TestedApp1" tested application.

Call TestedApps.TestedApp1.Run

'Enters 'UA[Tab]' in the 'e_user' object.

Call Aliases.rmsgui.LoginDialog.frame.e_user.Keys("UA[Tab]")

'Enters 'ua1234[Enter]' in the 'e_password' object.

Call Aliases.rmsgui.LoginDialog.frame.e_password.Keys("ua1234[Enter]")

'Clicks the 'FIRM' item in the 'Node Path' column of the 'nodeContainerWidget' tree.

Call Aliases.rmsgui.MainWindow.centralwidget.splitter.widget.nodeContainerWidget.ClickItem("FIRM", "Node Path")

'Clicks the 'FIRM' item in the 'Node Path' column of the 'nodeContainerWidget' tree with the right mouse button.

Call Aliases.rmsgui.MainWindow.centralwidget.splitter.widget.nodeContainerWidget.ClickItemR("FIRM", "Node Path")

'Moves the mouse cursor to the menu item specified and then simulates a single click.

Call Aliases.rmsgui.Menu.QtMenu.Click("Create Account")

'Drags from point (54, 10) of the 'LineEdit' object to offset (-134, -8).

Call Aliases.rmsgui.AddBranchDialog.comboBox.LineEdit.Drag(54, 10, -134, -8)

'Enters 'ACCT1[Enter]' in the 'comboBox' object.

Call Aliases.rmsgui.AddBranchDialog.comboBox.Keys("ACCT1[Enter]")

Call SendMail_Test

End Sub

It's generating mails only when test is passed. Please, advice or post me the approprieate code to generate e-mails on test failure.

Thanks,

Niladri
AlexKaras
Community Hero
11 years ago
Hi Niladri,

You can handle the OnLogError event (http://support.smartbear.com/viewarticle/56948/) to raise a flag (set some global variable to True) that there was an error while running the test and then handle the OnStopTest event (http://support.smartbear.com/viewarticle/55123/) and check if the flag is set or not. Issue an error mail if the flag is set.

Forum Discussion

email's are not getting sent. URGENT !!!!

12 Replies

Recent Discussions

Test Complete compatible with Avalonia?

page.PagePicture - Screenshot duplication

capture variable from the popup in Desktop application

Related Content

Getting Content from an Email

email

Email Generator using REAL emails