ich habe folgenden Code:
Anlegen = MsgBox("Die gewählte Kombination anlegen lassen?", vbYesNo, Anlegen)
If Anlegen = vbYes Then
'gesamten Bildschirm:
'GetWindowSnapShot 0
'oder nur das aktives Fenster:
If Application.Wait(Now + TimeValue("0:00:1")) Then
GetWindowSnapShot 1
End If
Dim myOutApp As Object, myMessage As Object
'Verweis auf "Microsoft Forms 2.0 Object Library" (..\system32\FM20.DLL) aktivieren !!
'sonst geht es nicht
'Dataobject wird gebraucht wegen der Zwischenablage
Dim myClpObj As DataObject
Set myClpObj = New DataObject
Set myOutApp = CreateObject("Outlook.Application")
Set myMessage = myOutApp.CreateItem(0)
With myMessage
.To = "Test@Test.com"
.Subject = "Test"
'Zwischenablage wird eingefügt
myClpObj.GetFromClipboard
.body = myClpObj.GetText(1)
'Hier wird die Mail angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
End With
Set myOutApp = Nothing
Set myMessage = Nothing
End If
Wie schaffe ich es, dass ich in den .Body ein Bild aus der Zwischenablage (hier Screenshot von Userform)und einen beliebigen Text gleichzeitig einfügen kann?Mir gelingt es nur Text in den Body einzufügen.
Kann mir jemand helfen?
Freundliche Grüße und danke
Muehli