Ik heb nu (o.a. dankzij dit forum) de volgende macro in gebruik voor het opstellen van een email vanuit Excel, en dat werkt prima:
(NB. Er is gekozen voor .Display om de mail eerst te controleren en dan handmatig te verzenden)
Ik zou aan de mail graag ook een afbeelding (logo) toe willen voegen of gewoon de standaard ingevulde handtekening van Outlook invoegen. Kan dat?
Code:
Sub mailBG()
On Error GoTo ErrHandler
' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
Dim strbody As String
strbody = "Order " & WorksheetFunction.Text(Worksheets("Data_Leverbon").Range("b5"), "DD.MM.YYYY") & " :" & vbNewLine & vbNewLine & _
"- " & Worksheets("Leverbon").Range("b31") & " KN" & vbNewLine & _
"- " & "GW " & WorksheetFunction.Text(Worksheets("Data_Leverbon").Range("a5"), "DD.MM.YYYY") & vbNewLine & _
"- " & Worksheets("Leverbon").Range("b28") & vbNewLine & _
"- Prijs franco"
' CREATE EMAIL OBJECT.
Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.to = "test@test.nl"
.cc = "test@test.nl"
.Subject = "KN " & WorksheetFunction.Text(Worksheets("Data_Leverbon").Range("b5"), "DD.MM.YYYY")
.Body = strbody
.Display ' DISPLAY MESSAGE.
End With
' CLEAR.
Set objEmail = Nothing: Set objOutlook = Nothing
ErrHandler:
End Sub
(NB. Er is gekozen voor .Display om de mail eerst te controleren en dan handmatig te verzenden)
Ik zou aan de mail graag ook een afbeelding (logo) toe willen voegen of gewoon de standaard ingevulde handtekening van Outlook invoegen. Kan dat?
Laatst bewerkt: