Invoegen tabel uit Excel in Outlook

[Ron001]

Allen

 

Ik maak sinds enige "automatisch" e-mails aan met onderstaande code.

Nu zou ik graag hebben dat (identiek dezelfde) tabel uit bijlage mee in e-mail komt?

 

Dat is dus mijn probleem, kan dit?

 

Sub Vrijgave()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    
    
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        strbody = "<font size=""3"" face=""Calibri"">" & _
                  "Allen<br><br>" & _
                  "Wanneer kunnen we onderstaande machine " & _
               'BV HIER DE TABEL
                  "<font color = #FF0000>" & _
                  " een ganse ploeg (8 uur) " & _
                  "</font>" & _
                  "onderhoud? " & _
                  "<br><br><br><br>Mvg " & _
                  "<br><br>Ron"


        On Error Resume Next
        With OutMail
            .To = "adressen"
            .CC = "adressenm"
            .BCC = ""
            .Subject = "Onderwerp"
            .HTMLBody = strbody
            .Display   'or use .Send
        End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing
   
   
End Sub

 

M2.xlsx