Domino 9 und frühere Versionen > Administration & Userprobleme

email inkl. quelltext, mail header etc. exportieren

<< < (3/3)

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.

Navigation

[0] Themen-Index

[*] Vorherige Sete