Ich möchte gerne einen kopierten Bereich im Outlook Mail einfügen, der Text wird bereits eingefügt aber ich würde es gerne übersichtlicher gestallten.
a la "Copy Paste" ... nur ohne manuelles zutun da später eine Schlaufe laufen soll...
Mein Code bisher:
Private Sub CommandButton2_Click()
' Application.ScreenUpdating = False
Set ThisBook = ActiveWorkbook
Dim Nachricht As Object, OutApp As Object
Dim myClpObj As DataObject
Set myClpObj = New DataObject
Dim mailadd, mailcc As String
mailadd = "empfänger@empfänger.ch" 'ThisBook.Worksheets("Einstellung").Range("G12").Value
mailcc = "copy@copy.ch" 'ThisBook.Worksheets("Einstellung").Range("G14").Value
ThisBook.Worksheets("Abfrage").Activate
Dim plac As Integer
plac = ThisBook.Worksheets("Abfrage").Cells(Rows.Count, 1).End(xlUp).Row + 1
Dim rngbereich As Range
Set rngbereich = ThisBook.Worksheets("Abfrage").Range("A4:G" & plac)
rngbereich.Copy
'rngbereich.CopyPicture Appearance:=xlScreen, Format:=xlPicture
'rngbereich.CopyPicture xlScreen, xlBitmap
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
' >>>>> MAIL ADRESSE ANPASSEN
" & "
Holla"
.display
' >>>>>> Automatisch senden
Hier der link zur Beispielmappe:https://www.herber.de/bbs/user/149185.xlsm
Hier noch ein Bild meiner Wunsch-Vorstellung:
Danke für eure vorschläge.
Gruss
Jürgen