CambodjaMan Posted October 3, 2007 Share Posted October 3, 2007 Hi, i searched about send information to my e-mail by autoit, and i dont found nothing... I want to send some information stored in a .ini to my e-mail. Can anyone code someting for me? Regards. Link to comment Share on other sites More sharing options...
Bert Posted October 3, 2007 Share Posted October 3, 2007 (edited) $SST = StringReplace($rtti, ",", " ") $subject = $readstringleft_1 & " A ticket to "&$email if $chk_read = $body = $readstringleft_1 & " A ticket has been assigned to you." &@CRLF& "Please review as soon as possible."&@CRLF&@CRLF&"Notes:"&@CRLF&$SST _INetMail($address, $subject, $body) Edited October 3, 2007 by Volly The Vollatran project My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
CambodjaMan Posted October 3, 2007 Author Share Posted October 3, 2007 (edited) Nice, but can i send the e-mail without open the outlook express? something automatic. Edited October 3, 2007 by CambodjaMan Link to comment Share on other sites More sharing options...
drlava Posted October 3, 2007 Share Posted October 3, 2007 search more. expandcollapse popupFunc _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;always plain text in this case. ;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 Link to comment Share on other sites More sharing options...
CambodjaMan Posted October 4, 2007 Author Share Posted October 4, 2007 (edited) hummmm nice! Ty Edited October 4, 2007 by CambodjaMan Link to comment Share on other sites More sharing options...
Tiger Posted October 4, 2007 Share Posted October 4, 2007 Does the e-mail adress really have to be existing? My UDFs:- _RegEnumKey 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