Berechnete Signatur anhängen per Script

[daniel1938]

Hallo,

wir möchten unsere Mailschablone so ändern, dass der User eine unternehmensweit einheitliche Signatur beim Öffnen eines neuen Memos sieht und diese mit versendet wird.

OK, in die Memo-Maske kommt ein berechnetes RT-Feld mit dem gewünschten Inhalt. Und vor sem Speichern muss ich dieses noch an das Body-Item anfügen. Habe mal die CoreEmailClasses durchgeschaut, der Codeschnipsel

' Attachment
Dim it
Set it=Me.m_noteMemo.GetFirstItem("Body")
it.AppendRTItem("aBody")
Me.m_noteMemo.Save True,True
... Send ...

Blieb aber wirkungslos. Im Script Debugger wurde das AppendRTItem nicht ausgeführt (mache bei "TRAP" weiter).

Gibt es einen Lösungsweg?

Vielen Dank,
Gruß,
Daniel

[Untitled]

muss bei AppendRTItem nicht ein RichTextItem übergeben werden?

Also meiner Meinung nach müsstest du das etwa so machen:

Code

Dim signature as RichTextItem
Dim it  as RichTextItem
Set it = Me.m_noteMemo.GetFirstItem("Body")
Set signature = Me.m_noteMemo.GetFirstItem("aBody")
it.AppendRTItem(signature)
Me.m_noteMemo.Save True,True
... Send ...

Grüsse
Untitled