VBA: Datei speichern und wieder lesen

24/02/2009 - 23:05 von Tamara Mikes | Report spam
Salü alle zusammen

Ich habe in VBA Outlook ein eMail abgespeichert
Item.SaveAs "D:\MyFile.txt", olMSG

Nun möchte ich diese Datei Zeilenweise einlesen. Dazu habe ich folgenden Code geschrieben:
Open "D:\MyFile.txt" For Input As #1
Do While Not EOF(1)
Input #1, vZeile
Debug.Print vZeile 'Hier möchte ich dann spàter herausfinden ob
left(vZeile,10)="Message-ID" ist.
Loop
Close #1

Ich habe heraus gefunden, dass am anfang scheinbar ein binàrer Header steht. Jedenfalls
wird mir von der Datei nur gerade 5 Zeichen gelesen und dann ist der Loop fertig, obwohl
die gesamte Datei noch nicht eingelesen wurde.

Habe auch mit line input probiert. Gleiches Ergebnis.

Was muss ich machen, damit ich die Datei lesen kann und irgend einmal die Zeile Message-ID
finden kann?

Vielen Dank für Hinweise
Gruss Tamara
 

Lesen sie die antworten

#1 Peter Marchert
25/02/2009 - 09:10 | Warnen spam
On 24 Feb., 23:05, "Tamara Mikes" wrote:
Salü alle zusammen



Guten Tag Tamara,

Ich habe in VBA Outlook ein eMail abgespeichert
    Item.SaveAs "D:\MyFile.txt", olMSG

Nun möchte ich diese Datei Zeilenweise einlesen. Dazu habe ich folgenden Code geschrieben:
    Open "D:\MyFile.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, vZeile
        Debug.Print vZeile 'Hier möchte ich dann spàter herausfinden ob
left(vZeile,10)="Message-ID" ist.
    Loop
    Close #1

Ich habe heraus gefunden, dass am anfang scheinbar ein binàrer Header steht. Jedenfalls
wird mir von der Datei nur gerade 5 Zeichen gelesen und dann ist der Loop fertig, obwohl
die gesamte Datei noch nicht eingelesen wurde.

Habe auch mit line input probiert. Gleiches Ergebnis.

Was muss ich machen, damit ich die Datei lesen kann und irgend einmal die Zeile Message-ID
finden kann?



Die Textdatei wird im Msg-Format gespeichert. Versuche es einmal mit
Textformat:

Item.SaveAs "D:\MyFile.txt", olTXT

Freundlicher Gruß
Peter Marchert

Infos, Workshops & Software für
Outlook®: www.outlook-stuff.com

Ähnliche fragen