Autor Thema: Angent- after new mail arrives  (Gelesen 1665 mal)

Offline smajli

  • Junior Mitglied
  • **
  • Beiträge: 71
  • Geschlecht: Männlich
Angent- after new mail arrives
« 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
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
********************
Domino 5.0.8 auf SP6a
Notes 5.0.8;5.0.9 auf SP6a

Offline luna

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.362
  • Geschlecht: Weiblich
  • mein name ist hase...
    • sixtnix homepage
Re: Angent- after new mail arrives
« Antwort #1 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
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
im moment in mutterschutz

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.730
  • Geschlecht: Männlich
Re: Angent- after new mail arrives
« Antwort #2 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
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Offline smajli

  • Junior Mitglied
  • **
  • Beiträge: 71
  • Geschlecht: Männlich
Re: Agent- after new mail arrives
« Antwort #3 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
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
********************
Domino 5.0.8 auf SP6a
Notes 5.0.8;5.0.9 auf SP6a

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.730
  • Geschlecht: Männlich
Re: Angent- after new mail arrives
« Antwort #4 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

« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz