Forum Discussion

Nikhil_Mcafee's avatar
Nikhil_Mcafee
New Contributor
14 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

  • Nikhil_Mcafee's avatar
    Nikhil_Mcafee
    New Contributor
    14 years ago
    Can someone please reply to this topic and help me on this. It is very urgent for me
  • vex's avatar
    vex
    Contributor
    14 years ago
    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



  • Nikhil_Mcafee's avatar
    Nikhil_Mcafee
    New Contributor
    14 years ago
    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 Advance

    Nikhil
  • AlexeyKryuchkov's avatar
    AlexeyKryuchkov
    Icon for Alumni rankAlumni
    14 years ago
    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.
  • srujana7's avatar
    srujana7
    14 years ago
    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 using




    Call SendMail("skonkala@metrix.com","Smtprelay","TestComplete", "testcomplete@metrix.com","Notification","Hello Srujana, Your test failed","C:\TestResults.mht")

      Else


    Call SendMail("skonkala@metrix.com","Smtprelay","TestComplete", "testcomplete@metrix.com","Notification","Hello Srujana, Your test passed","C:\TestResults.mht")


     End If


    End Sub




    Srujana



  • tristaanogre's avatar
    tristaanogre
    Esteemed Contributor
    14 years ago
    You appear to be missing the actual conditional statement in your code you posted.  There's no clear indication as to what condition is being tested to determine the code path.  Could you repost your code?
  • DT's avatar
    DT
    Occasional Contributor
    14 years ago
    I am also have this issue using VB with either Gmail or our company email. The log says email sent successfully but the email is never received. Any updates on this topic?
  • wfetherolf's avatar
    wfetherolf
    Occasional Contributor
    14 years ago
    Dustin,

    It could be your company server is refusing the email.  Could we see the code you're using? 
  • DT's avatar
    DT
    Occasional Contributor
    14 years ago
    IT has has a rule to the server that should allow access from specific test machines. I've tried using both examples from the Sending E-Mail From Scripts article and also this article Send an e-mail message which is the original thread topic.



    My code is the same as below using appropriate server, smtp port and user credentials.




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



      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") = "ServerName" ' SMTP server


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


      ' mConfig.Fields.Item(schema + "sendusername") = ""
    ' User name (if needed)


      ' mConfig.Fields.Item(schema + "sendpassword") = ""
    ' User password (if needed)


      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




    Sub MainTest

      If SendEmail("tester@mycompany.com", "boss@mycompany.com", "Subject", _

                 "Message body", "c:\File1.txt,c:\File2.txt,c:\File3.txt") Then


        ' Message was sent


      Else


        ' Message was not sent


      End If


    End Sub

  • wfetherolf's avatar
    wfetherolf
    Occasional Contributor
    14 years ago
    It could be that no error is being raised by the VB engine, but the call to Message.Send is returning something.  You could also try checking the value of the Sent property or the TimeSent Property on the Message object to see if the Exchange server has picked up on your message.