POP3 (E-Mail) UDF

;===============================================================================
;
; Name: POP3 UDF
; Vorraussetzungen: TcpStartup () am Anfang des Skripts
; Beschreibung: Eine UDF um mit AutoIt auf einen POP3 Server zuzugreifen.
; Autor: Carsten8
;
;===============================================================================
Global $csocket
Global $sMsg
;===============================================================================
;
; Beschreibung: Verbindet sich zu einem POP3 Server und loggt sich ein.
; Parameter: $sServer - Adresse des Pop3-Servers
; $iPort - Port über den Verbunden werden soll (meistens 110)
; $sUser - Benutzername zum einloggen (bei ua. web.de ist es die E-Mail Adresse)
; $sPass - Passwort des E-Mail Accounts
; $timeout - Gibt an, wie lange auf eine Antwort gewartet werden soll (Standart: 10 Sek.).
; Rückgabewerte: Erfolg: Gibt 1 zurück.
; Fehler: Gibt 0 zurück zu setzt @error:
; 1 = Timeout
; 2 = Server gab einen anderen Fehler zurück
; 3 = Konnte nicht zum Server verbinden (meist falsche Adresse oder Port)
; 4 = Benutzername und/oder Passwort falsch
;===============================================================================
Func _pop3_connect($sServer, $iPort, $sUser, $sPass, $timeout = 10000)
$csocket = TCPConnect($sServer, $iPort)
If @error = 1 Then
$csocket = TCPConnect(TCPNameToIP($sServer), $iPort)
EndIf
If $csocket = -1 Then
SetError(3)
Return 0
EndIf
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
Until StringLeft($Recv, 3) = "+OK"
TCPSend($csocket, "USER " & $sUser & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
Until StringLeft($Recv, 3) = "+OK"
TCPSend($csocket, "PASS " & $sPass & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
If StringLeft($recv, 4) = "-ERR" Then
SetError(4)
Return 0
EndIf
Until StringLeft($Recv, 3) = "+OK"
Return $csocket
EndFunc
;===============================================================================
;
; Beschreibung: Gibt die Anzahl und die Größe der E-Mails auf dem Server zurück
; Parameter: $socket - Serversocket
; $timeout - Gibt an, wie lange auf eine Antwort gewartet werden soll (Standart: 10 Sek.).
; Rückgabewerte: Erfolg: Setzt @error auf 0 und gibt ein Array mit folgenden Daten zurück:
; $array[0] = Anzahl der E-Mails
; $array[1] = Größe aller E-Mails in Bytes
; Fehler: Setzt @error auf 1 bei einem unbekannten Fehler (2 bei Timeout und gibt 0 zurück)
; und gibt den vom Server gesendeten Fehler zurück.
;===============================================================================
Func _pop3_info($socket, $timeout = 10000)
TCPSend($socket, "STAT" & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(2)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
If StringLeft($recv, 4) = "-ERR" Then
SetError(4)
Return $recv
EndIf
Until StringLeft($Recv, 3) = "+OK"
$sTrim = StringTrimLeft($recv, 4)
$split = StringSplit($sTrim, " ")
Dim $aStat[2]
$aStat[0] = $split[1]
$aStat[1] = $split[2]
Return $aStat
EndFunc
;===============================================================================
;
; Beschreibung: Empfängt eine E-Mail mit ihrem Header
; Parameter: $socket - Serversocket
; $timeout - Gibt an, wie lange auf eine Antwort gewartet werden soll (Standart: 10 Sek.).
; $iMail - Die Nummer der E-Meil zum Empfangen
; Rückgabewerte: Erfolg: Gibt die E-Mail zurück
; Fehler: Gibt 0 zurück und setzt @error bei einem Timeout auf 1 (bei anderen Fehlern 0)
;===============================================================================
Func _pop3_getmailraw($socket, $iMail, $timeout = 10000)
local $try = 5 , $recv = ""
TCPSend($socket, "RETR " & $iMail & @CRLF)
$iTimer = TimerInit ()
while not StringRegExp($recv,"\s[.]\s")
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv &= TCPRecv($csocket, 1024)
If StringLeft($recv, 4) = "-ERR" Then
if $try = 0 Then
SetError(0)
Return 0
Else
$try -= 1
TCPSend($socket, "RETR " & $iMail & @CRLF)
$recv = ""
EndIf
EndIf
wend
Return $recv
EndFunc
;===============================================================================
;
; Beschreibung: Löscht eine E-Mail vom Server
; Parameter: $socket - Serversocket
; $timeout - Gibt an, wie lange auf eine Antwort gewartet werden soll (Standart: 10 Sek.).
; $iMail - Die Nummer der E-Meil zum Empfangen
; Rückgabewerte: Erfolg: Gibt 1 zurück
; Fehler: Gibt 0 zurück und setzt @error bei einem Timeout auf 1 (bei anderen Fehlern 0)
;===============================================================================
Func _pop3_deletemail($socket, $iMail, $timeout = 10000)
TCPSend($socket, "DELE " & $iMail & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
If StringLeft($recv, 4) = "-ERR" Then
SetError(0)
Return 0
EndIf
Until StringLeft($recv, 3) = "+OK"
Return 1
EndFunc
;===============================================================================
;
; Beschreibung: Trennt die Verbindung zum Server
; Parameter: $socket - Serversocket
; Rückgabewerte: Keine
;===============================================================================
Func _pop3_disconnect($socket)
TCPSend($socket, "QUIT" & @CRLF)
TCPCloseSocket($socket)
EndFunc

Local $Subject = StringRegExp($Mail,"[Ss][Uu][Bb][Jj][Ee][Cc][Tt][\s]*:[\s]*(.+)\s",1)
if IsArray($Subject) then $Subject = $Subject[0]

Subject: =?utf-8?b?QmFja3VwIEV4ZWMtTWVsZHVuZzogQXVmdHJhZyBtaXQgQXVzbmFobQ==?=
=?utf-8?b?ZW4gYWJnZXNjaGxvc3NlbiAoU2VydmVyOiAiTkxSRUctREMxIikgKEF1ZnRyYQ==?=
=?utf-8?b?ZzogInTDpGdsaWNoIikg?=