Accusé de réception outlook
ddh74
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Accusé de réception outlook mobile
- Accusé de reception gmail - Guide
- Accusé de réception Outlook : demander une confirmation - Guide
- Problème de réception tv pas de signal aujourd' hui - Guide
- Accusé de reception whatsapp - Guide
- Serveur de reception mail - Guide
3 réponses
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
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
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
Ci-joint mon code, pouvez-vous me dire ce qu'il ne va pas Ou ca ??
ai fait un test, idem. Je regarderai demain.
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