IE.au3 - GMX eMailPostfach auslesen

Problembeschreibung: Der Inhalt der Emails im gmx-Postfach soll in Abhängigkeit des Absenders ausgelesen werden.

Func GMXeMailsAbfragen($username, $password, $absender)

; Erstellt eine Instanz (neues Fenster) des InternetExplorers und gibt ein entsprechendes Objekt zurück.

Local $oGMX = _IECreate ("http://www.gmx.net/")

; warten bis die Seite komplett geladen wurde

_IELoadWait($oGMX)

; gesuchtes Formular für Login

Local $oForm = _IEGetObjById($oGMX, "formLoginFreemail")

; Erzeugen eines Formularfeld-Objekts mit Hilfe des Feldnamens

Local $oUsername = _IEFormElementGetObjByName($oForm, "id")

; Setzen des Formularfeldinhalts

_IEFormElementSetValue($oUsername, $username)

; Erzeugen eines Formularfeld-Objekts mit Hilfe des Feldnamens

Local $oPasswd = _IEFormElementGetObjByName($oForm, "p")

; Setzen des Formularfeldinhalts

_IEFormElementSetValue($oPasswd, $password)

; Absenden des Formulars

_IEFormSubmit($oForm, 0)

_IELoadWait($oGMX)

; Die Links befinden sich im ersten Frame des Browserfensters

$oGMXFrame = _IEFrameGetCollection ($oGMX, 0)

; navigiere zum Mailordner und öffne eMail

_IELinkClickByText($oGMXFrame, "Mein GMX")

_IELinkClickByPartText($oGMXFrame, "ungelesene E-Mail")

_IELinkClickByText($oGMXFrame, $absender)

; email auslesen

Local $oGMXFrameMail = _IEFrameGetCollection($oGMXFrame,1)

MsgBox(0,"Text",_IEBodyReadText($oGMXFrameMail))

EndFunc

; von mir adaptierte version von _IELinkClickByText

Func _IELinkClickByPartText(ByRef $o_object, $s_linkText, $i_index = 0, $f_wait = 1)

If Not IsObj($o_object) Then

__IEErrorNotify("Error", "_IELinkClickByText", "$_IEStatus_InvalidDataType")

Return SetError($_IEStatus_InvalidDataType, 1, 0)

EndIf

;

Local $found = 0, $linktext, $links = $o_object.document.links

$i_index = Number($i_index)

For $link In $links

$linktext = $link.outerText & "" ; Append empty string to prevent problem with no outerText (image) links

If StringInStr($linktext , $s_linkText) Then

If ($found = $i_index) Then

$link.click

If $f_wait Then

_IELoadWait($o_object)

Return SetError(@error, 0, -1)

EndIf

Return SetError($_IEStatus_Success, 0, -1)

EndIf

$found = $found + 1

EndIf

Next

__IEErrorNotify("Warning", "_IELinkClickByText", "$_IEStatus_NoMatch")

Return SetError($_IEStatus_NoMatch, 0, 0) ; Could be caused by parameter 2, 3 or both

EndFunc

an der stelle

; email auslesen

Local $oGMXFrameMail = _IEFrameGetCollection($oGMXFrame,1)

MsgBox(0,"Text",_IEBodyReadText($oGMXFrameMail))

Gibt mir Scite folgende Fehlermeldung zurück und das Programm terminiert -.-

[...]\Include\IE.au3 (1964) : ==> The requested action with this object has failed.:


Return SetError($_IEStatus_Success, 0, $o_object.document.body.innerText)


Return SetError($_IEStatus_Success, 0, $o_object.document^ ERROR


->22:30:29 AutoIT3.exe ended.rc:1

Bis jetzt verwende ich folgenden workaround:

Local $oGMXMail

Local $iframes = _IETagNameGetCollection($oGMXFrame, "iframe")

For $iframe in $iframes

If StringInStr($iframe.src, "http://www.gmxattachments.net/") Then

$oGMXMail = _IECreate($iframe.src)

ExitLoop

EndIf

Next

Hat von euch jemand eine Idee warum der Code nicht so funktioniert, wie er sollte? Vielen dank schonmal an alle die sich daran versuchen

Viele Grüße Zim

Vielen Dank für die schnelle Antwort und die Links AutoBert
Bislang habe ich mich ganz gut mit der mitgelieferten Referenz und den paar kleinen tuts gut zurecht gefunden. Die Links werde ich mir trotzdem bald mal zu Gemüte führen. AutoIt ist wirklich ein verdammt mächtiges Tool...

Zurück zum Thema. Den "umständlchen Weg" gehe ich weil der Inhalt automatisch weiterverarbeitet werden soll. Dabei hilft mir das Programm, zu dem du mir den Link geschickt hast nicht. Die Skripte von POP-Show zu modifizieren um meinen Ansprüchen gerecht zu werden klingt für mich nach nem ziemlichen Overkill des Teilproblems. Nach meinen bescheidenen Kenntnissen, was die DOM Referenz und Autoit betrifft, liegt das Problem bei den verschachtelten iframes, deren Referenzen irgendwie nicht richtig lokalisiert werden können. Das sind aber auch nur Vermutungen

Wenn sich jemand die Mühe machen würde um das ganze einmal zu testen um dem Problem auf die Spur zu kommen wäre ich sehr dankbar.

Viele Grüße Zim

Zitat von autoBert

Du sollst ja nicht @Oscars Pop-Show anpassen, sondern anhand dieses Programmes die Einsatzmöglichkeiten der Pop.au3 von @Stigar nd @Luc HENNINOT (warscheins EN-Forum) kennenlernen und danach ein eigenes Skript nach deinen Bedürfnissen stricken.

Klingt nach einer hervorragenden Idee, vielen dank AutoBert =)

Vielen Dank euch allen für die Hilfe und ganz besonders an Oscar für den Link. Werd mich die Tage mal damit beschäftigen =D
Solang keine neuen Fragen auftauchen setz ich den Thread mal auf "gelöst"

Viele Grüße,
Zim