SMTP help

[NicePerson]

How to attach more than one files in EMAIL?

[JohnOne]

I think you have been on this board long enough to know that brief one dimentional questions such as this, recieve little if any response.

[NicePerson]

I am trying to send all files of a folder through MAIL but not working!

Can someone plz help me?

Here is my script:

expandcollapse popup

#NoTrayIcon
#Include<file.au3>

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

$SmtpServer = "smtp.aol.com"          ; address for the smtp-server to use - REQUIRED
$FromName = "Name"                      ; name from who the email was sent
$FromAddress = "*******@aol.com"   ; address from where the mail should come
$ToAddress = "*******@yahoo.com"        ; destination address of the email - REQUIRED
$Subject = "Subject"                    ; subject from the email - can be anything you want it to be
$Body = "Body"             ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = "D:\AutoIt\Scripts\Attachments\*.*"       ; 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 = "******"                ; 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 = 25                           ; port used for sending the mail
$ssl = 1                                ; 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



$Send = _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:" & $Send)
Else
    MsgBox(0, "E-Mail sent!", "Email successfully sent!")
EndIf
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "Subject", $as_Body = "Body", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="High", $s_Username = "M.Azeem100@gmail.com", $s_Password = "87878787", $IPPort = 465, $ssl = 1)
    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, ";")
    For $x = 1 To $S_Files2Attach[0]
    $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
    ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @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 ;==>MyErrFunc

[Jos]

"\*.*" doesn't work. you need to define each file separated by a semicolon or script the required logic yourself with FileFindFirst()...etc.

[NicePerson]

Jos

Thanks but, how to define more than two files for sending through MAIL?

[Jos]

what part of my one sentence was not clear?

[NicePerson]

I can't understand that how to use semicolon because i am a newbie so, can u give an example of this?

Thanks

RMR

[JohnOne]

I've never used these mail udfs so its either one or the other of these.

"D:\AutoIt\Scripts\Attachments\script1.au3;script2.au3;script3.au3"

or

"D:\AutoIt\Scripts\Attachments\script1.au3;D:\AutoIt\Scripts\Attachments\script2.au3;D:\AutoIt\Scripts\Attachments\script3.au3"

[GEOSoft]

separate the attachments with ;

[NicePerson]

Thanks to both of you!

[NicePerson]

Is here any way for sending all files of a folder ?

[JohnOne]

Of course there is.

Jos' post #4.

[NicePerson]

Thanks again!

[NicePerson]

It writes only one file name why not writes all file names?

$search = FileFindFirstFile("*.*")

; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop

    $txt = FileOpen("Files.txt", 10)
    FileWrite($txt, "Files name " & $file)

WEnd

; Close the search handle
FileClose($search)

[GEOSoft]

$search = FileFindFirstFile("*.*")

; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf
$sText = ""
While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    $sText &= $file
WEnd

; Close the search handle
FileClose($search)

If $sText Then
    $txt = FileOpen("Files.txt", 10)
    FileWrite($txt, "Files name " & $file)
    FileClose($txt)
EndIf

[NicePerson]

@GEOSoft

Sorry but your script is not working!!

[JohnOne]

Why dont you stick to one thread.

[NicePerson]

Sorry that was my mistake but, my problem is solved with the help of Melba23.

RMR,

Why make life difficult when AutoIt can do it for you in one line?

#include <File.au3>

_FileWriteFromArray(@ScriptDir & "\List.txt", _FileListToArray($@ScriptDir, "*.*", 1), 1)

Just change the paths to your own versions.

M23