Accusé de réception outlook

Bonjour,
Je reviens vers vous et vous remercie de votre aide. J'ai bien suivi le lien proposé et adapté à mon code mais malheureusement cela ne marche pas. Sans doute je ne doit pas faire les choses comme il le faudrait comme vous l'avez compris je suis débutant. Ci-joint mon code, pouvez-vous me dire ce qu'il ne va pas

Dim StrDest As String
Dim StrSubject As String
Dim StrMsg As String

Dim olApp As Outlook.Application
Dim miEmail As Outlook.MailItem
Dim rcDest As Outlook.Recipient


'Renseigner le message

StrMsg = ",,,,,,,"

'StrDest = Me.E_mail_non_formaté
StrDest = "***@***"

StrSubject = "Rapport entretien annuel"

'initialiser un objet outlook
Set olApp = CreateObject("outlook.application")



'Créer le message
Set miEmail = olApp.CreateItem(olMailItem)

DoCmd.SendObject acSendForm, "attestation de paiement", acFormatPDF, StrDest, , , StrSubject, StrMsg, True

miEmail.ReadReceiptRequested = True
miEmail.OriginatorDeliveryReportRequested = True

Set miEmail = Nothing
Set olApp = Nothing



Merci

Re,

Ci-joint mon code, pouvez-vous me dire ce qu'il ne va pas Ou ca ??

je n'ai pas d'accusé de lecture ni de réception

Re,

ai fait un test, idem. Je regarderai demain.

Bonjour,

Je reviens vers vous avec un autre code. avec celui-ci pas de problème avec l'accusé de réception. Mais je n'arrive pas cette fois à coller un objet avec la commande DoCmd.SendObject.
celle ci crée un nouvelle email.

Une idée?



If IsNull(Me.E_mail_non_formaté) Then

MsgBox "Merci de renseigner l' adresse email"
Me.E_mail_non_formaté.SetFocus
Exit Sub

End If

Dim Ol_App As Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_App = Outlook.Application
Set Ol_Item = Ol_App.CreateItem(olMailItem)

With Ol_Item

.Display
.To = Me.E_mail_non_formaté
.Subject = "Rapport entretien annuel"
.HTMLBody = "Texte du mail" & vbLf & "texte du mail 2" + .HTMLBody


'demande un accusé se réception
.ReadReceiptRequested = True




End With

Set Ol_Item = Nothing
Set Ol_App = Nothing