astrociap Posted September 4, 2019 Share Posted September 4, 2019 (edited) 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: expandcollapse popup#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 Link to comment Share on other sites More sharing options...
Developers Jos Posted September 4, 2019 Developers Share Posted September 4, 2019 What about you first tell us what the serversettings are for sending email when using this service with other programs? Jos SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Developers Jos Posted September 4, 2019 Developers Share Posted September 4, 2019 (edited) 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. expandcollapse popup#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. SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
astrociap Posted September 4, 2019 Author Share Posted 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. Link to comment Share on other sites More sharing options...
Developers Jos Posted September 4, 2019 Developers Share Posted September 4, 2019 (edited) 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 SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
astrociap Posted September 4, 2019 Author Share Posted 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 Link to comment Share on other sites More sharing options...
astrociap Posted September 4, 2019 Author Share Posted September 4, 2019 ip port can be 25 or 587. Both are open (checked with the router) Link to comment Share on other sites More sharing options...
Developers Jos Posted September 4, 2019 Developers Share Posted September 4, 2019 (edited) see my last update in the previous post ! did you update $ssl? Edited September 4, 2019 by Jos SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
astrociap Posted September 4, 2019 Author Share Posted September 4, 2019 Updated but same mistake Link to comment Share on other sites More sharing options...
Developers Jos Posted September 4, 2019 Developers Share Posted 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 SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
astrociap Posted September 4, 2019 Author Share Posted 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 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now