Das Notes Forum

Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: smajli am 13.06.02 - 07:09:52

Titel: Angent- after new mail arrives
Beitrag von: smajli am 13.06.02 - 07:09:52
Hallo,
ich habe in einer mail Datenbank einen Agenten erstellt, der auf eingehende mails eine Antwort an den Sender schickt. Wenn der Administrator den Agenten erstellt erscheint dessen Name als Absender in der Mail. Nachdem ich die Datenbank mit der Server.id signiere erscheint der Servername als Absender.
Nun meine Frage: Kann ich den Sendername irgendwie manuell beinflussen. Z.B. Sendername "Postmaster"
Danke
Gruss
Smajli
Titel: Re: Angent- after new mail arrives
Beitrag von: luna am 13.06.02 - 07:43:15
hallo smajli,

also ich bin mir nicht 100% sicher, aber ich glaube, sowas wuerde nur gehen, wenn du dir einen id anlegst, der postmaster heisst. ansonsten glaub ich kann man das nicht beeinflussen, von wem der agent kommt.

falls jemand was anderes weiss, wuerde mich das auch interessieren, denn das gleiche problem hab ich auch.

gruss,
daniela
Titel: Re: Angent- after new mail arrives
Beitrag von: eknori am 13.06.02 - 07:52:50
Kommt ganz drauf an, wie du den Agent aufgebaut hast.

Habe hier ein code snippet, mit dem du eine Mail verschicken kannst, wobei du den Absender frei wählen kannst

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: Agent- after new mail arrives
Beitrag von: smajli am 13.06.02 - 10:27:07
Hallo Eknori,
ich habe es geschafft den Code per copy and paste in meinen Agenten zu kopieren.
Wenn ich den Agenten teste wird mir angezeigt dass er z.B. ein Dokument gefunden hat das dem Kriterium enspricht.
Aber leider passiert nichts. Es wird keine Message gesendet.
Was mach ich falsch und an welcher Stelle muss ich den Absendernamen eintragen ?
Gruss
Smajli
Titel: Re: Angent- after new mail arrives
Beitrag von: eknori am 13.06.02 - 12:00:22
Hallo smajli,

der Code ist ja lediglich eine Funktion
Dieser Funktion musst du natürlich noch die entsprechenden Parameter übergeben.

also SpoofMessage( "Postmaster@xyz.com", "Empfänger@wo.denn", "Hier kommt das Subject rein", "Und hier dann der eigentliche text")

Ulrich