Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Myron am 25.09.02 - 13:51:44

Titel: Absernder-Name von MailSend-Agents
Beitrag von: Myron am 25.09.02 - 13:51:44

:'(

Kaum im Forum und schon lauter Fragen :-)

Ich habe einen Agenten der mir ein Script in einer Script-Bibliothek anwirft welches ein Mail sendet!

Hier ein kleiner Auszug:

Forall y In mailS
 SeSet rtitem = New NotesRichTextItem( maildoc, "Body" )                  
 Set richStyle = ses.CreateRichTextStyle
 maildoc.Form = "Memo"
 maildoc.Subject = "Neues Mail im " & Ordner & "-Ordner ! Betreff: " & docI.GetItemValue("Subject")(0)
 Call rtitem.AddNewLine( 2 )
 Call rtitem.AppendText("Klicken Sie hier um das Dokument zu öffnen: ")
 Call rtitem.AppendDocLink( mailsich, db.Title )
 Call rtitem.AddNewLine( 2 )
 Call rtitem.AppendRTItem( rtitemOrg )
 maildoc.~_ViewIcon = 11
 maildoc.SendTo = y
 maildoc.From = Ordner & "@case.co.at"
 Call maildoc.Send( False )
End Forall

Nun sollte hier der Absender bei >>maildoc.From = Ordner & "@case.co.at"<< der Ordnename z.B. xxx@case.co.at sein.
ist aber nicht so....
Der Absender ist der, der den Agent gespeichert hat.. Hmm

Hat jemand eine Idee wie man das defienieren kann, wer der Absender ist?

Grüße

Titel: Re: Absernder-Name von MailSend-Agents
Beitrag von: eknori am 25.09.02 - 14:06:05

Ich benutze immer diese kleine Formel

Function SpoofMessage( Byval sendas As String, Byval sendto As String, subject As
String, message As String )
Dim session As New NotesSession
Dim current As NotesDatabase
Dim mailbox As New NotesDatabase("","")
Dim maildoc As NotesDocument
Dim rtitem As NotesRichTextItem

' 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

eknori

Titel: Re: Absernder-Name von MailSend-Agents
Beitrag von: harkpabst_meliantrop am 25.09.02 - 15:13:00

Nochmal zur Verdeutlichung, damit es nicht untergeht. Der "Trick" ist das hier:

Zitat

maildoc.Principal = sendas

:)

Titel: Re: Absernder-Name von MailSend-Agents
Beitrag von: Myron am 26.09.02 - 11:11:18

:)

Danke, das hat geholfen!