String van meerdere regels

[Sebasttiaan]

Ik ben bezig met een programma te maken met Visual Basic 6.3 in excel. Ik wil mn sheet verzenden via outlook. Dit werkt prima, email programma wordt geopend, attachments worden toegevoegd en de body wordt ingevuld.

Ik wil alleen in de '.body' meerdere regels plaatsen zodat er een echt bericht komt te staan zoals bijvoorbeeld:
Beste "naam",

Hierbij lalalalalala

Groetjes Sebastiaan

Oftewel, tekst met lege regels ipv één doorlopende regel. Mijn vraag is dan ook, is dit mogelijk en zou iemand mij misschien kunnen helpen?

Alvast bedankt,
Sebastiaan


Sub mail()

' De macro is opgenomen op 26-6-2007 door Sebastiaan van der Meulen.
'

'
Dim naam, adres, aanhef, onderwerp

naam = ActiveWorkbook.Name
adres = ActiveSheet.Range("a32").Text
// e-mail adres

onderwerp = "Bevestiging " & ActiveSheet.Range("a29").Text & " " & ActiveSheet.Range("c36").Text
// .subject

aanhef = "Beste " & ActiveSheet.Range("a29").Text & ", Hierbij lalala. Groetjes, Sebastiaan"
//dit komt in .body te staan en is nu dus een doorlopende regel

//vanaf hieronder wordt outlook geopend ed

Dim OutApp As Object
Dim OutMail As Object
Dim Destwb As Workbook

Set Destwb = ActiveWorkbook
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = adres
.CC = ""
.BCC = ""
.Subject = onderwerp
.body = aanhef
.Attachments.Add Destwb.FullName
.display
End With

End Sub

 

[Wigi]

Je kan een nieuwe regel krijgen door vbCrLf te gebruiken, of vbNewline, tussen 2 stukken tekst in.

Wigi

 

[Schapie]

Kleine toevoeging op bovenstaand bericht

aanhef = "Beste " & ActiveSheet.Range("a29").Text & ", Hierbij lalala. Groetjes, Sebastiaan"

moet dan worden:

aanhef = "Beste " & ActiveSheet.Range("a29").Text & "," & vbcrlf & vbcrlf & _
"Hierbij lalala." & vbcrlf & vbcrlf & "Groetjes, Sebastiaan"

Succes, Stefan