NicePerson Posted July 13, 2010 Share Posted July 13, 2010 How to attach more than one files in EMAIL? Link to comment Share on other sites More sharing options...
JohnOne Posted July 13, 2010 Share Posted July 13, 2010 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. AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Link to comment Share on other sites More sharing options...
NicePerson Posted July 13, 2010 Author Share Posted July 13, 2010 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 Link to comment Share on other sites More sharing options...
Developers Jos Posted July 13, 2010 Developers Share Posted July 13, 2010 "\*.*" doesn't work. you need to define each file separated by a semicolon or script the required logic yourself with FileFindFirst()...etc. SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
NicePerson Posted July 13, 2010 Author Share Posted July 13, 2010 Jos Thanks but, how to define more than two files for sending through MAIL? Link to comment Share on other sites More sharing options...
Developers Jos Posted July 13, 2010 Developers Share Posted July 13, 2010 what part of my one sentence was not clear? SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
NicePerson Posted July 14, 2010 Author Share Posted July 14, 2010 I can't understand that how to use semicolon because i am a newbie so, can u give an example of this? Thanks RMR Link to comment Share on other sites More sharing options...
JohnOne Posted July 14, 2010 Share Posted July 14, 2010 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" AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Link to comment Share on other sites More sharing options...
GEOSoft Posted July 14, 2010 Share Posted July 14, 2010 separate the attachments with ; George Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.*** The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number. Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else. "Old age and treachery will always overcome youth and skill!" Link to comment Share on other sites More sharing options...
NicePerson Posted July 14, 2010 Author Share Posted July 14, 2010 Thanks to both of you! Link to comment Share on other sites More sharing options...
NicePerson Posted July 14, 2010 Author Share Posted July 14, 2010 Is here any way for sending all files of a folder ? Link to comment Share on other sites More sharing options...
JohnOne Posted July 14, 2010 Share Posted July 14, 2010 Of course there is. Jos' post #4. AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Link to comment Share on other sites More sharing options...
NicePerson Posted July 14, 2010 Author Share Posted July 14, 2010 Thanks again! Link to comment Share on other sites More sharing options...
NicePerson Posted July 14, 2010 Author Share Posted July 14, 2010 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) Link to comment Share on other sites More sharing options...
GEOSoft Posted July 14, 2010 Share Posted July 14, 2010 $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 George Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.*** The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number. Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else. "Old age and treachery will always overcome youth and skill!" Link to comment Share on other sites More sharing options...
NicePerson Posted July 14, 2010 Author Share Posted July 14, 2010 @GEOSoft Sorry but your script is not working!! Link to comment Share on other sites More sharing options...
JohnOne Posted July 14, 2010 Share Posted July 14, 2010 Why dont you stick to one thread. AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Link to comment Share on other sites More sharing options...
NicePerson Posted July 14, 2010 Author Share Posted July 14, 2010 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 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now