Envoi ar [Résolu]

Messages postés
6
Date d'inscription
mardi 16 mai 2006
Statut
Membre
Dernière intervention
28 novembre 2019
-
bonjour, j'utilisai cette procédure d'envoi d'accusé de réception avec office 2003 copier sur ce site
 Sub ARdeMessage(MyMail As MailItem)

Je viens de passer à Office 2016. Quelqu'un pourrait me dire ce qu'il faut chager dans la macro pour que celle-ci fonctionne avec Outllook 2016 ?
Merci pour votre aide.
Afficher la suite 

4 réponses

Messages postés
14007
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
28 novembre 2019
321
0
Merci
Bonjour

imagine que ton boulanger te demande si tu préfères le pain blanc ou complet.
Tu sors de la boulangerie et entres dans la boucherie en disant à qui veut l'entendre "Complet bien sûr ».

Personne ne va comprendre.

C'est exactement ce que tu as fait sur ce forum en cliquant sur le bouton vert "Créer une discussion". Pour répondre à une discussion il faut cliquer sur le bouton BLEU "Répondre".

Si ce bouton n'est pas visible c'est que la discussion est close et qu'on ne peut plus y répondre. En ce cas un lien vers la discussion d’origine est indispensable pour comprendre ce que tu racontes.
Commenter la réponse de Whismeril
Messages postés
6
Date d'inscription
mardi 16 mai 2006
Statut
Membre
Dernière intervention
28 novembre 2019
0
Merci
Bonjour à 70 ans on peut avoir des "vides" non...?
Mon souci (si cela en est un) vient du fait que j'utilisais un script qui allait me chercher une macro . J'utilisais Outlook 2003 jusqu'à récemment.
A présent j'ai installé office pro 2016 et cette macro ne fonctionne plus du tout. Ma question est ; peut on changer quelque chose dans la procédure pour qu'elle fonctionne normalement ou dois-je carrément l'enlever pour ne plus l'utiliser.
Merci pour votre réponse et votre aide.
Macro ci-dessous :
Sub ARdeMessage(MyMail As MailItem)

Dim strID As String
'Retour à la ligne
Dim CRLF As String
'Contient le texte qui sera inséré dans le corps du message
Dim TexteAR As String
Dim objMail As Outlook.MailItem
'Mail d'accusé de réception qui sera envoyé
Dim MessageAR As Outlook.MailItem
Dim PJcourante As Outlook.Attachment

'Initialisation du retour à la ligne
        CRLF = Chr(10) & Chr(10)
'L'utilisation de EntryID permet d'éviter les boîtes de dialogue de sécurité
        strID = MyMail.EntryID
    Set objMail = Application.Session.GetItemFromID(strID)

'Construction du texte d'accusé de réception
TexteAR = " " & CRLF & _
          "''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''" & CRLF & _
          " Ceci est un courrier électronique généré par voie automatique" & CRLF & _
          " qui indique seulement que votre message a été affiché sur l'ordinateur de jepifavre." & CRLF & _
          " Il n'y a aucune garantie que le destinataire ait lu le contenu du message." & CRLF & _
          "''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''" & CRLF & _
          " Cet email et tous les documents transmis avec lui sont confidentiels," & CRLF & _
          " pour un usage privé et, uniquement à qui ils sont adressés." & CRLF & _
          " Si vous avez reçu cet email par erreur notifiez-le à l'expéditeur." & CRLF & _
          "''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''" & CRLF & _
          " AR après réception de votre message envoyé à : " & objMail.To
          
        TexteAR = TexteAR & CRLF & "Il contenait " & objMail.Attachments.Count

'Création de la liste des pièces jointes s'il y en a
    If objMail.Attachments.Count <> 0 Then
    If objMail.Attachments.Count = 1 Then
        TexteAR = TexteAR & " pièce jointe dont le nom est :"
Else
        TexteAR = TexteAR & " pièces jointes dont les noms sont les suivants :"
End If
    For Each PJcourante In objMail.Attachments
        TexteAR = TexteAR & CRLF & PJcourante.FileName
    Next
Else
        TexteAR = TexteAR & " pièce jointe."
End If

'Création du message
    Set MessageAR = objMail.Reply
'Insertion du texte d'accusé de réception
        MessageAR.Body = TexteAR & CRLF & MessageAR.Body
'Envoi
        MessageAR.Send

'Destruction des objets créés
    Set objMail = Nothing
    Set MessageAR = Nothing
    
End Sub
Commenter la réponse de cs_papoun
Messages postés
6389
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
28 novembre 2019
89
0
Merci
Bonjour,

cette macro ne fonctionne plus du tout

tu ne nous dis pas le message d'erreur et sur quelle ligne se produit-il?

a tout hasard, as-tu coché la référence: Microsoft Outlook xxx Object Library en allant dans:

Outils Références


--
@+ Le Pivert
cs_papoun
Messages postés
6
Date d'inscription
mardi 16 mai 2006
Statut
Membre
Dernière intervention
28 novembre 2019
-
Super en suivant votre conseil cela fonctionne à nouveau.
Le Papivous remercie beaucoup
Amitiés
Commenter la réponse de cs_Le Pivert
Messages postés
14007
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
28 novembre 2019
321
0
Merci
Bonjour
Merci de penser à marquer le sujet résolu, en cliquant sur la roue dentée tout en haut du fil.
cs_papoun
Messages postés
6
Date d'inscription
mardi 16 mai 2006
Statut
Membre
Dernière intervention
28 novembre 2019
-
Bonne fin de semaine à vous.
Amicalement
Commenter la réponse de Whismeril