Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: HTML EMails empfangen
Autor: lechiffre
Datum: 11.12.07 14:49
Problem gelöst....die Mail war Base 64 codiert =) Jetzt eine neue Frage.... bei dem folgenden code unter benutzung von SevMail bekomme ich den fehler With oder Objectvariable nicht definiert. Warum??? (beim ersten verwenden von oMessage) Der Code: Dim oMessage As sevMailActiveX.sevMail Dim lngMsgCount, lngSize As Long Dim sTempFile As String Dim sSubject, sEMail As String pop.ServerName = "server" pop.UserName = "name" pop.Password = "muh" pop.Disconnect DoEvents pop.Connect lngMsgCount = pop.NewMailsAvailable(lngSize) If lngMsgCount > 0 Then For n = 1 To lngMsgCount x = GetRandom sTempFile = App.Path + "\" + x + ".dat" pop.FetchMail n, sTempFile, True oMessage.OpenMail sTempFile sSubject = oMessage.Header.Subject sSubject = oMessage.ExtractEMail(sSubject) If xStrings.GetPartStringPosition((sSubject), "Bestellung via xaranshop", False) = 0 Then Kill sTempFile Else xINI.WriteString (x), "Time", Time$, GetBestFile xINI.WriteString (x), "Date", datum$, GetBestFile sEMail = oMessage.Header.MailFrom sEMail = oMessage.ExtractEMail(sEMail) xINI.WriteString (x), "EMail", sEMail, GetBestFile 'Mailinhalt konvertieren End If Next n End If pop.Disconnect

HTML EMails empfangen	956	lechiffre	04.12.07 12:55
Re: HTML EMails empfangen	715	Dieter	04.12.07 17:42
Re: HTML EMails empfangen	638	lechiffre	06.12.07 16:53
Re: HTML EMails empfangen	676	Dieter	06.12.07 18:18
Re: HTML EMails empfangen	637	lechiffre	08.12.07 00:03
Re: HTML EMails empfangen	627	Dieter	08.12.07 07:59
Re: HTML EMails empfangen	639	lechiffre	11.12.07 14:49
Re: HTML EMails empfangen	738	Dieter	11.12.07 16:17
Re: HTML EMails empfangen	784	lechiffre	12.12.07 01:37

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen