Headerinformation?

[hats9991]

Hallo an Alle,

Zu Zeit werden wir mit allen mögliches viren versorgt. sie alnden zwar in  quarantine .aber langsam wird es nervig. über provider möchte ich ein router.verfolgung aufnehmen. dazu brauchen sie Headerinformation von Emai. wo finde ich Headerinformation in notes?

danke in voraus

[Driri]

Hi,

wenn Du die Mail als "Structured Text" in eine Textdatei exportierst, hast Du die gewünschten Headerinformationen.

[pedsola]

Hallo,

wen Du einzelnen Hops nachvollziehen willst, dann schaue Dir die "Received"-Felder der empfangenen Mail an. Dort werden sie aufgelistet...

Gruß
Pedro

[eknori]

Ansicht - Anzeigen - Seitenquelltext ?

[Onkel ToM]

Ansicht - Anzeigen - Seitenquelltext ?

Würd ich auch sagen, gibts das eigentlich auch als @Command ?
Dann könnte man sowas ins Mailfile integrieren und die lästerhaften Bemerkungen über die Zustellinformationen, die auch in 6.5 die Received-Felder verschweigen, abwürgen.

[TMC]

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:

Code

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.