Accusé de réception outlook
Bonjour à tous,
Est-ce que quelqu'un peut il me dire comment demander un accusé de réception dans ce code
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 = "Message"
'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, False
Set miEmail = Nothing
Set olApp = Nothing
Est-ce que quelqu'un peut il me dire comment demander un accusé de réception dans ce code
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 = "Message"
'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, False
Set miEmail = Nothing
Set olApp = Nothing
3 réponses
-
Bonjour,
ai regarde ce type de cote, il faudrait sauvegarder formulaire au format PDF et faire une piece-jointe en complement du code que vous avez trouve sans utiliser DoCmd.SendObject. (marchera pas). En cherchant sur internet c'est trouvable.
Bon courage
A+ -
Bonjour,
Apres quelques recherches, n'ayant pas l'accuse reception par la VBA, j'ai trouve ceci
http://www.codyx.org/snippet_envoi-mail-courriel-outlook-avec-accuse-reception-read_831.aspx
a noter la remarque faite a propos de DoCmd.SendObject !!!!!!!
A voir
je continue -
-
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 -
-
-
-
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
-
