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
