Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Mehrere Attachments

(1/1)

piroue:
Hallo,

ich habe folgendes Problem: Ich möchte COM - gesteuert ein neues Memo anlegen, diesem 2 oder mehr Anhänge anhängen, und das dann versenden.

Als Ausgangspunkt habe ich das hier genommen, welches auch für einen Anhang sehr gut funktioniert:
set doc = maildb.CreateDocument
doc.Form = "memo"
doc.sendto = "hans.mustermann@gmx.de"
doc.Subject = "Auftragsbestätigung"

set rtBody = doc.CreateRichTextItem("body")
set attachme = doc.CreateRichTextItem("attachment")
set embedobj = attachme.EmbedObject(1454, "", "C:\Temp\test.vbs", "")
rtBody.appendText "Hier kommt der Text"
rtBody.addnewline 2

Wenn ich dann aber folgendes mache, um 2 Anhänge reinzupappen, dann hat das erste Attachment den richtigen Namen, das 2.



set rtBody = doc.CreateRichTextItem("body")
set attachme = doc.CreateRichTextItem("attachment")
set embedobj = attachme.EmbedObject(1454, "", "C:\Temp\test.vbs", "")
set attachme2 = doc.CreateRichTextItem("attachment2")
set embedobj = attachme2.EmbedObject(1454, "", "C:\Temp\test2.vbs", "")

Dann hat das 2. Attachment keine .VBS - Endung, und auch der Name sieht dann irgendwie komisch aus.




Wie hänge ich eine Menge an Anhängen an?

Danke!

Bastien

Ralf_M_Petter:
Warum in aller Welt machst du für jedes Attachment ein neues Richtextitem. Du kannst alle Attachments doch problemlos zum Body richtextitem hinzufügen. Das sollte normalerweise problemlos funktionieren.

Grüße

Ralf

Navigation

[0] Themen-Index