Smtp Mailer That Supports Html And Attachments.

[EmptySpace]

I get nothing. Maybe need somehow try on win 7? Also I sent to my friend. Same error..

[EmptySpace]

Friend instaled that program from microsoft but he get same errors.

[water]

It seems to be a Windows 7 related problem.

Can your friend in France do the tests?

[EmptySpace]

Yes, he will do whaterver I want. He just wrote me that he installed that program from microsoft and worked. I got his mails. But my codes dont work. He get same errors.

[water]

Can you post your code here? I have Windows 7 running in a virtual machine to test.

[EmptySpace]

When he uses email sender. He uses his account on it then it works well but when he uses my account ant send email to my other acc then he gets error.

expandcollapse popup

; Include
;##################################
#Include
;##################################
; Variables
;##################################
$SmtpServer = "smtp.gmail.com"           ; address for the smtp-server to use - REQUIRED
$FromName = "Test"                   ; name from who the email was sent
$FromAddress = "kurfreeze@gmail.com" ; address from where the mail should come
$ToAddress = "infomakecashnow@gmail.com"" ; destination address of the email - REQUIRED
$Subject = "test"                ; subject from the email - can be anything you want it to be
$Body = "test"                           ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = ""                    ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$CcAddress = ""     ; address for cc - leave blank if not needed
$BccAddress = ""     ; address for bcc - leave blank if not needed
$Importance = "Normal"               ; Send message priority: "High", "Normal", "Low"
$Username = "username"                  ; username for the account used from where the mail gets sent - REQUIRED
$Password = "password"               ; password for the account used from where the mail gets sent - REQUIRED
;$IPPort = 465                          ; 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($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
EndIf
;
; The UDF
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 & '" '
    $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, "") 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
                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 ("[url="http://schemas.microsoft.com/cdo/configuration/sendusing"]http://schemas.microsoft.com/cdo/configuration/sendusing[/url]") = 2
    $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/smtpserver"]http://schemas.microsoft.com/cdo/configuration/smtpserver[/url]") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/smtpserverport"]http://schemas.microsoft.com/cdo/configuration/smtpserverport[/url]") = $IPPort
    ;Authenticated SMTP
    If $s_Username "" Then
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"]http://schemas.microsoft.com/cdo/configuration/smtpauthenticate[/url]") = 1
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/sendusername"]http://schemas.microsoft.com/cdo/configuration/sendusername[/url]") = $s_Username
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/sendpassword"]http://schemas.microsoft.com/cdo/configuration/sendpassword[/url]") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/smtpusessl"]http://schemas.microsoft.com/cdo/configuration/smtpusessl[/url]") = 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()
    MsgBox(0, "Error", "err.number is: " & $oMyError.number & @CRLF & _
     "err.windescription: " & $oMyError.windescription & @CRLF & _
     "err.description is: " & $oMyError.description & @CRLF & _
     "err.source is: " & $oMyError.source & @CRLF & _
     "err.helpfile is: " & $oMyError.helpfile & @CRLF & _
     "err.helpcontext is: " & $oMyError.helpcontext & @CRLF & _
     "err.lastdllerror is: " & $oMyError.lastdllerror & @CRLF & _
     "err.scriptline is: " & $oMyError.scriptline & @CRLF & _
     "err.retcode is: " & $oMyError.retcode & @CRLF & @CRLF)
EndFunc ;==>_MyErrFunc

(autoit tags dont works, buggy)

Edited November 25, 2012 by EdgarT

[water]

The code you posted is buggy too (forum eating parts of the code?).

Statements like

If $s_Username  "" Then

have to be fixed.

I will use the original code by Jos.

[EmptySpace]

Yes, forum became buggy. "Post" buttond dont work, i have to click "More Reply Options" ant then click post. Autoit tags dont work normal. I would post more code if forum wouldnt eat it.

I didnt changed orginal code so you can use it

