Mailen vanuit Excel

[peilert]

Onderstaande vba code heb ik in Excel gemaakt en werkt ook naar behoren, echter wil ik graag gebruik maken van een concept mail vanuit Outlook. Is het dus mogelijk om ipv bij de code .body waar nu een tekst staat aan te geven dat ik van deze concept mail gebruik wil maken?

Sub Mail_versturen()
Range("A2:C9999").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
varrij = 2
varrij1 = varrij + 1
Do Until Sheets("Blad1").Range("A" & varrij) = ""
varmailadres = Sheets("Blad1").Range("A" & varrij)
varaanhef = Sheets("Blad1").Range("B" & varrij)
varachternaam = Sheets("Blad1").Range("C" & varrij)
If Sheets("Blad1").Range("A" & varrij) < Sheets("Blad1").Range("A" & varrij1) Then
varmailadres = Sheets("Blad1").Range("A" & varrij)
varaanhef = Sheets("Blad1").Range("B" & varrij)
varachternaam = Sheets("Blad1").Range("C" & varrij)
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = varmailadres
.Subject = "Onderwerp van de mail"
.Body = varaanhef & " " & varachternaam & " Enz, enz, enz"
.Display
'.Send
End With
On Error GoTo 0
Set NewMail = Nothing
Set OutApp = Nothing
End If
varrij = varrij + 1
varrij1 = varrij + 1
Loop
End Sub