Das Notes Forum

Domino 9 und frühere Versionen => ND7: Administration & Userprobleme => Thema gestartet von: Dosta am 24.06.09 - 14:24:42

Titel: E-Mail Weiterleitungs Agent Problem
Beitrag von: Dosta am 24.06.09 - 14:24:42

Hi zusammen,

habe folgendes Problem das ich diesen Script laufen habe aber keine Attachments mitgesendet bekomme:

Sub Initialize
   
   Const sForward = "user@somewhere.de"
   Dim session As New NotesSession
   Dim note As NotesDocument
   Dim docNew As Notesdocument
   Dim db As NotesDatabase
   Dim item As NotesItem
   
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set note = session.DocumentContext
   Set item = note.GetFirstItem("Body")
   
   Set docNew = New Notesdocument(db)
   docNew.Form = "Memo"
   Call item.copyitemtodocument(docNew, "")
   docNew.SendTo = sForward
   docNew.From = " " & note.From(0)
   docNew.Principal = " " & note.From(0)
   docNew.Subject = note.Subject(0)
   
   Call docNew.Send(True)
   
End Sub


Was mache ich falsch?

Danke

Titel: Re: E-Mail Weiterleitungs Agent Problem
Beitrag von: DerAndre am 24.06.09 - 15:21:00

Dir ist klar, das Body eigentlich ein RichTextItem ist, oder?

Titel: Re: E-Mail Weiterleitungs Agent Problem
Beitrag von: koehlerbv am 24.06.09 - 16:08:00

Ausserdem: Warum änderst Du nicht einfach im bestehenden Dokument das SendTo-Item und versendest es dann?

Bernhard