Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

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

<< < (4/5) > >>

koehlerbv:

--- Zitat von: m3 am 13.12.11 - 15:05:08 ---Bis nach Weihnachten ;)

--- Ende Zitat ---

Widerspruch, Euer Ehren  ;)

Bernhard

pram:
Also du kannst ENTWEDER ein RichtextItem + EmbedObject verwenden (was bedeutet: du kannst kein HTML verwenden)
ODER ein Mime-Item.

der Mischmasch geht nicht. (zumindest nicht zuverlässig)

Schau dir doch mal den Beispielcode an, und versuch die Klasse in Excel zum Laufen zu bringen:

Aus dem Ärmel heraus würd ich sagen, dass der Konstruktor noch um die Session erweitert werden muss, da Excel kein "new NotesSession" kennt:

--- Code: ---Public Sub new(doc As NotesDocument, itemName As String, sess as NotesSession)
...
set Session = sess '  anstatt von Set session = New NotesSession

--- Ende Code ---
/edit: wobei ich zugeben muss, dass ich keinen blassen Schimmer habe, ob und wie VB-Script Klassendeklarationen erwartet.

und im Code dann:


--- Code: ---' Auslesen der Mail-DB
Set session = CreateObject("Notes.NotesSession")
server = session.GetEnvironmentString("MailServer", True)
mailfile = session.GetEnvironmentString("MailFile", True)
Set db = session.getdatabase(server, mailfile)

' E-Mail vorbereiten
Set doc = db.createdocument()
doc.Form = "Main Topic"
doc.SendTo = Empfaenger
doc.Subject = Cells(2, 5).Value
doc.principal = "Finanzinstitute@nordlb.de"
doc.viewicon = "75"
doc.FROM = session.UserName

' Mime erzeugen
Dim mime As New MultipartRelatedMime(doc, "Body", session) ' Klasse anlegen
Set stream = session.createStream
Call stream.Writetext(LARRY)
cid = mime.attach(stream, ENC_BASE64, "", "image/gif") ' Bild anhängen und CID merken
Call stream.close()
Call mime.setHtml(Replace(HTML, "%IMAGE%", cid), "bitte benutzen Sie einen HTML-fähigen Mailclient") ' CID im HTML ersetzen
Call mime.closeMime()

' und versenden
Call doc.send(False,session.Effectiveusername) ' Mail senden


--- Ende Code ---

Wenn du den Larry dann unter Excel versenden kannst, sollte HTML + weitere Attachments kein Problem sein.

Gruß
Roland

m3:

--- Zitat von: koehlerbv am 13.12.11 - 15:12:39 ---
--- Zitat von: m3 am 13.12.11 - 15:05:08 ---Bis nach Weihnachten ;)

--- Ende Zitat ---

Widerspruch, Euer Ehren  ;)

Bernhard

--- Ende Zitat ---
*ggg* Ja, eh. :)

koehlerbv:

--- Code: ---Call doc.send(False,session.Effectiveusername) ' Mail senden
--- Ende Code ---

Obicht - das versendet aber an den Ausführer des Codes.

Bernhard

%EDIT: Das nicht unwichtige Wörtchen "an" fehlte ...

pram:
stimmt, Bernhard, ist in meinem Beispiel auch falsch...

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete