Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...

[pimpfling]

Hallo,

Für einen bestimmten Anwendungsfall brauche ich die Möglichkeit das ein User manuell eine Mail an eine andere Adresse umleitet.
Ich weiß das es früher mal eine solche Funktion im Notes Client gab. (5.0.xx glaube ich) Nun finde ich diese Funktion leider nicht mehr.
Mein Boss hat mir gerade vorgehalten das es ja im Outlook ganz einfach sei und das die Leute mit dem Notes Client ja nun umsteigen müssten (Etwas überspitzt natürlich)
Hat sich die umleiten Funktion nun an eine Stelle versteckt sie ich nicht mehr finde oder ist das ganze rausgefallen?
Hier im Forum habe ich nichts gefunden...

Gruß Stefan

[ascabg]

Hallo,

Definiere einmal die Aussage "manuell umleiten"?
Aktuell kann ich mir hierunter nicht so richtig etwas vorstellen.

Anderenfalls tippe ich mal auf Regeln.


Andreas

[pimpfling]

Eine Mail umleiten bedeutet das ich eine erhaltene Mail an jemanden schicke und diese im Namen des ursprünglichen Versenders beim Empfänger erscheint.

[ascabg]

Ich mag mich taeuschen, aber mit den Bordmitteln eines Standard-Client ist bzw. war dieses nicht moeglich.
Eigene Routinen (Entwicklungen) ausgenommen.

Erreichen mit den Bordmitteln kannst Du dieses mittels eines Agenten bzw. über eine entsprechende Regel. (ist dann aber nicht mehr manuell)


Andreas

[pimpfling]

Ich bin mir sehr sicher das es diese Funktion in dem 5er Client gab.
Leider habe ich kein entsprechendes Template mehr hier um das zu checken.
Den client gibt es auch nicht mehr zu downloaden bei IBM.

Falls alle Stricke reissen, hat jemand einen Agenten der so etwas macht?
Oder hat nen tipp für mich wie ich das umsetze?

Gruß Stefan

[pimpfling]

Hallo,

ich versuche es jetzt per Agent zu lösen...

Sub Initialize()
Dim MailboxDB As New NotesDatabase( "DominoServer/Company", "mail.box" )
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim Newdoc As NotesDocument

Dim workspace As New NotesUIWorkspace
Dim response As Variant
Dim NewMail As String

NewMail = "mailadresse@gmx.de"
response = workspace.Prompt (PROMPT_OKCANCELEDIT, "Mail umleiten...", "Bitte hier die Mail Adresse eingeben", NewMail)
  If IsEmpty (response) Then
    MessageBox  "Nichts gemacht...", , ""
  Else
    NewMail = response
  End If

Set uidoc = workspace.CurrentDocument
'Call uidoc.FieldSetText( "SendTo", NewMail )
Set doc = uidoc.Document
Call doc.CopyToDatabase( MailboxDB )
Set Newdoc = doc.CopyToDatabase( MailboxDB )
Call Newdoc.ReplaceItemValue( "SendTo", NewMail )
Call Newdoc.ReplaceItemValue( "InetSendTo", NewMail )
Call Newdoc.ReplaceItemValue( "EnterSendTo", NewMail )
Call Newdoc.save(True, false)

End Sub

Leider funktioniert das ganze nicht so richtig.
Ich bekomme immer die Meldung: Router: "Message 6C8E02CD contains no recipients" in der Server Console
wie muss ich meinen Agenten umbauen damit es klappt?

PS. Bitte diesen Thread ins Entwickler Forum schieben, danke...

Stefan

[oxyd21]

Erst in die Mail.box kopieren und dann was ändern? 

Schau dir mal die Send-Methode in der Hilfe an.

[ascabg]

Hallo,

Ich tippe eher darauf, dass das Feld "Recipients" fehlt.


Andreas

[oxyd21]

Hmmm, eher nicht ...

CopyToDatabase verschiebt das Ding in die Mail.box und diese haut das Teil raus. Da zieht meiner meinung nach kein ReplaceItem mehr, zumindest so nicht bzw. nicht optimal.

