Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Outlook Discussion :

Automatiser " Répondre" dans Outlook


Sujet :

Outlook

  1. #1
    Nouveau Candidat au Club
    Automatiser " Répondre" dans Outlook
    Bonjour,
    Je reçois des mails qui contiennent une adresse mail.
    Je désire renvoyez une réponse automatique avec l'adresse mail contenue dans le corps du mail.
    Il est possible de le faire manuellement.
    il suffit de cliquer sur "Répondre" pour ouvrir un mail de réponse. l'adresse contenue dans le corps du mail se positionne dans la case Envoyer A:
    Je complète le corps du mail avec une réponse appropriée standard et je clique sur Envoyer.
    Comment automatiser tout çà pour que cette réponse se face automatiquement à la réception du Mail ?
    Merci pour votre aide.

  2. #2
    Expert éminent
    Bonsoir,

    Pour exécuter de façon automatique à l'arrivée d'un EMAIL, il y a plusieurs solutions.

    Soit tu utilises une règle et l'action "répondre un utilisant un modèle spécifique"

    Soit tu utilises un règle et l'action "Executer un script" (voir ici https://www.developpez.net/forums/bl...curite-macros/)
    avec un script de ce genre

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    Sub ScriptRepToRec(MyMail As MailItem)
    '---------------------------------------------------------------------------------------
    ' Procedure : RepToRec
    ' Author    : Oliv'
    ' Date      : 16/04/2008
    ' Purpose   : script a executer avec une règle pour répondre au destinataires A
    '---------------------------------------------------------------------------------------
    '
        Dim LaReponse As Outlook.MailItem
         Set LaReponse = msg.reply
     
        MonTexteEnPlus = "Mon message de réponse"
     
     
        Select Case LaReponse.BodyFormat
            'ici on vérifie le format du message HTML OU BRUT ...
        Case olFormatHTML:
     
            OuCommenceAdresse = InStr(1, LaReponse.HTMLBody, "<BODY", vbTextCompare)
            If OuCommenceAdresse > 0 Then
                fin = InStr(OuCommenceAdresse + 5, LaReponse.HTMLBody, ">") + 1
                BaliseBody = Mid(LaReponse.HTMLBody, OuCommenceAdresse, fin - OuCommenceAdresse)
     
                LaReponse.HTMLBody = Replace(LaReponse.HTMLBody, BaliseBody, BaliseBody & "<font style='font-family: Tahoma ;font-size: 8pt ;color:#808080;font-style: italic;'>" & MonTexteEnPlus & "</font><BR>" _
                                                                           & "<font style='font-family: Tahoma ;font-size: 8pt ;color:#808080;font-style: italic;'>" & String(NbTiret, "-") & "</font><BR><BR>", 1, 1, vbTextCompare)
            Else: LaReponse.HTMLBody = "<font style='font-family: Tahoma ;font-size: 8pt ;color:#808080;font-style: italic;'>" & liste & _
                                       "</font><BR>" & "<font style='font-family: Tahoma ;font-size: 8pt ;color:#808080;font-style: italic;'>" & String(NbTiret, "-") & "</font><BR><BR>" & LaReponse.HTMLBody
     
            End If
        Case Else
            objCurrentMessage.Body = Replace(MonTexteEnPlus, "<br>", vbCr) & Chr(10) & String(NbTiret, "-") & Chr(10) & Chr(10) & objCurrentMessage.Body
     
        End Select
     
    'soit on affiche seulement la réponse
        LaReponse.Display
     
    "soit on l'envoi
        '    LaReponse.Send
        Set msg = Nothing
     
    End Sub


    Après il y a d'autres solutions de déclenchement automatique si EXUTER UN SCRIPT n'est pas dispo



    Application_NewMailEx ou colInboxItems_ItemAdd

###raw>template_hook.ano_emploi###