Sub test()
Dim uiworkspace As Object
Dim uidoc As Object
Dim empfaenger As String
Dim cc As String
Dim betreff As String
Dim mailtext As String
empfaenger = Sheets("confic").Cells(1, 2)
cc = Sheets("confic").Cells(3, 2)
betreff = Sheets("confic").Cells(5, 2)
mailtext = Sheets("confic").Cells(7, 2) & vbclrf & vbclrf
Range("D3:K18").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Set uiworkspace = CreateObject("Notes.NotesUIWorkspace")
Set uidoc = uiworkspace.COMPOSEDOCUMENT("", "", "Memo")
With uidoc
.GOTOFIELD ("To")
.INSERTTEXT (empfaenger)
.GOTOFIELD ("Subject")
.INSERTTEXT (betreff)
.GOTOFIELD ("Body")
.INSERTTEXT (mailtext)
.Paste
.Send
.Close
End With
Set uiworkspace = Nothing
Set uidoc = Nothing
End Sub