topten Posted January 29, 2015 Posted January 29, 2015 Hi. It is great udf, works like a charm. When using cyrillic letters, the subject of the letter comes ok, but the body of the text is only "??????????????????". Can it be solved? Great thanx in advance!
Developers Jos Posted January 29, 2015 Author Developers Posted January 29, 2015 (edited) Are you using an utf8 encoded scriptfile? Quick search gave me this answer by adding the following lines to the UDF If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body $objEmail.HTMLBodyPart.CharSet = "UTF-8" Else $objEmail.Textbody = $as_Body & @CRLF $objEmail.TextBodyPart.CharSet = "UTF-8" EndIf ... else please attach a scriptfile for me to test with. Jos Edited January 29, 2015 by Jos maniootek 1 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.
Allow2010 Posted February 4, 2015 Posted February 4, 2015 (edited) @jos: my i ask why you use this If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then it seems quite unexact to me...any plaintext message may contain < and > maybe If StringInStr(StringStripWS($sBody,8), "<html>") Then might be better (but still not really exact) or did i overlook something? Edit: i saw that other users already talked about that. currently i use If $xusehtml Or StringInStr(StringStripWS($as_Body, 8), "<html>") Or StringInStr(StringStripWS($as_Body,8), "<!DOCTYPEhtml>") Then $objEmail.HTMLBody = $as_Body $objEmail.HTMLBodyPart.CharSet = "UTF-8" $objEmail.HTMLBodyPart.ContentTransferEncoding = "quoted-printable" Else $objEmail.Textbody = $as_Body & @CRLF $objEmail.TextBodyPart.CharSet = "UTF-8" $objEmail.TextBodyPart.ContentTransferEncoding = "quoted-printable" EndIf and i added $xusehtml to the function definition so i can force html mode if needed, or it will be used if html is detected... Edited February 4, 2015 by Allow2010
Allow2010 Posted February 4, 2015 Posted February 4, 2015 as far as i could find on the web, sending mails with TLS ist not supported by the CDO, right?
Developers Jos Posted February 4, 2015 Author Developers Posted February 4, 2015 @jos: my i ask why you use this If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then it seems quite unexact to me...any plaintext message may contain < and > maybe If StringInStr(StringStripWS($sBody,8), "<html>") Then might be better (but still not really exact) or did i overlook something? Edit: i saw that other users already talked about that. currently i use If $xusehtml Or StringInStr(StringStripWS($as_Body, 8), "<html>") Or StringInStr(StringStripWS($as_Body,8), "<!DOCTYPEhtml>") Then $objEmail.HTMLBody = $as_Body $objEmail.HTMLBodyPart.CharSet = "UTF-8" $objEmail.HTMLBodyPart.ContentTransferEncoding = "quoted-printable" Else $objEmail.Textbody = $as_Body & @CRLF $objEmail.TextBodyPart.CharSet = "UTF-8" $objEmail.TextBodyPart.ContentTransferEncoding = "quoted-printable" EndIf and i added $xusehtml to the function definition so i can force html mode if needed, or it will be used if html is detected... Does it really matter when the text contains these characters that this text is send af HTML? I actually wanted to have a "simple" html options available without all the official header stuff in the text. 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.
Allow2010 Posted February 5, 2015 Posted February 5, 2015 (edited) ok, thanks for the reply...was just wondering if i mussunderstood... BTW: Thanks for this Function, i use it a lot...also showed me how to use COM stuff... Edited February 5, 2015 by Allow2010
meows Posted February 5, 2015 Posted February 5, 2015 194 Allow2010 as far as i could find on the web, sending mails with TLS ist not supported by the CDO, right? I use it and it works PERFECTLY! Many Many thanks for this. It has been a thorn in my side for a while. Bless you for this master piece!
mLipok Posted February 5, 2015 Posted February 5, 2015 (edited) Since I have long used this UDF, and I see that now re-emerged questions and needs, which once I had myself, I decided to add something from me.I just published my modified version of this UDF.You can find it here.Maybe someone going to need it.mLipok Edited May 2, 2015 by mLipok link fixed (new IPB version) Signature beginning:* Please remember: "AutoIt"..... * Wondering who uses AutoIt and what it can be used for ? * Forum Rules ** ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button: Spoiler Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 * My contribution to others projects or UDF based on others projects: * _sql.au3 UDF * POP3.au3 UDF * RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * Useful links: * Forum Rules * Forum etiquette * Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX IE Related: * How to use IE.au3 UDF with AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions * EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *I also encourage you to check awesome @trancexx code: * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors * HTML editor * winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/ "Homo sum; humani nil a me alienum puto" - Publius Terentius Afer"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming" , be and \\//_. Anticipating Errors : "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty." Signature last update: 2023-04-24
zalomalo Posted May 2, 2015 Posted May 2, 2015 You can find it here.Maybe someone going to need it.mLipokDid you deleted the archive or its a forum issue ?. My english shucks, i know it.
mLipok Posted May 2, 2015 Posted May 2, 2015 (edited) Did you deleted the archive or its a forum issue ?.Fixed.EDIT: you can also find this link in my signature. Edited May 2, 2015 by mLipok Signature beginning:* Please remember: "AutoIt"..... * Wondering who uses AutoIt and what it can be used for ? * Forum Rules ** ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button: Spoiler Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API * ErrorLog.au3 UDF - A logging Library * Include Dependency Tree (Tool for analyzing script relations) * Show_Macro_Values.au3 * My contribution to others projects or UDF based on others projects: * _sql.au3 UDF * POP3.au3 UDF * RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF * SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane * Useful links: * Forum Rules * Forum etiquette * Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * Wiki: * Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * OpenOffice/LibreOffice/XLS Related: WriterDemo.au3 * XLS/MDB from scratch with ADOX IE Related: * How to use IE.au3 UDF with AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler * IE Embedded Control Versioning (use IE9+ and HTML5 in a GUI) * PDF Related: * How to get reference to PDF object embeded in IE * IE on Windows 11 * I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions * EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *I also encourage you to check awesome @trancexx code: * Create COM objects from modules without any demand on user to register anything. * Another COM object registering stuff * OnHungApp handler * Avoid "AutoIt Error" message box in unknown errors * HTML editor * winhttp.au3 related : * https://www.autoitscript.com/forum/topic/206771-winhttpau3-download-problem-youre-speaking-plain-http-to-an-ssl-enabled-server-port/ "Homo sum; humani nil a me alienum puto" - Publius Terentius Afer"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming" , be and \\//_. Anticipating Errors : "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty." Signature last update: 2023-04-24
ViciousXUSMC Posted May 4, 2015 Posted May 4, 2015 Thanks for this just tested and working with gmail.Not sure why I did not see this or if it was updated since last I looked for a UDF like this. Last time I could not get email working on AutoIT because of the lack of SSL support I had to use STUNNEL in addition to AutoIT and that was a pain.Going to wrap this in a simple GUI and have it fire off email to my IFTTT account to see how well I can turn off/on the lights in the house using Wemo switches.
Developers Jos Posted May 4, 2015 Author Developers Posted May 4, 2015 This UDF has already support for Gmail for years, but it is correct that it isn't part of the official distribution. 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.
DarkwarlorD Posted May 12, 2015 Posted May 12, 2015 (edited) I have a little issue ... When i tried to compile, i got the error:error: missing separator character before keyword. $objEmail.To ~~~~~~~~~~^I'm using AutoIt version 3.3.12.0Anyone got this problem too? How I Fix?Thanks for the attention Edited May 12, 2015 by DarkwarlorD Formatting Code
Developers Jos Posted May 12, 2015 Author Developers Posted May 12, 2015 AU3Check has a bug. Use the au3check from the beta subdirectory or the au3check from the SciTE4AutoIt3 download directory.Jos faldo 1 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.
DarkwarlorD Posted May 13, 2015 Posted May 13, 2015 AU3Check has a bug. Use the au3check from the beta subdirectory or the au3check from the SciTE4AutoIt3 download directory.JosWorked GREAT! Thanks, man!AutoIt Rules
NoizeBit Posted July 25, 2015 Posted July 25, 2015 (edited) Hi! First, let me thank you for this great UDF, works perfectly for me with a few minor modifications This may be a dumb question regarding encoding and someone might have even asked it before, but how could I send a euro symbol (€) for example? I'd like to send a simple text email, nothing fancy, but all euro symbols get replaced with a question mark in the email body. Does anyone know how to fix this?Edit: found answer in post #645 Edited July 26, 2015 by NoizeBit
tom2pd Posted January 28, 2016 Posted January 28, 2016 expandcollapse popup#Include<file.au3> Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") ;################################## ; Include ;################################## #Include<file.au3> ;################################## ; Variables ;################################## $s_SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED $s_FromName = "tom" ; name from who the email was sent $s_FromAddress = "tom@gmail.com"; address from where the mail should come $s_ToAddress = "tom@gmail.com" ; destination address of the email - REQUIRED $s_Subject = "Test" ; subject from the email - can be anything you want it to be $as_Body = "This is a test email" ; the messagebody from the mail - can be left blank but then you get a blank mail $s_AttachFiles = "" ; the file you want to attach- leave blank if not needed $s_CcAddress = "" ; address for cc - leave blank if not needed $s_BccAddress = "" ; address for bcc - leave blank if not needed $s_Username = "tom" ; username for the account used from where the mail gets sent - Optional (Needed for eg GMail) $s_Password = "123123" ; password for the account used from where the mail gets sent - Optional (Needed for eg GMail) ;$IPPort = 25 ; port used for sending the mail ;$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS $IPPort=465 ; GMAIL port used for sending the mail $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS ;################################## ; Script ;################################## Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Rc:" & $rc) EndIf ; Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0) $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]) If FileExists($S_Files2Attach[$x]) Then $objEmail.AddAttachment ($S_Files2Attach[$x]) Else $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x] 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 $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 ; Sent the Message $objEmail.Send if @error then SetError(2) return $oMyRet[1] EndIf 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 this is my code but something wrong ### COM Error ! Number: 80020009 ScriptLine: 98 Description:The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available can anyone help me
voider Posted March 25, 2016 Posted March 25, 2016 Hi Jos, Sorry if i post my question inappropiate section. Just wondering is here any way to set "User Agent" header (aka mailer client ID) in this UDF? Thanks.
Developers Jos Posted March 25, 2016 Author Developers Posted March 25, 2016 8 minutes ago, voider said: Just wondering is here any way to set "User Agent" header (aka mailer client ID) in this UDF? No idea, this UDF is using the standard CDO COM object, so you could try searching for this whether it can be set. 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.
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