Ansicht - Anzeigen - Seitenquelltext ?
Würd ich auch sagen, gibts das eigentlich auch als @Command ?
Soweit ich weiß gibt's da leider keinen @Command.
Aber:
OpenNTF hat da was nettes im Mailtemplate, um ein Mail zu exportieren:
Sub exportRFC
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim mime As NotesMIMEEntity
Dim stream As notesstream
Dim mimeBoundaryEnd As String, mimeBoundarystart As String, exportFileName As String, directory As String, macro As String
Dim mimeType As String, pathName As String
Dim tmp As Variant
Dim fileNum As Integer, records As Integer
Set db = sess.CurrentDatabase
sess.ConvertMIME = False ' Do not convert MIME to rich text
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
directory$ = sess.GetEnvironmentstring("Directory",True)
fileNum% = Freefile()
records% = 0
While Not(doc Is Nothing)
macro$ = {@replacesubstring("} + doc.subject(0) + {";":";";")}
tmp = Evaluate(macro$)
exportFileName$ = directory$ + "\" + tmp(0) + " -- " + doc.NoteID + ".eml"
'exportFileName$ = directory$ + "\" + doc.subject(0) + doc.NoteID + ".eml"
Set mime = doc.GetMIMEEntity
pathName$ = doc.subject(0)
If Not(mime Is Nothing) Then
Set stream = sess.Createstream
While Not stream.Open(exportFileName$, mime.Charset)
pathName$ = Inputbox ("Please choose a valid filename","Error in export",doc.subject(0))
exportFileName$ = directory$ + "\" + pathName$ + doc.NoteID + " -- " + ".eml"
Wend
Call stream.Close
macro$ = {@replacesubstring("} + pathName$ + {";":";"-")}
tmp = Evaluate(macro$)
exportFileName$ = directory$ + "\" + tmp(0) + doc.NoteID + " -- " + ".eml"
If Dir$(exportFileName$) <> "" Then
Kill exportFileName$
End If
Call stream.Open(exportFileName$, mime.Charset)
mimeType = mime.ContentType
mimeBoundarystart = mime.Boundarystart
mimeBoundaryEnd = mime.BoundaryEnd
Call mime.GetEntityAsText(stream)
Set mime=mime.GetNextEntity
While Not (mime Is Nothing)
Call stream.WriteText("",3)
'Call stream.WriteText(multiMIME$,3)
Call stream.WriteText(mime.Boundarystart)
Call mime.DecodeContent()
Call mime.EncodeContent( 1727 )
Call mime.GetEntityAsText(stream)
Call stream.Writetext(mime.BoundaryEnd)
Set mime=mime.GetNextEntity
Wend
Call stream.Writetext(mimeBoundaryEnd)
Call stream.Close
records% = records% + 1
Else
Messagebox doc.GetItemValue("subject")(0),,"Memo not in MIME format."
End If
NextMemo:
Set doc = dc.GetNextDocument(doc)
Wend
Messagebox Cstr(records%) + " Memo's exported to " + directory$,0,"Conversion complete"
sess.ConvertMIME = True ' Restore conversion
End Sub
Müsste man halt noch entsprechend anpassen.