Outlook Textdatei öffnen

nemesis · 20. September 2011, 12:23

Hallo,

ich würde gerne bper VBA eine Historie an Mails anlegen lassen. Dazu habe ich eine leere Textdatei in den gewünschten Ordner gezogen. Nun müsste per VBA diese Textdatei herangezogen und zum schreiben geöffnet werden.
Aber wie kann ich hier auf die Textdatei zugreifen?

Vielen Dank!

petaod · 20. September 2011, 13:32

zum schreiben geöffnet

Write oder Append?
Solange sie leer ist, spielt es keine Rolle. Aber beim zweiten Öffnen.

nemesis · 20. September 2011, 15:49

Das größere Problem ist, wie gebe ich den Pfad an? wo liegt diese Datei? gebe ich da auch eine Mailbox als Pfad an?

petaod · 20. September 2011, 17:06

Scripting.FileSystemObject.OpenTextFile

nemesis · 26. September 2011, 08:57

Vielen Dank, aber wie man eine Textdatei lesend und schreibend öffnet weiss ich, das Problem ist, wo liegt das Element. In welchem Ordner.
Z.B.: C:\Windows\meineTextDatei.txt

Novazizo|Sabrina · 26. September 2011, 09:01

Das ist aus dem LINK von petaod:

Visual Basic-Quellcode

Const ForReading = 1, ForWriting = 2, ForAppending = 8
' The following line contains constants for the OpenTextFile
' format argument, which is not used in the code below.
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, MyFile, FileName, TextLine
Set fso = CreateObject("Scripting.FileSystemObject")
' Open the file for output.
FileName = "c:\testfile.txt" ' <<<<<<<<<<<<<<<<<<<<<<<< SCHAU MAL HIER !!!!!!!!!!!!!!!!!!!!
Set MyFile = fso.OpenTextFile(FileName, ForWriting, True)
' Write to the file.
MyFile.WriteLine "Hello world!"
MyFile.WriteLine "The quick brown fox"
MyFile.Close
' Open the file for input.
Set MyFile = fso.OpenTextFile(FileName, ForReading)
' Read from the file and display the results.
Do While MyFile.AtEndOfStream <> True
TextLine = MyFile.ReadLine
Document.Write TextLine & "<br />"
Loop
MyFile.Close

nemesis · 26. September 2011, 09:47

Hmpf!

das Problem ist ... ich weiss doch garnicht, wo die Datei liegt ... das war doch die Frage ... wo liegt die Text-Datei? liegt die auf dem Exchangeserver in nem Pfad, liegt sie Lokal ... das ist doch die Frage.

Novazizo|Sabrina · 26. September 2011, 10:19

nemesis schrieb:

Hallo,

ich würde gerne bper VBA eine Historie an Mails anlegen lassen. Dazu habe ich eine leere Textdatei in den gewünschten Ordner gezogen. Nun müsste per VBA diese Textdatei herangezogen und zum schreiben geöffnet werden.
Aber wie kann ich hier auf die Textdatei zugreifen?

Vielen Dank!

Du hast doch die Textdatei selbst in den Ordner gezogen? Versteh jetzt nicht wo dein Problem liegt?!?!

nemesis · 26. September 2011, 10:31

Hmpf

ich hab sie in Outlook in den Ordner gezogen, aber das ist ja jetzt das Problem, wo ist der Ordner, wie ist da der Pfad?

Bsp:

Quellcode

Set MyFile = fso.OpenTextFile(FolderInbox.Parent.Folders("MyFolder").Item("TextDatei.txt"), ForWriting, True)

so funktioniert das nicht ... aber irgendwie muss ich ja die textdatei in dem Postfach ansprechen können.

Novazizo|Sabrina · 26. September 2011, 10:56

Leider kann ich dir da nicht großartig weiterhelfen, da ich selber nicht mit Outlook arbeite, aber schau dir doch mal diesen Link an!

MfG und Viel Glück noch!
No!

nemesis · 26. September 2011, 11:02

Hm, das Hilft mir nicht direkt weiter.

Den Fehler, den ich erhalte, wenn ich die Textdatei wie oben beschrieben öffnen will ist:

Laufzeitfehler'438':
Objekt unterstützt diese Eigenschaft der Methode nicht

edit:
ich bekomme aber auch bei diesem Beispiel aus der MSDN (1 zu 1 übernommen) den Fehler:

Laufzeitfehler '5':
ungültiger Prozeduraufruf oder ungültiges Argument

petaod · 26. September 2011, 11:41

nemesis schrieb:

aber irgendwie muss ich ja die textdatei in dem Postfach ansprechen können

Das ist ein Trugschluss.
Ein Ordner oder eine Datei innerhalb Outlook ist keine Datei im Filesystem.

Die Daten kannst du nur mit Hilfe von Outlook bekommen.
Wie du das per Automation machen kannst, gibt's hier einen kleinen Einstieg:
support.microsoft.com/kb/220595

nemesis · 26. September 2011, 13:49

hm, ok, aber, ich könnet auch eine leere mail statt einer textdatei nehmen:

Quellcode

Set Mails = FolderDest.Items
Set Mail = Mails.Find("[Subject] = 'Historie' ")
Mailtext = Mail.Body
Mail.Body = Mailtext + "<Neuer Text>"
MsgBox (Mail.Body)

aber, er schreibt das nun nicht in die Mail rein. Wenn ich am Ende mail.Body ausgeben lasse, dann stimmts, aber in der Mail steht nacher nur der alte text.

petaod · 26. September 2011, 14:09

Du kannst in Outlook den Text einer bestehenden Mail nicht verändern (auch nicht im Original-GUI), da musst du schon eine neue Nachricht anlegen.

nemesis · 26. September 2011, 14:12

hm, dann kann man den text aus der alten übernehmen und eine neue anlegen und dann die alte löschen ... was man nicht alles tut

Outlook Textdatei öffnen

Outlook Textdatei öffnen

Visual Basic-Quellcode

nemesis schrieb:

Quellcode

nemesis schrieb:

Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben