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