Internet Mail verschlüsselt weiterleiten

[nitram8]

Hallo,

Ich bin mit meinem Problem schon ziemlich weit gekommen - leider fehlt noch der krönende Abschluss.

Ziel:
Eingehene Mail soll verschlüsselt an eine Internet-Adresse weitergeleitet werden. Von dem Internet Account soll dann die verschlüsselte Mail per POP3 mit jedem Mail Client abgeholt werden könnten. Die ursprüngliche Sende-Adresse soll erhalten bleiben (sozusagen als  Web-Mail Ersatz).

Soweit bin ich gekommen:

1. Internet Weiterleitung mit ursprünglicher Sende-Adresse

Das macht dieses Script.

Code

Sub Initialize
	Const sForward = "irgendwer"
	Dim session As New NotesSession	
	Dim note As NotesDocument	
	Dim docNew As Notesdocument	
	Dim db As NotesDatabase	
	Dim item As NotesItem		
	Set session = New NotesSession	
	Set db = session.CurrentDatabase	
	Set note = session.DocumentContext	
	Set item = note.GetFirstItem("Body")		
	Set docNew = New Notesdocument(db)	
	docNew.Form = "Memo"	
	Call item.copyitemtodocument(docNew, "")	
	docNew.SendTo = sForward	
	docNew.From = " " & note.From(0)	
	docNew.Principal = " " & note.From(0)	
	docNew.Subject = "-> " + note.Subject(0)
	docNew.EncryptOnSend = True
	Call docNew.Send(True) 	 
End Sub

Nur leider funktioniert hier die Verschlüsselung nicht obwohl der Adresseintrag "irgendwer" vom Empfänger samt Internet Zertifikat auf einem Domino Adressbuch liegt.
Das soll an der  Konvertierung von Rich to MIME und dem Zeitpunkt des Verschlüssels liegen. Habe ich zwar nicht verstanden - es geht auf jeden Fall nicht.

2. MIME Konvertierung

Das soll dieses Script machen:

Code

Sub Initialize
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim body As NotesMIMEEntity
	Dim header As NotesMIMEHeader
	Dim stream As NotesStream
	Set db = s.CurrentDatabase
	Set stream = s.CreateStream
	s.ConvertMIME = False ' Do not convert MIME to rich text
	Set doc = db.CreateDocument
	Call doc.ReplaceItemValue("Form", "Memo")
	Set body = doc.CreateMIMEEntity
	Set header = body.CreateHeader("Subject")
	Call header.SetHeaderVal("MIME message")
	Set header = body.CreateHeader("To")
	Call header.SetHeaderVal("stada-qa@gmx.de")
	Call stream.WriteText("Text of message.")
	Call body.SetContentFromText _
	(stream, "text/plain;charset=UTF-8", ENC_NONE)  
	doc.EncryptOnSend = True
	Call doc.Send(False)
	s.ConvertMIME = True ' Restore conversion
End Sub

Nur, wie bringe ich diesem Script bei den ursprünglichen Senden, den Mail-Text und alle Anhänge in MIME einzubauen.


Da komme ich nicht mehr weiter. Danke für jede Hilfe.

Nitram8