Forum Discussion

yingkai1208's avatar
yingkai1208
Contributor
11 years ago

Could not send an email via SendMail Function in TestComplete

Hi   The detail of the function is as follows:   SendMail(ToAddress, FromHost, FromName, FromAddress, Subject, Body, FileName1, FileName2, ...)   After replace the parameters with th...
  • tristaanogre's avatar
    tristaanogre
    11 years ago
    Since you need to be able to specify a port and, potentially, authenticate the user that you need to use to send the e-mail, you might want to consider using the CDO objects to send the e-mail.  You can find the article describing this method here.  It contains examples as to how to create the routine in order to do what you're asking.



    It does sound like, based upon the responses and functionality, that your problem is due to authentication on the server.  Let me know if CDO helps or if you need additional help.
  • mgroen2's avatar
    mgroen2
    9 years ago

    Hi,

     

    I have worked on the script, and it works now. For both gmail and outlook.com

    Entering user name/password fails to send the mails so I deleted these lines. Apparently no authentication or whatever is needed.

     

    Here is the working code , including server names for Outlook and gmail:

     

    Outlook.com:

     

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

     

      Dim i, schema, mConfig, mMessage

     

      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") = "smtp-mail.outlook.com" ' SMTP server

      mConfig.Fields.Item(schema + "smtpserverport") = 25  ' Port number

      mConfig.Fields.Update

     

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

      mMessage.Configuration = mConfig

      mMessage.From = mFrom

      mMessage.To = mTo

      mMessage.Subject = mSubject

      mMessage.HTMLBody = mBody

     

      aqString.ListSeparator = ","

      For i = 0 To aqString.GetListLength(mAttachment) - 1

        mMessage.AddAttachment aqString.GetListItem(mAttachment, i)

      Next

     

      mMessage.Send

     

      If Err.Number > 0 Then

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

        SendEMail = False

      Else

        Log.Message "Message to <" + mTo + "> was successfully sent"

        SendEMail = True

      End If

    End Function

     

     

     

     

    GMAIL:

     

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

     

      Dim i, schema, mConfig, mMessage

     

      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") = "smtp.gmail.com" ' SMTP server

      mConfig.Fields.Item(schema + "smtpserverport") = 25  ' Port number

      mConfig.Fields.Update

     

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

      mMessage.Configuration = mConfig

      mMessage.From = mFrom

      mMessage.To = mTo

      mMessage.Subject = mSubject

      mMessage.HTMLBody = mBody

     

      aqString.ListSeparator = ","

      For i = 0 To aqString.GetListLength(mAttachment) - 1

        mMessage.AddAttachment aqString.GetListItem(mAttachment, i)

      Next

     

      mMessage.Send

     

      If Err.Number > 0 Then

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

        SendEMail = False

      Else

        Log.Message "Message to <" + mTo + "> was successfully sent"

        SendEMail = True

      End If

    End Function

     

     

    If you call these functions using KDT testing enter From/To/subject/body and Path to attach files:

     

     

    Hope this helps you. I will also inform support on this.

     

    Regards,

    Mathijs

     

     

mgroen2's avatar
mgroen2
Super Contributor

tristaanogre

 

I have copied the code from the example here, and when I run the test the message in the log says "mail is succesfully sent", however no emails arrive. Not in spambox either. I am testing it with Outlook smtp server smtp-mail.outlook.com but don't have a clue which port to use, and which authentication mechanism to use. 

I only get a message back in the log saying the mail is succesfully sent but no mails are arriving..

 

Do you have any tips?

tristaanogre's avatar
tristaanogre
Esteemed Contributor
9 years ago
Most of the time, SMTP servers use port 25 but I know that there are a variety of configurations and settings. So, you would need to know the settings for your e-mail server.

The message you're getting from the log is what is written out by the code... it essentially says that the code executed successfully but doesn't actually have any relation to whether or not the ACTUAL e-mail got sent. I'm guessing that, since you don't know the settings for the client, the code completed, but nothing sent.

Since you're using Outlook.com, I went ahead and looked it up.

http://windows.microsoft.com/en-US/windows/outlook/send-receive-from-app

In short, you're going to use port 25, you're going to have an authenticate method (set to 1), you're e-mail address is your user name and the password you use for the outlook.com account is your password.

Hope this helps!

Suggestion: Since this particular thread was marked as "solved", it might be better to start a new thread to debug this particular situation.
  • mgroen2's avatar
    mgroen2
    Super Contributor
    9 years ago

    tristaanogre thanks for the info,

    I am trying the setup you suggested but I cant get it to work. I think I dont use the script code right or something: in the code you have 2 places where you can set the sender,server name etc.

     

    here is the code I have now:

     

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

    Dim i, schema, mConfig, mMessage

    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") = "smtp-mail.outlook.com" ' SMTP server
    mConfig.Fields.Item(schema + "smtpserverport") = 25 ' Port number
    mConfig.Fields.Item(schema + "smtpauthenticate") = 2 ' Authentication mechanism
    mConfig.Fields.Item(schema + "sendusername") = "testrunner@outlook.com" ' User name (if needed)
    mConfig.Fields.Item(schema + "sendpassword") = "hidden" ' User password (if needed)
    mConfig.Fields.Update

    Set mMessage = Sys.OleObject("CDO.Message")
    mMessage.Configuration = mConfig
    mMessage.From = "testrunner"
    mMessage.To = "m.groen@directpay.nl"
    mMessage.Subject = "test message"
    mMessage.HTMLBody = "this is a test message send via CDO!"

    aqString.ListSeparator = ","
    For i = 0 To aqString.GetListLength(mAttachment) - 1
    mMessage.AddAttachment aqString.GetListItem(mAttachment, i)
    Next

    mMessage.Send

    If Err.Number > 0 Then
    Log.Error "E-mail cannot be sent", Err.Description
    SendEMail = False
    Else
    Log.Message "Message to <" + mTo + "> was successfully sent"
    SendEMail = True
    End If
    End Function

    Sub MainTest
    If SendEmail("testrunner@outlook.com", "blabla@gmail.com", "Subject", _
    "Message body", "c:\a\File1.txt") Then
    ' Message was sent
    Else
    ' Message was not sent
    End If
    End Sub

     

    I call this script using a Keyword Driven test which has also some parameters, but what is leading? the parameters settings or the settings in the script itself?

     

     

     

    • tristaanogre's avatar
      tristaanogre
      Esteemed Contributor
      9 years ago

      Without trying it myself (which I don't have a set up right now), I THINK your problematic line is
      mConfig.Fields.Item(schema + "smtpauthenticate") = 2 ' Authentication mechanism

      Change it to 

       

      mConfig.Fields.Item(schema + "smtpauthenticate") = 1 ' Authentication mechanism

      That's my best guess at the moment.

      Essentially, the code, as it is, should work simply by copying and pasting as you did and then changing the necessary parameters.  If the parameters are wrong, though, it won't work.  Double check what you need in the way of parameters for connecting to your server.




      • mgroen2's avatar
        mgroen2
        Super Contributor
        9 years ago

        I tried setting it to 1, but same result.

         

        Also, I wonder what this line actually stands for:

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

         

        maybe I need to change that line to another value?