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
