Tekst vet IBM-notes via vba

vamsg = "Goedemorgen, " & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
"Bij deze stuur ik jullie [B]de planning[/B], aangepaste planning  voor de volgende dagen. " & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
"Hier staat in hoeveel magazijniers we nodig hebben voor welke ploeg. " & vbCrLf & vbCrLf & _
"Het kan zijn dat je 2 planningen aankrijgt op 1 nacht/ avond , dan moet je de planning nemen die als onderwerp de laatste datum en uur heeft. " & vbCrLf & vbCrLf & _
"De planning zal voor de zelfde week gewoon worden aangevuld als er extra mensen worden gevraagd, daarom moet je steeds de laatste nemen die is doorgestuurd naar jullie. " & vbCrLf & vbCrLf & _
"Je moet wel rekening houden met de week nummer die zit verwerkt in het onderwerp en in de naam van het excel bestand." & vbCrLf & vbCrLf & _
      "Met Vriendelijke Groeten" & vbCrLf & vbCrLf & _
      "De Hoofdmagazijniers"

    vamsg = "Goedemorgen, <br><br><br><br>" & _
    "Bij deze stuur ik jullie <b>de planning</b>, aangepaste planning  voor de volgende dagen. <br><br><br><br>" & _
    "Hier staat in hoeveel magazijniers we nodig hebben voor welke ploeg. <br><br>" & _
    "Het kan zijn dat je 2 planningen aankrijgt op 1 nacht/ avond , dan moet je de planning nemen die als onderwerp de laatste datum en uur heeft. <br><br>" & _
    "De planning zal voor de zelfde week gewoon worden aangevuld als er extra mensen worden gevraagd, daarom moet je steeds de laatste nemen die is doorgestuurd naar jullie. <br><br>" & _
    "Je moet wel rekening houden met de week nummer die zit verwerkt in het onderwerp en in de naam van het excel bestand.<br><br>" & _
    "     Met Vriendelijke Groeten<br><br>" & _
    "     De Hoofdmagazijniers"

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

    With OutMail
        .To = "robert@helpmij.nl"
        .CC = ""
        .BCC = ""
        .Subject = "De Planning"
        .HTMLBody = vamsg
        .Display  [COLOR="#008000"] 'Of .Send[/COLOR]
    End With

vaRecipients = Sheets("Vragenformulier").Range("H30").Value 'E-mailadres waar de mail naar toe wordt gemaild.

'Bepaal de IBM Notes COM's Objecten.
Set noSession = CreateObject("Notes.NotesSession")
Set noDatabase = noSession.GETDATABASE("", "")
                  
'Als Lotus Notes niet open is open dan het mail-gedeelte ervan.
If noDatabase.IsOpen = False Then noDatabase.OPENMAIL
       
'Maak de e-mail en de bijlage.
Set noDocument = noDatabase.CreateDocument
                                 
'Voeg de gegevens toe aan de gemaakte e-mail eigenschappen.
With noDocument
    .Form = "Memo"
    .SendTo = vaRecipients
    .Subject = stsubject
    .Body = vamsg
    .SaveMessageOnSend = True
    .PostedDate = Now()
    .Send 0, vaRecipients
End With
                          
'Verwijder objecten uit het geheugen.
Set noEmbedObject = Nothing
Set noDocument = Nothing
Set noDatabase = Nothing
Set noSession = Nothing

With noDocument
    .Form = "Memo"
    .SendTo = vaRecipients
    [B].HTMLBody = vaMsg[/B]
    .Subject = stsubject
    .SaveMessageOnSend = True
    .PostedDate = Now()
    .Send 0, vaRecipients
End With

Dim vaRecipients As Variant
Dim noSession As Object
Dim noDatabase As Object
Dim noDocument As Object
Dim noEmbedObject As Object
Dim stFileName As String