Domino 9 und frühere Versionen > ND8: Administration & Userprobleme
Notes 8.5: Eine Mail manuell umleiten, nicht weiterleiten...
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)
--- Ende Code ---
Andreas
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln