email inkl. quelltext, mail header etc. exportieren

[Silent_Bob]

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

[Jörg P.]

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.

[(h)uMan]

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

[Silent_Bob]

@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.

[Silent_Bob]

@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.

[(h)uMan]

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.

[Silent_Bob]

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

[(h)uMan]

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

[MartinG]

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...

[eknori]

@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

[Silent_Bob]

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

[eknori]

mach nach dem Forall oItems in DocItems einen Zeilenumbruch

[Silent_Bob]

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.