mail lotus avec piece jointe

Sub SendNotesMail()
'----------------------
On Error GoTo ErreurNET: Err.Clear
Dim CheminEtFichier As String, NomDuFichier As String

'---------------------- SOIT SAISIR LE FICHIER AVEC SON CHEMIN AVEC BOITE DE DIALOGUE
CheminEtFichier = Application.GetOpenFilename("(*.*), *.*")
If CheminEtFichier = "Faux" Then Exit Sub

'---------------------- SOIT SAISIR LE FICHIER EN DUR ICI ET LE CHEMIN SERA MIS AUTO
'NomDuFichier = ""
'CheminEtFichier = "C:\Documents and Settings\" & Environ("username") & "\Bureau\" & NomDuFichier
'----------------------------------------------------------------------------------------

Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database name
Dim MailDoc As Object 'The mail document itself
Dim Session As Object 'The notes session
'---------------------
Dim AttachME As Object 'Fich joint en RTF
Dim AttachF1 As Object '1' pièce attachée
'---------------------

Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = Session.GetDatabase("", MailDbName)
If Maildb.IsOpen = True Then
  'Already open for mail
Else
  Maildb.OPENMAIL
End If
'Set up the new mail document
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
MailDoc.Subject = "ssdfsf ......"
MailDoc.body = "message....."

'---------------------- pièce jointe
Set AttachME = MailDoc.CreateRichTextItem("Attachment")
Set AttachF1 = AttachME.EmbedObject(1454, "", CheminEtFichier, "Attachment")
'----------------------

MailDoc.SAVEMESSAGEONSEND = True

'Send the document
MailDoc.PostedDate = Now()
MailDoc.Send 0, "toto@gdfg.com"
'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set AttachF1 = Nothing
Set Session = Nothing

'-------------------------
On Error GoTo 0: Err.Clear
Application.ScreenUpdating = True
Exit Sub

ErreurNET: 'trit erreur
Msg$ = "Erreur " & Err.Source & "  No " & Err.Number & vbLf & vbLf & Err.Description
T$ = "Envoi Mail: Erreur !?"
MsgBox Msg$, vbCritical, T$, Err.HelpFile, Err.HelpContext
On Error GoTo 0: Err.Clear
Application.ScreenUpdating = True
'-------------------------
End Sub