2 méthodes rapides pour créer de nouveaux e-mails à partir d'un modèle avec Outlook VBA

Étant donné que de nombreux utilisateurs pensent qu'il est fastidieux de trouver et d'utiliser des modèles d'e-mails Outlook, nous présenterons 2 méthodes rapides pour créer de nouveaux e-mails à l'aide d'un modèle avec Outlook VBA dans cet article.

Pour utiliser un modèle d'e-mail Outlook, il faut généralement commencer par le trouver en cliquant sur « Nouveaux éléments » > « Plus d'éléments » > « Choisir un formulaire ». Ensuite, dans la boîte de dialogue « Choisir un formulaire », localisez et ouvrez le modèle souhaité dans « Modèles utilisateur dans le système de fichiers », comme illustré dans la capture d'écran ci-dessous.

De toute évidence, c'est en effet très gênant. Par conséquent, nous présenterons ici 2 moyens rapides, qui peuvent rapidement créer de nouveaux e-mails à l'aide de modèles à l'aide d'Outlook VBA. Lisez la suite pour les obtenir en détail.

Méthode 1 : créer un nouveau modèle d'e-mail directement par Outlook VBA

1. Dans un premier temps, accédez à l'onglet "Développeur" dans la fenêtre principale d'Outlook.
2. Cliquez ensuite sur le bouton "Visual Basic", ce qui fera apparaître une nouvelle fenêtre.
3. Ensuite, copiez et collez les codes VBA suivants dans un module.

Sub CreateNewMail()
    Dim obApp As Object
    Dim NewMail As MailItem
 
    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItem(olMailItem)
 
    'You can change the concrete info as per your needs
    With NewMail
         .Subject = Date & " Test Email"
         .To = "example@mail.com"
         .Body = "Dear Johnny," & vbCrLf & vbCrLf & "I'm glad to write this email to you .......... " & vbCrLf & vbCrLf & "This is just a test email template with Outlook VBA" & vbCrLf & vbCrLf & vbCrLf & "Yours Truly," & vbCrLf & vbCrLf & "John Smith"
         .Attachments.Add ("C:\Attachments\Test File.docx")
         .Importance = olImportanceHigh
         .Display
    End With
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

4. Après cela, quittez la fenêtre "Visual Basic". Suivez maintenant les étapes ci-dessous pour ajouter cette macro à la barre d'outils Accès rapide :

• Tout d'abord, cliquez sur la flèche vers le bas dans la barre d'outils d'accès rapide et sélectionnez "Plus de commandes".
• Ensuite, dans la nouvelle fenêtre contextuelle, définissez "Choisir les commandes de" sur "Macros".
• Après cela, lancez le bon.
• Ensuite, cliquez sur le bouton "Ajouter".
• Par la suite, vous pouvez modifier son apparence. Cliquez sur le bouton "Modifier". Dans la nouvelle boîte de dialogue, donnez-lui un nouveau nom et spécifiez-lui une icône.
• Cliquez enfin sur deux "OK".

5. Enfin, vous pouvez cliquer sur l'icône de la macro dans la barre d'outils d'accès rapide. Immédiatement, une nouvelle fenêtre de message apparaîtra, comme l'image suivante.

Méthode 2 : créer un nouvel e-mail à partir d'un modèle existant par Outlook VBA

1. Tout d'abord, vous devez avoir en main un modèle d'e-mail prêt à l'emploi. Créez un nouvel e-mail au format souhaité, papier à lettres et enregistrez-le en tant que modèle Outlook. Pour les étapes détaillées, reportez-vous à l'article "Comment améliorer votre efficacité au travail via des modèles Outlook”. Veuillez également noter le chemin du dossier d'enregistrement de ce fichier de modèle.
2. Accédez ensuite à la fenêtre "Visual Basic" et ouvrez un nouveau module comme l'Astuce 1.
3. Par la suite, vous devez copier et coller la capture d'écran suivante :

Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem
 
    Set obApp = Outlook.Application
    'Change the template file folder path according to your case
    Set NewMail = obApp.CreateItemFromTemplate("C:\Users\Test\Documents\Test Mail.oft")
    NewMail.Display
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

4. Après cela, suivez l'étape 5 de l'astuce 1 ci-dessus pour ajouter la nouvelle macro à la barre d'outils d'accès rapide.
5. Finalement, vous pouvez essayer. Vous recevrez le nouvel e-mail en utilisant le modèle, comme l'image ci-dessous :

Comparaison des 2 méthodes

Faire face aux erreurs Outlook occasionnelles

Bien qu'Outlook offre de nombreuses fonctionnalités, il reste sujet à divers problèmes. Le plus frustrant est l'impossibilité pour les utilisateurs de démarrer Outlook. Ce problème peut généralement être dû à… Outlook corrompu. Vous pouvez donc aller dans « Panneau de configuration » pour réparer la suite bureautique. Si le problème persiste, vous devez recourir à un outil de réparation expérimenté, 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 SQL Server mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com