Das Notes Forum

Domino 9 und frühere Versionen => ND8: Administration & Userprobleme => Thema gestartet von: pimpfling am 15.03.10 - 10:10:13

Titel: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: pimpfling am 15.03.10 - 10:10:13

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

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: ascabg am 15.03.10 - 10:13:49

Hallo,

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

Anderenfalls tippe ich mal auf Regeln.


Andreas

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: pimpfling am 15.03.10 - 10:29:06

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

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: ascabg am 15.03.10 - 10:51:59

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

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: pimpfling am 15.03.10 - 13:31:32

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

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: pimpfling am 16.03.10 - 10:30:20

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

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: oxyd21 am 16.03.10 - 11:01:21

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

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

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: ascabg am 16.03.10 - 11:03:29

Hallo,

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


Andreas

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: oxyd21 am 16.03.10 - 11:25:07

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.

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: ascabg am 16.03.10 - 11:36:13

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

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: MartinG am 16.03.10 - 13:04:22

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?

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: pimpfling am 16.03.10 - 13:11:41

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

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: pimpfling am 16.03.10 - 13:21:17

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...

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: pimpfling am 16.03.10 - 13:28:31

Diese Zeile bewirkt immerhin das die Mail jetzt raus geht:

Call Newdoc.ReplaceItemValue( "Recipients", NewMail )

Mal sehen ob sie auch ankommt...

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: pimpfling am 16.03.10 - 13:30:43

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

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: oxyd21 am 16.03.10 - 13:34:51

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?

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: ascabg am 16.03.10 - 13:35:12

Hatte ich das nicht schon etwas frueher erwaehnt.  :D

Andreas

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: ascabg am 16.03.10 - 13:39:11

Zitat

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

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: oxyd21 am 16.03.10 - 13:55:33

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

Zitat

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

Nunja, halt gebastelt...

Lassen wir das, ist Ansichtssache. :-)

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: pimpfling am 16.03.10 - 17:55:50

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 )

Titel: Re: Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
Beitrag von: oxyd21 am 17.03.10 - 08:56:18

Geschickt wäre noch, wenn du dies verändern könntest.

Dim MailboxDB As New NotesDatabase( "Server/Company", "mail.box" )

sobald ihr mal 2 Mailboxen habt, lüppt das nicht mehr, geschweige denn mit nem anderen Server.