[ascabg]

Scho mal versucht nicht mit CopyToDatabase sondern mit

Code

set doc = New NotesDocument("mail.box")
call docA.CopyAllItems(doc, True)

jetzt die Felder manipulieren

und zum Schluss

call doc.Save(true, true)

Andreas

[MartinG]

Das geht doch auch ganz einfach mit einem Agent und einfachen Aktionen bzw noch einfacher mit ganz normalen Mailregeln (Kopie senden), oder irre ich mich da?

[pimpfling]

Habe den Code jetzt geändert.
Die Fehlermeldung ist jedoch die selbe...

Sub Initialize()
Dim MailboxDB As New NotesDatabase( "Server/Company", "mail.box" )
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim Newdoc As NotesDocument

Dim workspace As New NotesUIWorkspace
Dim response As Variant
Dim NewMail As String

NewMail = "mailadresse@gmx.de"
response = workspace.Prompt (PROMPT_OKCANCELEDIT, "Mail umleiten...", "Bitte hier die Mail Adresse eingeben", NewMail)
  If IsEmpty (response) Then
    MessageBox  "Nichts gemacht...", , ""
  Else
    NewMail = response
  End If

Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set Newdoc = New NotesDocument(MailboxDB)

Call doc.CopyAllItems(Newdoc, True)
Call Newdoc.ReplaceItemValue( "SendTo", NewMail )
Call Newdoc.ReplaceItemValue( "InetSendTo", NewMail )
Call Newdoc.ReplaceItemValue( "EnterSendTo", NewMail )
Call Newdoc.save(True, True)

End Sub

[pimpfling]

Kurios finde ich auch das die Mails nirgens auftauchen.
Es liegen keine Dokumente in der Mail.box
Es gehen auch keine Mails mit Fehlermeldungen an den Absender zurück...

[pimpfling]

Diese Zeile bewirkt immerhin das die Mail jetzt raus geht:

Call Newdoc.ReplaceItemValue( "Recipients", NewMail )

Mal sehen ob sie auch ankommt...

[pimpfling]

Es klappt!!!
Vielen Dank für die Unterstützung...

[oxyd21]

Du hast solltest dir auch das Notes-Datenbank-Dokumenten-Konstrukt nochmal zu Gemüte führen.

Warum erstellst du das Ding in der Server-Mailbox?
Warum benutzt du nicht die Send-Methode?

[ascabg]

Hatte ich das nicht schon etwas frueher erwaehnt.  

Andreas

[ascabg]

Warum benutzt du nicht die Send-Methode?

Weil diese, wenn die Felder nicht richtig gesetzt sind, bewirkt, dass, wenn manuell ausgefuehrt wird, der Name des aktuellen Benutzers als Absender erscheint und wenn periodisch, der Name des Servers bzw. der Name des Signers des Agenten.
Ist eigentlich nichts anderes als der Button "Senden" der Mailbox.

Und Stefan möchte wohl wie es aussieht, die Originalinformationen behalten.


Andreas

[oxyd21]

Schon klar, aber Agenten die Dokumente in die Server-Mailbox packen, ist m.E. "gefriemelt".

Ist eigentlich nichts anderes als der Button "Senden" der Mailbox.

Nunja, halt gebastelt...

Lassen wir das, ist Ansichtssache. :-)

[pimpfling]

Hallo nochmal,

um bei dem ganzen jetzt auch noch RFC822 Konform zu bleiben, habe ich den Agenten jetzt noch einmal angepasst:
Hier die wichtigen Zeilen:

Call doc.CopyAllItems(Newdoc, True)
Call Newdoc.ReplaceItemValue( "Resent_To", NewMail )
Call Newdoc.ReplaceItemValue( "Resent_Date", Now )
Call Newdoc.ReplaceItemValue( "Resent_From", NewDoc.Getitemvalue("SendTo") )
Call Newdoc.ReplaceItemValue( "Resent_Message_ID", NewDoc.Getitemvalue("$MessageID") )
Call Newdoc.ReplaceItemValue( "Recipients", NewMail )