Smtp Mailer That Supports Html And Attachments.

[StAbb]

Really! Wow, maybe I do let me mess with my firewall and see what I can do. Thanks though, I will post back with results later.

[Aassdd]

StAbb, I have the same problem, please don;t forget to reply if you get it to work

Thanks

[StAbb]

Will do Aassdd! I'm trying a few different things now. I will post back once I get it to work.

Edited July 3, 2008 by StAbb

[StAbb]

I got it to work! I used this test email and test password! And it works perfectly! Thanks man!

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 = "Test"                     ; name from who the email was sent
$s_FromAddress = "autoittest1@gmail.com";  address from where the mail should come
$s_ToAddress = "YOUR EMAIL"  ; 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 = "autoittest1"                ; username for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$s_Password = "autoit123"                ; 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

[MrCreatoR]

Is there any chance to get this work without setting the username and password?

I want to send an email from my account on yahoo.com, to my account on gmail.com, here is what i trying:

expandcollapse popup

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

;##################################
; Include
;##################################
#Include <File.au3>

;##################################
; Variables
;##################################
$s_SmtpServer = "smtp.mail.yahoo.com"       ; address for the smtp-server to use - REQUIRED
$s_FromName = "Test"                        ; name from who the email was sent
$s_FromAddress = "MyAccount@yahoo.com"      ; address from where the mail should come
$s_ToAddress = "MyAccount@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 = ""                 ; username for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$s_Password = ""                 ; 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



$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)


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

; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description,3)
    
    Return SetError(1); something to check for when this function returns
EndFunc

But i get error:

Error code: 2 Rc: Unable to send message to SMTP-server. Trasnport error code: 0x80040217. Server response: not available

(free translation from russian muttley ).

[Jos]

Don't think Yahoo allows SMTP traffic unless you are using a payed subscription. muttley

[Jos]

Just use the Users own email capabilities and use the _INetMail() UDF.

You will not find many open smtp servers because nobody wants to be listed as a mass spammer. (only forum members are)

Jos

[MrCreatoR]

Just use the Users own email capabilities and use the _INetMail() UDF.

But what if user have gmail accont, he will have to set password... not safe (from his point of view)...

P.S

Oops, i deleted the second (double) post, and it seems that you deleted the other (first) one muttley

Here is the copy of it:

And what about from Gmail? or it requires username/password anyway?

Then what mail service do you recomend to use for this task? basically i need to make some sort of "interface form" in my app, so the user will be able to send me a feedback/bug report etc. to my email (on gmail), but i don't like the idea of keeping password in the script (i have another account on gmail), and i don't like the idea of crypting every time my script as well - any ideas on how i can do it safer, without using (set) password?

[Jos]

I haven't deleted any of your double posts. Must have been somebody else. muttley

I do not understand your question about the users own GMail account. This UDF will start Outlook or Outlook express (or whatever is listed as the PC's mail client). I cannot see how you would easily created a Mail-me-back facility supporting all kinds of possible EMail options in a different way.

Jos

Edited July 17, 2008 by Jos

[MrCreatoR]

I haven't deleted any of your double posts. Must have been somebody else.

Oh ok, sorry then.

I do not understand your question about the users own GMail account. This UDF will start Outlook or Outlook express

I see now what you mean, but i don't want to use default mail client (btw, ShellExecute("mailto:...") is almoust the same muttley ), i would like to use my own mail form (in the matter of fact i already have a GUI form to send mail, the problem is that this involves input of password/user name ).

But thank you anyway.... i will keep looking for a reasonable solution here...

[yehia]

i have same problem as all

Error code:2 Rc:The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available

for all the guyz who got it to work can u help me

was it ur firewall?

[Jos]

i have same problem as all

Error code:2 Rc:The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available

for all the guyz who got it to work can u help me

was it ur firewall?

It normally means that you cannot connect to the SMTP server. Maybe you can give more details about what your are exactly doing.

Jos

[snaileater]

Excuse me the dumb question ... i see many pieces of code for this topic ... which one should i start with to make my first experiments ? no "official" or "up to date" link

Thanks in advance...

[Jos]

Excuse me the dumb question ... i see many pieces of code for this topic ... which one should i start with to make my first experiments ? no "official" or "up to date" link

Thanks in advance...

The very first post in this topic in my most up-to-date example..

[Arilvv]

very nice!!

it's great

[Donace]

hey JOS was using xprotec; and was getting this error:

'This Program has been interupted by a Fatal COM Error"

in the .au3 this is what i have changed

Global $smtpserver = "smtp.googlemail.com"
Global $sendusername = "username"
Global $sendpassword = "mypass"

Any help appreciated

[Jos]

hey JOS was using xprotec; and was getting this error:

'This Program has been interupted by a Fatal COM Error"

in the .au3 this is what i have changed

Global $smtpserver = "smtp.googlemail.com"
Global $sendusername = "username"
Global $sendpassword = "mypass"

Any help appreciated

Yes, saw you posting that, so why are you also posting here?

When you look at the first post in this thread you see how to use a Com Error Event handler, but other that that I don't know what was used in the xprotec UDF.

Jos

Edited August 23, 2008 by Jos

[Donace]

i posted here because valuator said to

I dug into the udf; but I have...3 days experience with autoit was was confused; ill look into it a bit more

[Jos]

i posted here because valuator said to

I dug into the udf; but I have...3 days experience with autoit was was confused; ill look into it a bit more

Look at the example in the first post.

This portion will ensure more info is given about your problem:

Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
....
; 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

Edited August 23, 2008 by Jos

[Donace]

After adding the portion mentioned above after email submission i get

Line-1: Error Variable must be of type object