Mailen vanuit excel

[PeterBijns]

Beste allemaal,

Vandaag las ik een vraag van CVGhulp omtrent het mailen vanuit Excel met het eerste werkblad als pdf bestand.

Ik heb de code gebruikt in een bestand en het werkt naar behoren alleen wil ik meerdere regels in de body plaatsen zodat ik een aanhef heb en dan 2 lege regels en dan weer wat tekst.

Mijn vraag is dat mogelijk?

Hieronder de code met de inhoud vaan de body dat is "Beste Piet, Hier weer een voorblad"

Graag wil ik ook gelijk maar een afsluiting erin krijgen van:

"Met vriendelijke groet,

Peter"


Hieronder de VBA code welke in een andere macro is opgenomen.

'Werkblad opslaan en mailen
Dim Pad As String
Dim Bst As String
Dim Otv As String

Dim OutApp As Object
Dim OutMail As Object

Pad = "D:\Test"
Otv = "Test@gmail.coml"
Bst = Sheets("Voorblad").Range("voorblad!G4") & " " & Range("voorblad!F13") & " " & Range("voorblad!M4") & " - " & Range("meetgegevens!I2") & " - " & Range("voorblad!F9").Value & ".pdf"

Sheets("Voorblad").Range("B1:R93").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Pad & "\" & Bst, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=True, _
OpenAfterPublish:=False

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.to = Otv
.CC = ""
.BCC = ""
.Subject = "Voorblad"
.Body = "Beste Piet," & "Hier weer een voorblad"
.Attachments.Add Pad & "\" & Bst
.Display
End With

 

[HSV]

Twee extra lege regels met:

.Body = "Beste Piet," & [COLOR=#ff0000]vbnewline & vbnewline & [/COLOR]"Hier weer een voorblad"

 

[PeterBijns]

Bedankt HSV

HSV

Super heel eenvoudig maar je moet het maar weten.

Reuze bedankt ik been er erg mee geholpen.

Groet, Peter