Domino 9 und frühere Versionen > ND6: Entwicklung

Brauche Tipp zum Spoofing

<< < (2/4) > >>

eknori:
versuche mal

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

PeterD2:
Danke Ulrich, aber das funktioniert leider nur solange man keine Attachments an die Mails hängt. Bei mir müssen da dummerweise PDF´s dran. Genau deshalb suche ich eine Möglichkeit (falls es sie überhaupt gibt) die Mails außerhalb der mail.box zu erstellen.

Ciao
Peter

koehlerbv:
Vielleicht antworte ich jetzt etwas zu voreilig, aber wäre nicht der Weg
- Document in Deiner DB erstellen und dann ein
- CopyToDatabase (-> MAIL.BOX)
eine Lösung Deines Problems ? Dafür reichen doch die Rechte als Einlieferer.

Bernhard

PS: Mit Infos zum Spoofing sollten wir aber hier im Forum vorsichtig sein  ;)

PeterD2:
Du hast völlig Recht! Manchmal sieht man eben den Wald vor lauter Bäumen nicht.  :-\

Danke vielmals, das scheint ganz gut zu funktionieren.

Ciao
Peter

devileye1:
Hallo Forumsteilnehmer!

Ich habe in einer meiner Datenbanken die Funktion von eknori SpoofMessage im Einsatz.
Funktioniert soweit auch! Und jetzt kommt das Aber:
wenn ich Kopien und Blindkopien auf diese Weise verschicke, dann kommen die nicht an.

habe die Funktion so erweitert:
ich übergebe der Funktion die Adressen für copy und blindcopy

und mach dann:

maildoc.CopyTo = copy
maildoc.BlindCopyTo = blindcopy

Zu meiner(n) Frage(n):

1. gibt es sonst irgendwelche Felder, die noch gesetzt werden müssen?
2. Sind das überhaupt die richtigen?
3. Gibt es eine Erklärung dafür, dass es nicht funktioniert.

Ich hoffe, jemand kann mir das mal erklären!

Vielen Dank

Gruß,

Marcel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete