problem with automatic email sendig (Jos script)

astrociap · September 4, 2019

Dear All,

I am asking help from you for the first time. I have used your forum many times and it has been very helpful. But I have tried everything in order to solve this problem, but until now I have failed.

I am using the automatic email sending script, developed by Jos. Everything has worked fine until I had chenged the server. This server is a Linux one. Previous was windows and verything worked perfectly.

Below you find the script:

#include <AutoItConstants.au3>
#include <IE.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>
#include <Excel.au3>
#include <WinAPIFiles.au3>
#include <File.au3>
#include <String.au3>
#include <GUIConstantsEx.au3>
#include <ExcelConstants.au3>
#include <Debug.au3>
#include <GDIPlus.au3>
#include <ScreenCapture.au3>
#include <WinAPI.au3>
#include <WinAPIHObj.au3>
#include <StructureConstants.au3>
#include <ClipBoard.au3>

Func AssegnaVariabiliComuni()
   Global $SmtpServer = "n100.provs.info"
   Global $FromName = "001@n.100.provs.info"
   Global $FromAddress = "001@n100.provs.info"
   Global $BccAddress = "stefano@ciapettiagency.com"
   Global $Importance = "Normal"
   Global $Username = "001@n100.provs.info"
   Global $Password = "provazza_2016"
   Global $IPPort = 587
   Global $ssl = 0
   Global $AttachFiles = ""
   Global $CcAddress = ""
   Global $Subject = "links to our new offer"

   Global $s_SmtpServer = $SmtpServer
   Global $s_FromName = $FromName
   Global $s_AttachFiles = $AttachFiles
   Global $s_CcAddress = $CcAddress
   Global $s_BccAddress = $BccAddress
   Global $s_FromAddress = $FromAddress
   Global $s_Importance="Normal"
   Global $s_Username = $Username
   Global $s_Password = $Password
   Global $s_ToAddress = "stefano@ciapettiagency.com"
   Global $as_Body = "ciao"
   Global $s_Subject = $Subject
EndFunc

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Importance=$BccAddress, $s_Username = $Username, $s_Password = $Password, $IPPort = 587, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
EndFunc   ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 😎
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
 EndFunc   ;==>MyErrFunc

 AssegnaVariabiliComuni()
_INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Importance=$BccAddress, $s_Username = $Username, $s_Password = $Password, $IPPort = 587, $ssl = 0)

It does error with both port 25 and 587, both changing ssl to 0 or 1. I have tried all combination. Email works using clients like thunderbird, but I need to use this script. Where could be the mistake ? My server side vedeloper said that it might be a problem with the fact that Linux uses different SSL information than Windows and require a certificate. Could it be that the problem ?

Thank you in advance for the help you can give to me.

Stefano

Edited September 4, 2019 by Jos

Jos · September 4, 2019

What about you first tell us what the serversettings are for sending email when using this service with other programs?

Jos

Jos · September 4, 2019

Having had another (proper) look at the script you posted, it seem you have made a little mess of the variables and function call line... and also the whole Func _INetSmtpMailCom() is totally wrong!
The script is also lacking the error handler making it even harder to figure out what is happening.

Here a a reformatted version of your script you could try first, but still doesn't have the error/result checking in there, which you can find in my example post.

#include <AutoItConstants.au3>
#include <IE.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>
#include <Excel.au3>
#include <WinAPIFiles.au3>
#include <File.au3>
#include <String.au3>
#include <GUIConstantsEx.au3>
#include <ExcelConstants.au3>
#include <Debug.au3>
#include <GDIPlus.au3>
#include <ScreenCapture.au3>
#include <WinAPI.au3>
#include <WinAPIHObj.au3>
#include <StructureConstants.au3>
#include <ClipBoard.au3>

Global $SmtpServer = "n100.provs.info"
Global $FromName = "001@n.100.provs.info"
Global $FromAddress = "001@n100.provs.info"
Global $BccAddress = "stefano@ciapettiagency.com"
Global $Importance = "Normal"
Global $Username = "001@n100.provs.info"
Global $Password = "provazza_2016"
Global $AttachFiles = ""
Global $Importance = "Normal"
Global $ToAddress = "stefano@ciapettiagency.com"
Global $CcAddress = ""
Global $Subject = "links to our new offer"
Global $Body = "ciao"
Global $IPPort = 587
Global $ssl = 0
_INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $as_Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)



Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 Then $IPPort = 25
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail = ""
EndFunc   ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1) ; something to check for when this function returns
    Return
EndFunc   ;==>MyErrFunc

Suggestion when this doesn't work is to stick with the posted example in the Examples forum and only modify the variables in there to test whether that works or not as your posted script is really messy.

Jos

Edited September 4, 2019 by Jos
more fixes in the Func line.

astrociap · September 4, 2019

Thank you for your reformatted script. I will try again.

By the way, the server side parameters, provided by my server developer are:

smtp server: n100.provs.info

starttls: true.

Jos · September 4, 2019

8 minutes ago, astrociap said:

By the way, the server side parameters, provided by my server developer are:

smtp server: n100.provs.info

starttls: true.

what about IP port ?

So set these to the correct values:

Global $IPPort = 587
Global $ssl = 1

Edited September 4, 2019 by Jos

astrociap · September 4, 2019

Tried with your corrected script but the mistake is always the same. I will try again with the script in the example in the forum, just changing the variables

astrociap · September 4, 2019

ip port can be 25 or 587. Both are open (checked with the router)

Jos · September 4, 2019

see my last update in the previous post !

did you update $ssl?

Edited September 4, 2019 by Jos

astrociap · September 4, 2019

Updated but same mistake

Jos · September 4, 2019

... then add that error handler so we can see what the issue is with sending the mail. or just use a working version of the script from example and adapt those variables for testing.

Jos

astrociap · September 4, 2019

Thank you for your support.

As the script is working perfectly with a different server, I will just shift to another server like my previous one, for just the email sending. It looks faster and easier.

Thank you again.

Stefano

problem with automatic email sendig (Jos script)

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members