Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

E-Mailversand mit Excel Makro - Problem mit Anhängen

<< < (2/5) > >>

klaussal:
Vielleicht wäre das die Lösung:
http://www.madicon.de/easymail/

koehlerbv:
Ich sehe gerade: Du kannst es (viel!) einfacher machen, da Du eh nur plain text schreibst und daher überhaupt kein MIME benötigst.

Set rtItem = doc.CreateRichTextItem ("Body")   
Call rtItem.AppendText (Inhalt)
rtItem.AddNewLine (2)
call rtitem.EMBEDOBJECT(EMBED_ATTACHMENT, "", Dateianhang)

Das wären die entscheidenden Zeilen.

HTH,
Bernhard

Peter Klett:
Ich hatte es so verstanden, dass Inhalt HTML ist, also nicht nur Text

koehlerbv:
Hast Recht, Peter. Lesen bildet, und so habe ich die Zeile auch entdeckt.  :)

Ergo: MIME ist Pflicht.

Bernhard

pram:
Du müsstest die Klasse von mir nach Excel/VB portieren und dann mittels mime.attach /mime.setHTML die Attchments/HTML schreiben.
Oder deinen Code nochmal überarbeiten, aktuell verletzt er gewisse Punkte die im Artikel gelistet sind:
- kein alternativer text/plain-Content
- Zugriff auf das Item-Interface ohne zuvor closeMimeEntities aufgerufen zu haben
- session.convertMime wird fest auf TRUE wiederhergestellt
- Attachments werden komplett falsch angehängt.

Auch wenn der Code vermuten lässt, dass du HTML willst, würde ich, falls möglich, den von Bernhard vorgeschlagenen Weg gehen, da dieser wesentlich einfacher ist.

Vor dem Senden solltest du aber noch ein rtItem.compact() oder .update() aufrufen.

Gruß
Roland

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete