Comment joindre automatiquement des fichiers spécifiques lors de l'envoi d'e-mails spécifiques dans Outlook

Avez-vous souvent besoin de joindre des fichiers spécifiques lors de l'envoi d'e-mails spécifiques dans Outlook ? Si c'est le cas, vous pouvez trouver fastidieux de les ajouter manuellement à chaque fois. Cet article vous apprendra une méthode rapide pour y parvenir avec Outlook VBA.

Dans mon travail quotidien, je dois fréquemment joindre des fichiers spécifiques lors de l'envoi d'e-mails spécifiques. Par exemple, chaque semaine, je dois envoyer un mail à mes supérieurs afin de signaler mon travail hebdomadaire. Dans cet e-mail, je devrai joindre des fichiers spécifiques, notamment des journaux de travail, des rapports de statistiques de données, etc. Je mets généralement à jour ces fichiers chaque semaine. Dans le passé, je composais normalement d'abord le corps du message, puis j'ajoutais manuellement ces fichiers. Cependant, à l'heure actuelle, je trouve une astuce plus intelligente. Cela utilise Outlook VBA pour l'automatiser. Si vous avez des exigences similaires, veuillez lire la suite pour apprendre les codes VBA concrets et les opérations détaillées.

Joindre automatiquement des fichiers spécifiques lors de l'envoi d'e-mails spécifiques

1. Pour commencer, ouvrez Outlook et accédez à l'onglet « Développeur ».
2. Ensuite, vous pouvez trouver et cliquer sur le bouton "Visual Basic", qui fera apparaître la fenêtre de l'éditeur VBA à la fois.
3. Dans la fenêtre suivante, vous devez double-cliquer sur le projet "ThisOutlookSession" dans la liste des projets de gauche.
4. Ensuite, vous devez copier et coller les codes VBA suivants.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strPrompt As String
    Dim nRes As Integer
 
    'Check the email subject and recipient
    If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
       strPrompt = "Do you want to attach the worklog related files?"
       nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
       If nRes = vbYes Then
          'Attach the specific files
          With Item
               .Attachments.Add ("C:\Attachments\WorkLog.docx")
               .Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
               .Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
          End With
       End If
    End If
End Sub

5. Après cela, vous devrez attribuer un certificat numérique au nouveau projet.

• Cliquez d'abord sur le bouton "Outil" dans la barre d'outils et choisissez "Signature numérique".
• Ensuite, dans la boîte de dialogue contextuelle "Signature numérique", appuyez sur le bouton "Choisir",
• Par la suite, vous pouvez choisir un certificat existant.
• Cliquez enfin sur une série de "OK" pour l'attribuer avec succès.

6. Plus tard, vous devrez modifier les paramètres de macro pour autoriser simplement les macros signées numériquement.
7. Finalement, vous pouvez essayer.

• Lorsque vous cliquez sur "Envoyer" pour envoyer le courrier spécifique qui contient les mots spécifiques dans le sujet ou est envoyé à un contact spécifique, vous verrez une boîte de message, comme l'image ci-dessous.
• Après cela, vous pouvez vérifier l'e-mail envoyé. Vous trouverez sûrement les fichiers de préréglage joints dans le courrier envoyé.

Ne jamais différer la correction des erreurs Outlook

Parfois, même si vous avez rencontré un message d'erreur dans Outlook, après avoir fermé le message, vous pouvez toujours continuer à travailler. Mais en fait, ce n'est pas une action conseillée. Ce que vous devriez faire, c'est les éliminer dès que possible au lieu de les laisser de côté. L'accumulation de problèmes entraînera un grave accident. Si votre Outlook se bloque, vos données Outlook PST seront mises en danger. Tu devrais savoir ça données Outlook PST corrompues est plutôt noueux. À ce moment-là, vous n'avez pas d'autre choix que d'utiliser un outil de réparation expérimenté et réputé, tel que DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparation endommagé SQL Server filet et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com