Wie kan en wil mij even helpen.
Ik wil een hele brief mailen (dit is nog maar een klein stukje.
Dit wat hier boven staat is mij geleerd, echter krijg ik een foutmelding.
Wat gaat er fout, ik krijg het niet voor elkaar
Ik krijg de foutmelding bij BODYTEXT= met de brief tot de laatste zin van de brief.
Code:
'mailen
Dim OutApp As Object
Dim OutMail As Object
Dim BodyText As String
With Sheets("Steekproef")
BodyText = "Beste " & .Range("E15") & "," & vbLf & vbLf & _
"In onze administratie komt het voertuig wat door uw afdeling word gebruikt naar voren voor een steekproef. " & vbLf & _
"Gaarne verzoek ik u om het document wat als bijlage is bijgevoegd in te vullen." & vbLf & _
"Onder het kopje ritopmerking kan u de ritgegevens verklaren." & vbLf & _
"Zou u dit spoedig kunnen invullen dan wel binnen 5 werkdagen en dit retour willen sturen naar email adres. "& vbLf & vbLf & _
"Aanleiding" & vbLf & _
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = .Range("E16")
.Subject = "Steekproef voertuig"
.Body = BodyText
.Send
End With
End If
End If
Ik wil een hele brief mailen (dit is nog maar een klein stukje.
Dit wat hier boven staat is mij geleerd, echter krijg ik een foutmelding.
Wat gaat er fout, ik krijg het niet voor elkaar
Ik krijg de foutmelding bij BODYTEXT= met de brief tot de laatste zin van de brief.