Domino 9 und frühere Versionen > ND8: Administration & Userprobleme

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

<< < (3/5) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete