Das Notes Forum
Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: Silent_Bob am 21.03.03 - 12:31:49
-
guten tag zusammen,
kann mir jemand ganz spontan sagen, wie ich unter notes eine email inkl. allem was dazugehört (header, quelltext usw.) in eine datei exportieren kann? (scheiß egal ob word, txt, doc, rtf, oder sonst ein format).
über "datei"-->"exportieren" hab ich es noch nicht hinbekommen.
danke im voraus
-
Hi,
mir ist zwar nicht ganz klar, was du mit Quelltext meinst, aber wenn du die Mail aus einer Ansicht/einem Ordner exportierst, hast du nicht nur den Text, sondern auch die Infos aus dem Mail-Header dabei.
-
Hallo!
Vielleicht hilft dieses Script. Verwenden wir als Agent, manuell aus dem Menü ausgeführt.
----
Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim collection As NotesDocumentCollection
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Dim sText As String
' Datei schreiben
Dim fileNumber%
fileNumber% = Freefile
Open "C:\Temp_blabla.tmp" For Output Access Write As fileNumber%
Forall oItem In doc.Items
sText = sText + oItem.Name +" : " + oItem.Text + Chr(13) + Chr(10)
Print #fileNumber%, oItem.Name +" : " + oItem.Text
End Forall
Close fileNumber%
Dim TaskID
TaskID = Shell ("Notepad.exe C:\Temp_blabla.tmp", 3)
End Sub
-----
Schöne Grüße, Uwe
-
@harvey:
wie meinst du das? ich exportiere die ganze zeit mails aus einem ordner, aber ich habe weder header noch sonst was. nur der reine text.
@uwe:
danke. probiert ich mal aus.
-
@uwe:
hm, script läuft bei mir nicht.
da hagelts nur so von fehlern.
(bin leider noch ein neuling auf dem lotus-script gebiet. fange gerade erst an zu lernen):
ich bin so vorgegangen:
habe die mailDB im designer geöffnet. habe dort einen neuen agenten erstellt und unten im quelltextfeld "LotusScript" ausgewählt und das script reinkopiert.
aber der meiste text im script ist rot markiert und wird als fehler angezeigt...
mehr kann ich im moment leider nicht sagen, da ich mich wie gesagt noch nicht in script auskenne, geschweige denn wie man ein script in einen agenten einbaut.
-
Im Designer den Agenten auswählen, dann das Register "Objekte" anklicken (Fenster unten links).
Im Abschnitt "(Options)" eintragen:
Option Public
Im Abschnitt "(Declarations)" nicht eintragen
Im Abschnitt "(Initialize)" eintragen:
Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim collection As NotesDocumentCollection
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Dim sText As String
' Datei schreiben
Dim fileNumber%
fileNumber% = Freefile
Open "C:\Temp_blabla.tmp" For Output Access Write As fileNumber%
Forall oItem In doc.Items
sText = sText + oItem.Name +" : " + oItem.Text + Chr(13) + Chr(10)
Print #fileNumber%, oItem.Name +" : " + oItem.Text
End Forall
Close fileNumber%
Dim TaskID
TaskID = Shell ("Notepad.exe C:\Temp_blabla.tmp", 3)
End Sub
Im Abschnitt "(Terminate)" eintragen:
Sub Terminate
End Sub
Alle Einträge werden als Lotus Script ausgeführt.
-
genauso habs ich gemacht.
"16 fehler gefunden"...
:-[
ich hab mal ein screenshot gemacht. vielleicht siehst du ja ganz spontan den fehler.
danke trotzdem im voraus für die mühe
-
Hhmmm,
bin auch kein Entwickler. Vielleicht liegt hier die Ursache:
- Bei mir ist es kein gemeinsam genutzter Agent
- Agent wird manuell aus dem Menü Aktionen gestartet
- Gilt für ausgewählte Dokumente
Bei mir läuft das Script so prima ...
Grüße, Uwe
-
Bei mir funktioniert das exportieren problemlos. Einfach im Posteingang oder sonst in einer Ansicht das Mail markieren und dann unter DATEI - EXPORTIEREN als structured Text z.B. mail.txt eingeben und das Mail wird komplett inkl. Header exportiert...
-
@SilentBob:
das hängt mit dem Kopieren aus dem Netz zusammen; hatte das auch schon ein paar Mal.
Am Anfang und/oder am Ende jeder Codezeile sind zusätzliche leerzeichen. Wenn du die rauslöscht bekommt die zeile wieder die gewohnte Farbe und der Code ist dann fehlerfrei.
eknori
-
danke für den tip.
hat auch fast geklappt. es ist nur noch eine rote zeile da, die ich nicht wegbekomme.
ich habs noch mal als anhang beigefügt.
danke
-
mach nach dem Forall oItems in DocItems einen Zeilenumbruch
-
hi,
wir kommen der sache schon näher ;)
im code werden keine fehler angezeigt, dafür krieg ich jetzt die meldung wenn ich den agenten aufrufe:
"object variable not set"...
der code sieht nun exakt so aus:
Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim collection As NotesDocumentCollection
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Dim sText As String
' Datei schreiben'
Dim fileNumber%
fileNumber% = Freefile
Open "C:\Temp_blabla.tmp" For Output Access Write As fileNumber%
Forall oItem In doc.Items
sText = sText + oItem.Name + " : " + oItem.Text + Chr(13) + Chr(10)
Print #fileNumber%, oItem.Name +" : " + oItem.Text
End Forall
Close fileNumber%
Dim TaskID
TaskID = Shell ("Notepad.exe C:\Temp_blabla.tmp", 3)
End Sub
ich kann keinen fehler finden. ich hatte schon gedacht, daß ich unten bei "TaskID = Shell..." den kompletten pfad zum notepad.exe angeben muß etc... aber daran liegts auch nicht.