Option Explicit
Public Const SepList = ';'
Sub TestNotes()
'Envoi un message à Lotus Notes avec Pièces jointes
'Si Notes n'est pas ouvert, il sera ouvert automatiquement si présent sur le poste
Dim Maildb As Object 'La base de données mail
Dim strUserName As String 'Nom de l'expéditeur
Dim MailDoc As Object 'Le document
Dim Session As Object 'La session Lotus Notes
Dim AttachME As Object 'Le fichier joint
Dim EmbedObj As Object 'L'objet incorporé ('Attachment')
Dim PieceJointe As String 'Pièce jointe à spécifier éventuellement
Dim Dest As Variant, ccDest As Variant, Message, Sujet, Ligne
Dim Pos As Integer, Cpte As Integer, Fichier As String, Champ As String
'Stop
'On Error GoTo ERREUR
'Débute une session Lotus Notes
Set Session = CreateObject('Notes.NotesSession')