Hallo zusammen,
ich habe mich heute hier neu angemeldet, weil ich als Gast hier im Forum nicht mehr weiterkomme,
da ich zu meinem jetztigen Problem keine Lösung mehr über die Suche bekomme... ;-)
Problem:Ich habe eine Datenbank entwickelt, welche die Passwörter von User fürs Internet/Intranet im NAB zurücksetzt.
Ein Agent generiert automatisch ein 8 stelliges Passwort, schreibt das neue Pwd ins NAB und schickt dann eine
Mail an den User um ihm das neue Pwd mitzuteilen.
Beim versenden der Mail müssen die Optionen "Keine Kopie zulässig" und "Verschlüsselt" aktiv sein (die Revision will das so).
-> beim normalen mail versenden über doc.send wir die Mail verschlüsselt , der Empfänger kann diese lesen und alles ist gut :-)
Aber dadurch das die Möglichkeit besteht, das die Mail unzustellbar ist und im Nirvana zu verschwinden droht, fake ich den
Absender mit Hilfe der Mail.Box (wurde ja schon öfter hier im Forum angesprochen).
Sprich ich nehme die Mail, die mit dem doc.send zuverlässig funktioniert hat und kopiere alle Items in ein neues Doc welches ich in der Datenbank
mail.box erstellt habe. abschliessend ein doc.save und alles ist soweit in Ordnung.
-> nicht zustellbare mails werden jetzt umgeleitet an den gefakten adressaten (alles in Ordnung) ABER....
wenn ich die richtig zugestellt Mail probiere zu öffnen dann sagt mir mein Client, kann nicht alle Teile der Mail anzeigen, da diese verschlüsselt sindSprich das Mail versenden über die Mail.Box verschlüsselt die Mail derart, das sie kein user mehr öffnen kann.
Habt ihr irgendeine Idee, woran das liegen könnte, welche Verschlüsselungsschlüssel hier bei genommen werden oder ähnliches?!
Danke für eure hilfe...
Call memo.replaceitemvalue("Form", "Memo")
Call memo.replaceitemvalue("$KeepPrivate","1")
Call memo.replaceitemvalue("Encrypt","1")
Call memo.replaceitemvalue("EncryptOnSend", "1")
Call memo.replaceitemvalue("EncryptionKeys", key)
Call memo.replaceitemvalue("PublicEncryptionKeys",username)
Call memo.replaceitemvalue("ReplyTo", Absender)
Call memo.replaceitemvalue("From", AbsenderLN)
Call memo.replaceitemvalue("INetFrom", Absender)
Call memo.replaceitemvalue("Principal", AbsenderLN)
Call memo.replaceitemvalue("PostedDate", Now)
'An wen, Priorität, Betreff
Call memo.replaceitemvalue("SendTo", username)
Call memo.replaceitemvalue("Recipients", username)
Call memo.replaceitemvalue("Importance",mailpriority)
Call memo.replaceitemvalue("Subject", mailbetrefftext)
'Mailtext wird aus Array zusammengefügt
For i=0 To Ubound(mailtextzeile)
Call rtitem.AddNewLine( 2 )
Call rtitem.AppendText(mailtextzeile(i))
Next
'Verschlüsseln, danach den shared key entfernen
Call memo.Encrypt
Call memo.removeItem("sharedEncryptionKeys")
Set dbMailBox = session.GetDatabase(server, MailBoxName)
If Not dbMailBox Is Nothing Then
Set docMailBox = New NotesDocument(dbMailBox)
Call memo.CopyAllItems( docMailBox, True )
Call docMailBox.replaceitemvalue("From", AbsenderLN)
Call docMailBox.replaceitemvalue("INetFrom", Absender)
Call docMailBox.replaceitemvalue("Principal", AbsenderLN)
Call docMailBox.replaceitemvalue("PostedDate", Now)
docMailBox.Save( False, False )
Else
errortext = errortext + " // Mailbox konnte nicht geöffnet werden!"
End If