VBA - Bild einfügen in Lotus Notes

Hallo Zusammen,
ich habe mir gerade eine VBA-Lösung gebastelt, die auf Basis einer Excel-Tabelle über Lotus Notes Mails an verschiedene Personen erstellt und die jeweils passenden Anhänge einfügt.
Das ganze funktioniert auch problemlos mit dem Code:
Set rtitem = objNotesMailDoc.CREATERICHTEXTITEM("Body")
rtitem.AppendTEXT (strText)
rtitem.ADDNEWLINE (1)
Call rtitem.EMBEDOBJECT(1454, "", strFilename)
Jetzt möchte ich noch einen "Screenshot" des jeweils relevanten Teils der Tabelle mit in die Mail einfügen.
Wenn ich das manuell mache, kann ich ja einfach die Zellen in Excel markieren und über die Zwischenablage in Notes als Bild einfügen.
Wie könnte ich das entsprechend über VBA realisieren (z.B. also ein Range-Objekt entsprechend an Notes übergeben, dass dies in der Mail als Bild eingefügt wird)?
Vielen Dank schonmal für Eure Hilfe!
Konstantin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SendScreenshot() Dim uiworkspace As Object Dim uidoc As Object Selection.Copy' oder was auch immer du in die Zwischenablage kopieren willst Set uiworkspace = CreateObject("Notes.NotesUIWorkspace") 'Zugriff auf UIWorkspace Set uidoc = uiworkspace.COMPOSEDOCUMENT("", "", "Memo") 'Erstellt neues Dokument (sprich Mail unter Vorlage "Memo" ) With uidoc .GOTOFIELD ("To") .INSERTTEXT ("Empfängeradresse") .GOTOFIELD ("Subject") .INSERTTEXT ("Betreff") .GOTOFIELD ("Body") .Paste .Send .Close End With Set uiworkspace = Nothing Set uidoc = Nothing End Sub

Hallo Konstantin,
ich glaub ich hab dir jetzt ne Menge Arbeit aufgehalst, wenn du deinen ganzen Code abgeändert hast:-(
Ich hatte bisher 2 Varianten:
1. Mail mit Anhang: Hier habe ich (wie du) mit Notes.NotesSession gearbeitet.
2. Mail mit Screenshot: Hier habe ich mit Workspace usw. gearbeitet.
Deines ist nun Version 3: Mail mit Anhang UND Screenshot
habe jetzt ne ganze Weile rumprobiert, um das zu realisieren und habe folgendes gebastelt. Das geht wahrscheinlich auch weniger umständlich, aber es funktioniert:


Sub MailMitAnhangUndScreenshot()
Dim session As Object
Dim db As Object
Dim doc As Object
Dim strTo As Variant
Dim strPath As String
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim AttachME As Object 'The attachment richtextfile object
Dim Workspace As Object
Dim uidoc As Object
Set session = CreateObject("Notes.NotesSession")
Set db = session.GetDatabase("", "")
If db.IsOpen = False Then db.OPENMAIL
Set doc = db.CreateDocument
With doc
.form = "Memo"
.SendTo = "Konstantin.Lösch@WasWeissIch.de"
.Subject = "Das ist ein Test"
.Sign = "0"
.SaveMessageOnSend = True
Set AttachME = doc.CreateRichTextItem("Attachment")
Set EmbedObj = AttachME.EmbedObject(1454, "", "Dein Anhang", "") 'Hier dein Anhang
.PostedDate = Now()
End With
Set Workspace = CreateObject("Notes.NotesUIWorkspace")
Set uidoc = Workspace.EDITDOCUMENT(True, doc)
With uidoc
.GOTOFIELD ("Body")
Selection.Copy'oder dein Bereich
.Paste
.Send
.Close
End With
Set EmbedObj = Nothing
Set AttachME = Nothing
Set uidoc = Nothing
Set Workspace = Nothing
Set db = Nothing
Set doc = Nothing
Set session = Nothing
End Sub

Gruß
Bertram

Beliebteste Forumthreads (12 Monate)

VBA - Bild einfügen in Lotus Notes

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Bild einfügen in Lotus Notes

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread