Accusé de réception outlook
Fermé
ddh74
-
30 juil. 2013 à 20:44
f894009 Messages postés 17228 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 janvier 2025 - 2 août 2013 à 19:40
f894009 Messages postés 17228 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 janvier 2025 - 2 août 2013 à 19:40
A voir également:
- Accusé de réception outlook mobile
- Accusé de reception gmail - Guide
- Accusé de reception outlook - Guide
- Problème de réception tv pas de signal aujourd' hui - Guide
- Accusé de reception whatsapp - Guide
- Chaine tnt gratuite sur mobile - Guide
3 réponses
f894009
Messages postés
17228
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 janvier 2025
1 712
31 juil. 2013 à 07:11
31 juil. 2013 à 07:11
f894009
Messages postés
17228
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 janvier 2025
1 712
1 août 2013 à 17:30
1 août 2013 à 17:30
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
f894009
Messages postés
17228
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 janvier 2025
1 712
Modifié par f894009 le 2/08/2013 à 19:41
Modifié par f894009 le 2/08/2013 à 19:41
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+
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+
Modifié par ddh74 le 31/07/2013 à 16:56
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
31 juil. 2013 à 16:54
Ci-joint mon code, pouvez-vous me dire ce qu'il ne va pas Ou ca ??
31 juil. 2013 à 17:03
31 juil. 2013 à 19:30
ai fait un test, idem. Je regarderai demain.
2 août 2013 à 17:13
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