Taille du texte dans un mail Lotus

[Mancuzo]

Bonjour,

J'arrive à générer des mails Lotus Notes en VBA mais certains expéditeurs recoivent le message avec une taille de police très petite.

Voici le code que j'utilise

Sub TestNotes()

On Error GoTo err

Dim Maildb As Object 'The mail database
Dim strUserName As String 'Nom de l'expéditeur
Dim MailDoc As Object 'Le document
Dim AttachME As Object 'Le fichier joint
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim Dest As Variant, ccDest As Variant, Message, Sujet

'Start a session to notes

Set Session = CreateObject('Notes.NotesSession')

'Get Current user
strUserName = Session.UserName

'Open the mail database in notes

Set Maildb = Session.getdatabase('', '')

If Maildb.IsOpen = False Then 'Not already open for mail
Maildb.OpenMail
End If

Dest = Range('b1:b3').Value
'ccDest = ''
Sujet = 'Test'

Message = 'test'

'Create new memo

Set MailDoc = Maildb.CREATEDOCUMENT

With MailDoc
.Form = 'Memo'
.SendTo = Dest
.CopyTo = ccDest
.Subject = Sujet
.body = Message
.SaveMessageOnSend = False
.From = strUserName
.Send (0)
End With

MsgBox 'Mail envoyé'

Exit Sub

err:
Select Case err.Number
Case 7063
MsgBox 'Assurez-vous que votre boîtes Lotus Notes' & vbCrLf & _
'est ouverte puis recommencez !', vbCritical
Case 7294
MsgBox 'L'utilsateur ''' & Dest & ''' n'existe pas !', vbCritical
Case Else
MsgBox 'Assurez-vous que votre boîtes Lotus Notes' & vbCrLf & _
'est ouverte puis recommencez !', vbCritical
End Select
End

End Sub

Si quelqu'un connait la solution pour imposer une taille dans le message.

Merci d'avance et bonne journée