Edited November 25, 2012 by EdgarT

[water]

I get the same error here (0x80040217).

[EmptySpace]

Hmm. When my friend installed that microsoft program sometimes works but when he puts his own emails.

[water]

I assume the userid/password you posted in your script need to be changed before sending an email?

[EmptySpace]

I dont know. Email sends random. My friend have ~10 exe's which i sent to him and if he clicks all of them sometimes I get email from one of them. From other he gets errors. Ill try to put his id/pass

[EmptySpace]

Yeps, it worked. I put his email and pass. He tried to click 5times and i got 5 emails. I think this is gmails fault...

[water]

The problem was that variables $Username and $Password were set to nonblank values. So the script tried to connect to GMail using this userid/password. As they are not valid you got the error.

[EmptySpace]

No no. They was set. When I used my own 2 gmails then when other ip tried to login gmail blocked it. I got few mails from gmail that someone is trying to hijack my account. When I wrote my friends gmail then he sent me mails without errors.

Gmail blocked any logins from other ip. Maybe with other mails would work? Yahoo or smthg?

[EmptySpace]

Note: Used yahoo mail and it worked perfect. + tested on win7 without any other program ant it worked too. Thanks for help.

(Sorry again for double post. Edit dont works)

[pyzonet]

Error code:2 Description:The transport failed to connect to the server.

[Jos]

Error code:2 Description:The transport failed to connect to the server.

and your question is something like : What is wrong with my code and you expect us to guess how your code looks?

[masvil]

Edit: Added support for different port and SLL which are used by GMail (Port 465)

It works great, thanks for effort.

[Vandor]

I need some help. I just switched our email server from on-premise exchange to Microsoft's 365 Office cloud. This script was working great before the change. The only changes I've made is $SmtpServer, $IPPort, and $ssl. I think its the SSL that is breaking it.

I know all credentials are correct as I am able to get it to work with PHP/Pear and Telnet. I've also tried Gmail settings and it gave me the same error. Do I have to enable some kind of SSL processing?

The error I get is:

### COM Error ! Number: 80020009 ScriptLine: 63 Description:The transport failed to connect to the server.

#include <Array.au3>
#include <File.au3>
#include <Inet.au3>
#include <_INetSmtpMailCom.au3>

$ToAddress = "bboyack@vandorproducts.com" ; destination address of item email
$Subject = "Test email"                  ; subject of item email

$EmlBody = "This is a test email sent from AutoIt" & @CRLF & @CRLF & "Enjoy!"
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
;##################################
; Variables
;##################################
$SmtpServer = "pod51018.outlook.com"             ; address for the smtp-server to use - REQUIRED
$FromName = "No Reply"                   ; name from who the email was sent
$FromAddress = "noreply@vandorproducts.com" ; address from where the mail should come
$AttachFiles = ""                    ; the file you want to attach- leave blank if not needed
$CcAddress = ""  ; address for cc - leave blank if not needed
$BccAddress = ""     ; address for bcc - leave blank if not needed
$Importance = "Normal"               ; Send message priority: "High", "Normal", "Low"
$Username = "noreply@vandorproducts.com"                 ; username for the account used from where the mail gets sent - REQUIRED
$Password = "**********"                 ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 587                        ; port used for sending the mail normaly 25
$ssl = 1                             ; enables/disables secure socket layer sending - put to 1 if using httpS
;##################################
; Script
;##################################
$SndEml = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $EmlBody, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)

Here is the _INetSmtpMailCom.au3 script:

expandcollapse popup

;##################################
; Include
;##################################
#Include<file.au3>
;#Include<array.au3>
;
; The UDF
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, ";")
;_ArrayDisplay($S_Files2Attach)
     For $x = 1 To $S_Files2Attach[0]
         $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
         ConsoleWrite('@@ Debug(62) : $S_Files2Attach " & $x &": = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
         If FileExists($S_Files2Attach[$x]) Then
             $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