Ga naar inhoud

Invoegen tabel uit Excel in Outlook


Ron001

Aanbevolen berichten

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

Link naar reactie
Delen op andere sites

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.