Sending an email. (Problems)

[lolp1]

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?

[jvanegmond]

_INetSmtpMail?

Or bmail

[lolp1]

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

[jvanegmond]

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

[lolp1]

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