Screenshot in outlook einfügen HTML Mail Body

[r.speri]

Hallo Leute,

ich sitze gerade über einem Problem und hänge fest.

Ich habe ein ausgefülltes Excel Formular(UserForm) das ich beim click des Button "senden" als Screenshot einlese.
Funktioniert auch wunderbar!
Jetzt will ich den erstellten screenshot in den Body einer Outlook mail einfügen.
Manuell kann ich es in outlook mit der Tastenkombination wie gewollt einfügen.

also bei .Body = Tastenkombination strg+V ausführen und versenden.

hier die Funktion zum versenden!

Private Sub btn_KrmSenden_Click() 
'nur das aktives Formular: 
GetWindowSnapShot 1 'Funktion zum erstellen des Formular Screenshot 
'Sheets(1).Paste 
'ThisWorkbook.Save 

Dim OutApp As Object 
Dim str_Betreff As String 
Dim str_An As String 
Dim OutMail As Object 

    str_Betreff = "KRM-Formular" 
    str_An = "[email protected]" 
        
    Set OutApp = CreateObject("Outlook.Application") 
    Set OutMail = OutApp.CreateItem(0) 
    
    With OutMail 
        .To = str_An 
        .CC = str_CC 
        .BCC = str_Bcc 
        .Subject = str_Betreff 
        .HTMLBody = "" 'hier möchte ich die Tastenkombination ausführen 
        
        .Display 
        .send 
        
    End With 
    
    Set OutMail = Nothing 
    Set OutApp = Nothing 
End Sub 

Vielen Dank im voraus!  :confused:

Ronny

[r.speri]

Problem gelöst!!

Hier die Lösung!!

Private Sub btn_KrmSenden_Click()
'nur das aktives Formular:
FormularScreenshot 1

Dim OutApp As Object
Dim str_Betreff As String
Dim str_An As String
Dim OutMail As Object

    str_Betreff = "KRM-Formular"
    str_An = "[email protected]"
        
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    
    
    With OutMail
        .To = str_An
        .CC = str_CC
        .BCC = str_Bcc
        .Subject = str_Betreff
        .HTMLBody = ""
        .Display
         Application.SendKeys ("^v"), True 'screenshot wird eingefügt
        .send
      
    End With
      
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    'Abbrechen und Start Formular öffnen
    Application.Quit

kann geschlossen werden!

gruss Ronny