Smtp Mailer That Supports Html And Attachments.

topten · 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!

Jos · January 29, 2015

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

topten · January 29, 2015

Wow, that works correct! Thanx again!

Allow2010 · 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...

Edited February 4, 2015 by Allow2010

Allow2010 · February 4, 2015

as far as i could find on the web, sending mails with TLS ist not supported by the CDO, right?

Jos · 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

Allow2010 · February 5, 2015

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 · 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 · February 5, 2015

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)

zalomalo · May 2, 2015

You can find it here.
Maybe someone going to need it.
mLipok

Did you deleted the archive or its a forum issue ?.

mLipok · May 2, 2015

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

ViciousXUSMC · 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.

Jos · 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

DarkwarlorD · May 12, 2015

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.0

Anyone got this problem too? How I Fix?

Thanks for the attention

Edited May 12, 2015 by DarkwarlorD
Formatting Code

Jos · May 12, 2015

AU3Check has a bug. Use the au3check from the beta subdirectory or the au3check from the SciTE4AutoIt3 download directory.

Jos

DarkwarlorD · May 13, 2015

AU3Check has a bug. Use the au3check from the beta subdirectory or the au3check from the SciTE4AutoIt3 download directory.
Jos

Worked GREAT! Thanks, man!

AutoIt Rules :thumbsup:

NoizeBit · July 25, 2015

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 · January 28, 2016

#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 · 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.

Jos · 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

Smtp Mailer That Supports Html And Attachments.

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

Jos

Jos

water

Posted Images

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

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