Smtp Mailer That Supports Html And Attachments.

[Tjalve]

Are you reffering to:

Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

if so, then I run thes line just befor i call the sendmail function. Or is there somthing else that i need to "enable"?

[water]

That's exactly what I refer to.

[Tjalve]

Well. Since i have the linem and I still get the error, i would guess that im doing something wrong

[Ilounah]

I gots a small problem... I made a simple GUI for the SMTP script. When I run it, it goes into a loop and sends the email over and over again. Other than that it works beautifully. Can anyone see the problem ?

expandcollapse popup

#include <GUIConstants.au3>
#Include<file.au3>

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

$MyEmail = GUICreate("My eMail Program", 290, 450)
GUICtrlCreateLabel("From", 16, 16, 31, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Address", 16, 40, 49, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("To", 16, 64, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Subject", 16, 136, 47, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Body", 16, 184, 32, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("Attachments", 16, 160, 74, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("CC", 16, 88, 20, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("BCC", 16, 112, 28, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$FromName = GUICtrlCreateInput("", 96, 16, 185, 21)
$FromAddress = GUICtrlCreateInput("", 96, 40, 185, 21)
$ToAddress = GUICtrlCreateInput("", 96, 64, 185, 21)
$CcAddress = GUICtrlCreateInput("", 96, 88, 185, 21)
$BccAddress = GUICtrlCreateInput("", 96, 112, 185, 21)
$Subject = GUICtrlCreateInput("", 96, 136, 185, 21)
$Body = GUICtrlCreateEdit("", 96, 184, 185, 113)
$AttachFiles = GUICtrlCreateInput("", 96, 160, 185, 21)
$Send = GUICtrlCreateButton("Send", 8, 416, 75, 25, 0)
$Reset = GUICtrlCreateButton("Reset", 112, 416, 75, 25, 0)
$Exit = GUICtrlCreateButton("Exit", 208, 416, 75, 25, 0)
GUICtrlCreateGroup("", 8, 304, 273, 105)
GUICtrlCreateLabel("SMTP Server", 19, 328, 68, 17)
GUICtrlCreateLabel("User ID", 19, 352, 40, 17)
GUICtrlCreateLabel("Password", 19, 376, 50, 17)
$SmtpServer = GUICtrlCreateInput("", 90, 325, 180, 21)
$Username = GUICtrlCreateInput("", 90, 349, 180, 21)
$Password = GUICtrlCreateInput("", 90, 373, 180, 21)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Send
            $Send = _INetSmtpMailCom(GUICtrlRead($SmtpServer), GUICtrlRead($FromName), GUICtrlRead($FromAddress), GUICtrlRead($ToAddress), GUICtrlRead($Subject), GUICtrlRead($Body), GUICtrlRead($AttachFiles), GUICtrlRead($CcAddress), GUICtrlRead($BccAddress), GUICtrlRead($Username), GUICtrlRead($Password))
        Case $Reset
            ;;;
        Case $Exit
            Exit
    EndSwitch
WEnd

If @error then
msgbox(0,"Error sending message","Error code: " & @error & " Description: " & $Send)
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

Good day sir I like your script, but like what you said it keeps on loop im still newbie and I dont know how do fix the

Case $Send $Send = _INetSmtpMailCom(

if you can help me or update your code it is very helpful thanks

[BrewManNH]

Dont use the same variable name for the control and the variable that holds the return value of the function, that's why it's looping. Change "$Send = _INetSmtpMailCom(" to something like this "$SendReturn = _INetSmtpMailCom("

[water]

Add the line

Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

at the top of your script to make sure the COM error triggers the COM error handler.

[Tjalve]

Hmm. Ok it seems that i got the com handler to run, but i get this message

$oMyRet[0] = $HexNumber

$oMyRet^ ERROR

; Com Error Handler for MAIL
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

[Jos]

Hmm. Ok it seems that i got the com handler to run, but i get this message

$oMyRet[0] = $HexNumber

$oMyRet^ ERROR

Please study the original example in the first post. You need to define that array at the start, like the Com Errorhandler.

Jos

[Tjalve]

My bad... Of cource. Thank you. It works fine now!

[Phonix001]

The code doesn´t work for me.

There is an error at line 66:

Missing separator character after keyword.

[water]

Can you please post the relevant line?

[Phonix001]

$objEmail.Configuration.Fields.Item ("<a href='http://schemas.microsoft.com/cdo/configuration/sendusing' class='bbc_url' title='External link' rel='nofollow external'>http://schemas.microsoft.com/cdo/configuration/sendusing"</a>) = 2

If I compile it to a exe with the beta, it says:  Line 474. Error: Error parsing function call.

[water]

The line should read:

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

I assume that this code change is caused by the forum upgrade a few days ago.

So remove all "<a href ....>" and "</a>" and you should be fine again.

[Jos]

Just did an Edit & Save which seems to fix the code back to what it should be.

Jos

[Phonix001]

So ther is no compile error anymore, just the normally error-codes. Pretty useless scipt, I have tried with yahoo, gmx and gmail. No chance to send an email

[Jos]

So ther is no compile error anymore, just the normally error-codes. Pretty useless scipt, I have tried with yahoo, gmx and gmail. No chance to send an email

Yea right ...  I am generally know to post shit in these forums.

Anyway, when you want help you have to share information, but the UDF works so that means to me you are doing something wrong.

Jos

[a200]

I just wanted to thank whoever created this script. I have been trying to find a simple way to email the backup log results from a remote office. I just start the executable I compiled at the end of the backup batch file and the logs are in my Inbox within minutes.

The script worked right out of the box...error free. Life is good.

Thanks again.

[water]

That's easy: Thank Jos

[mesale0077]

ı find

stmp setting

Server address: smtp.live.com
Port: 25 (or 25 prevented 587)
 Authentication: Yes
TLS or SSL Secure Encrypted Connection: Yes

look

http://windows.microsoft.com/en-in/windows/outlook/send-receive-from-app

[DeltaRocked]

Hi Jos,

I hope you find this useful.

$objEmail.BodyPart.Charset = "utf-8"
    $objEmail.HTMLBodyPart.Charset = "utf-8"

When we want to process emails with specific character encodings or let us say - you have already converted the charset to UTF-8 and want to send an email then this is the solution.

I had some chinese GB2312 mails and was facing problems with setting the charset for these emails.

If you can add encoding support to the present UDF then it would be great.

Regards

Deltarocked.