Hallo zusammen,

inzwischen habe ich das Internet rauf- und runtergesucht, da ich gerne über VBA (Access) eine eMail senden möchte. Als Client kommt bei mir Notes (6.5) zum Einsatz. Das senden einer eMail selbst ist kein Thema und auch Anhänge etc. stellen keine Schwierigkeiten dar. Das Problem liegt in der Kombination!

Zum einen möchte ich die Texte in der Mail formatieren, d.h. Schriftart, größe sowie Fett oder Kursiv festlegen und zum anderen möchte ich grafiken (JPG) direkt in die Mail integrieren.

Um Texte gescheit formatieren zu können, nutze ich das RichStyle-Verfahren:

Set oSess = CreateObject("Notes.NotesSession")

UserName = oSess.UserName

MailDBName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"

MailDBName = "\MSGM0033\srv\dbcom\mailfailover\mailin\escalapb.nsf"

Set oDB = oSess.GETDATABASE("", MailDBName)

Call oDB.OPENMAIL

Set doc = oDB.CreateDocument

doc.Form = "Memo"

Set rtitem = doc.CreateRichTextItem("Body")

Dim richStyle As Object

Set richStyle = oSess.CreateRichTextStyle

richStyle.notesfont = FONT_HELV

richStyle.FontSize = 12

usw.

Mit dieser Möglichkeit habe ich alle Macht auf dem Schriftsatz, aber Bilder kann ich nicht einbinden.

Dagegen ist es relativ leicht Bilder einzubinden mit folgender Methode:

Dim uiworkspace As Object

Dim uidoc As Object

Set uiworkspace = CreateObject("Notes.NotesUIWorkspace") 'Zugriff auf UIWorkspace

Set uidoc = uiworkspace.COMPOSEDOCUMENT("", "", "Memo") 'Erstellt neues Dokument (sprich Mail unter Vorlage "Memo" )

Call uidoc.Import("JPEG Image", "Beispiel.jpg")

So, den Import kann ich nur anwenden, wenn "NotesUIWorkspace" angesprochen wird, aber hier bin ich bei der Schrift eingeschränkt (z.B. keine Fettschrift).

Möchte ich diese ändern, nutze ich die erste Möglichkeit, kann aber wieder keine Bilder (wie in Beispiel 2) einbinden. Ein Teufelskreis!

Ich bin mir sicher, das geht bestimmt irgendwie. Allerdings bin ich diesbezüglich absoluter Anfänger.

Ich hoffe, mir kann jemand weiterhelfen und bedanke mich schon mal für Eure Hilfe.

Gruß

Guido

Hmmm..... da bis jetzt noch niemand geantwortet hat, gehe ich davon aus, das ich hier im falschen Forum bin ODER Notes per API einfach nicht diese (m.E. doch logische) Funktion bietet. Wirklich Schade !

ich hatte von 2003 bis 2008 danach gesucht, eine vernünftige lösung für beide aufgabenstellungen war IMO mit LoNo-automatisierung (versionen 5, 5.5, 6.0, 6.5) nie zu erreichen.

ich empfehle mittlerweile reines SMTP, das der domino server ja auch spricht

s'Amstel