Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: caru am 05.09.03 - 17:50:07
-
Hallo zusammen,
ich bekomme das einfach nicht in den Griff... oder bin zu blöd :).
Jedenfalls habe ich einen Agent, welcher unter anderem auch Mails verschickt. Leider schickt er die Mails immer mit der Absenderadresse des Users, welcher den Agent zuletzt signiert hat... also meiner, und das ist nicht gut.
Ich habe versucht die auf der Memo Maske verwendeten Felder "Principal" und "From" (und "MailFrom") mit einer anderen Adresse zu belgen, leider funtzt das so nicht.
Vieleicht weiß jemand von euch was ich da tun kann...
-
Tja, Notes ist ein recht sicheres System - und DU sagst dem Agent, was er an wen mailen soll, also wirst Du auch als Sender geführt.
Du könntest zwar Mails direkt in die MAIL.BOX eines Servers kippen, aber das ist ggf. aufwändiger, als wenn Du anderweitig in Deinem Mail (wie teilweise von Dir schon beschrieben) darauf hinweist, daß "Dein" Mail automatisch generiert wurde.
Bernhard
PS: Es wäre ja auch gar nicht gut, wenn man Notes-Mails erzeugen könnte im angeblichen Namen der Personalabteilung: "Bitte holen Sie sich heute zwischen 14:00 und 15:00 Uhr Ihre Papiere bei uns ab" ... Damit könnte ja Klein-Fritzchen eine ganze Firma in den Ruin treiben ...
PSS: Notes ist nicht Simple-SMTP und kein Outlook ;-)
-
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
-
Wie schon gesagt - in Notes geht mit entsprechendem Aufwand nahezu alles ;-)
Aber sagt es nicht
- Euren Kollegen
- der Geschäftsführung
- dem Betriebsrat
- dem BSI
- Microsoft ... ;-)
-
Hi,
danke für eure Antworten, aber ich musste einfach nur das Feld "InetFrom" auf der Memo Maske mit der entsprechenden Adresse belegen ;)