lolp1 Posted April 4, 2007 Share Posted April 4, 2007 Hello, Before you ask I did search for this and couldn't find a reasonable answer. I recently made a small script that takes stats from my bot (A bot for a game, which saves the items it finds to a txt file). I was trying find a way to email the txt from my text file to my email, so I could check what items I got while I am at school with out having to be home I couldn't seem to find anything to suite these needs, any help =D? Link to comment Share on other sites More sharing options...
jvanegmond Posted April 4, 2007 Share Posted April 4, 2007 _INetSmtpMail? Or bmail github.com/jvanegmond Link to comment Share on other sites More sharing options...
lolp1 Posted April 4, 2007 Author Share Posted April 4, 2007 (edited) I'm out of it today a bit, heh. Anyways I looked into it. Ok, few questions. How am I able to get the SmtpServer for hotmail? Am I able to just attach the text file, as that would be allot easier then coming up with some little scheme to get the text from the file. #include <INet.au3> $s_SmtpServer = "mysmtpserver.com.au" $s_FromName = "My Name" $s_FromAddress = "From eMail Address" $s_ToAddress = "To eMail Address" $s_Subject = "My Test UDF" Dim $as_Body[2] $as_Body[0] = "Testing the new email udf" $as_Body[1] = "Second Line" $Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body) $err = @error If $Response = 1 Then MsgBox(0, "Success!", "Mail sent") Else MsgBox(0, "Error!", "Mail failed with error code " & $err) EndIf Edited April 4, 2007 by lolp1 Link to comment Share on other sites More sharing options...
jvanegmond Posted April 4, 2007 Share Posted April 4, 2007 AceLoc wrote this once... This is the old version, I will try to get the new one.. Func _Hotmail($e_Sender,$e_Password, $e_Recipient, $e_Subject, $e_Text) $a = $e_Sender $b = $e_Password RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "no") $c = _IECreate ("http://www.hotmail.com", 0, 0) RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "yes") $d = _IEFormGetObjByName ($c, "f1") $e = _IEFormGetCollection ($c, 0) $f = _IEFormElementGetObjByName ($e, "login") $g = _IEFormElementGetObjByName ($e, "passwd") _IEFormElementRadioSelect ($d, "3", "loginoptions", 1, "byValue") _IEFormElementSetValue ($f, $a) _IEFormElementSetValue ($g, $B) _IEFormSubmit ($e, 0) _IELoadWait ($c) _IELinkClickByIndex ($c, "14") _IELoadWait ($c) $h = _IEFormGetCollection ($c, 2) $i = _IEFormElementGetCollection ($h, 30) $j = _IEFormElementGetCollection ($h, 33) $k = _IEFormElementGetCollection ($h, 34) _IEFormElementSetValue ($i, $e_Recipient) _IEFormElementSetValue ($j, $e_Subject) _IEFormElementSetValue ($k, $e_Text) _IELinkClickByIndex ($c, "13") _IELoadWait ($c) _IEQuit ($c) EndFunc github.com/jvanegmond Link to comment Share on other sites More sharing options...
lolp1 Posted April 4, 2007 Author Share Posted April 4, 2007 AceLoc wrote this once... This is the old version, I will try to get the new one.. Func _Hotmail($e_Sender,$e_Password, $e_Recipient, $e_Subject, $e_Text) $a = $e_Sender $b = $e_Password RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "no") $c = _IECreate ("http://www.hotmail.com", 0, 0) RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "yes") $d = _IEFormGetObjByName ($c, "f1") $e = _IEFormGetCollection ($c, 0) $f = _IEFormElementGetObjByName ($e, "login") $g = _IEFormElementGetObjByName ($e, "passwd") _IEFormElementRadioSelect ($d, "3", "loginoptions", 1, "byValue") _IEFormElementSetValue ($f, $a) _IEFormElementSetValue ($g, $B) _IEFormSubmit ($e, 0) _IELoadWait ($c) _IELinkClickByIndex ($c, "14") _IELoadWait ($c) $h = _IEFormGetCollection ($c, 2) $i = _IEFormElementGetCollection ($h, 30) $j = _IEFormElementGetCollection ($h, 33) $k = _IEFormElementGetCollection ($h, 34) _IEFormElementSetValue ($i, $e_Recipient) _IEFormElementSetValue ($j, $e_Subject) _IEFormElementSetValue ($k, $e_Text) _IELinkClickByIndex ($c, "13") _IELoadWait ($c) _IEQuit ($c) EndFunc The above may mess up my bot from opening IE, but I'll give it a shot 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