Comment insérer automatiquement la date ou l'heure actuelle dans l'objet ou le corps de l'e-mail avec Outlook VBA

De nombreux utilisateurs ont l'habitude d'insérer la date ou l'heure actuelle dans l'objet ou le corps de l'e-mail lors de la rédaction d'un nouvel e-mail. Cet article vous apprendra comment y parvenir en un rien de temps.

Dans le p précédentost - "Comment ajouter automatiquement la date actuelle aux sujets de vos e-mails Outlook”, vous pouvez apprendre à ajouter automatiquement la date ou l'heure actuelle au sujet. Mais la méthode dans ce post est simplement de créer une forme personnalisée de message. Ainsi, par ce moyen, chaque fois que vous souhaitez créer un nouvel e-mail avec la date ou l'heure actuelle dans le sujet, vous devez choisir le formulaire personnalisé au lieu de créer un nouvel e-mail comme d'habitude. Évidemment, ce sera assez encombrant.

En fait, Outlook nous a déjà proposé un champ natif pour insérer la date ou l'heure. En outre, vous pouvez appliquer Outlook VBA pour insérer automatiquement la date ou l'heure actuelle dans le corps ou l'objet du nouvel e-mail. Quant à la méthode que vous sélectionnez, cela dépend de la fréquence à laquelle vous devez insérer la date ou l'heure.

Insérer manuellement par champ "Date et heure"

1. À start avec, lancez Outlook.
2. Créez ensuite un nouveau message en cliquant sur le bouton "Nouvel e-mail" dans le groupe "Nouveau" sous l'onglet "Accueil".
3. Ensuite, dans la fenêtre Nouveau message, vous pouvez cliquer sur le corps de l'e-mail et passer à l'onglet "Insérer".
4. Ensuite, vous pouvez trouver et cliquer sur le champ "Date et heure" dans le groupe "Texte".
5. Après cela, une nouvelle boîte de dialogue apparaîtra. Vous pouvez choisir un format disponible, puis cliquer sur le bouton "OK".
6. Après être revenu à la fenêtre du message, vous pouvez voir la date ou l'heure actuelle dans le corps de l'e-mail. Par défaut, Outlook ne vous permet pas d'appliquer le champ "Date et heure" au sujet.
7. Par conséquent, enfin, si vous souhaitez insérer la date ou l'heure dans le sujet, vous devez les copier à partir du corps et les coller manuellement dans le sujet.

Cette méthode est plus recommandée si vous avez rarement besoin d'insérer la date ou l'heure actuelle. Mais à condition que vous ayez fréquemment ou toujours besoin d'insérer, vous feriez mieux d'utiliser les codes VBA suivants pour y parvenir automatiquement.

Insertion automatique avec Outlook VBA

1. En premier lieu, appuyez sur les touches "Alt + F11" pour accéder à l'éditeur VBA.
2. Ensuite, double-cliquez sur le projet "ThisOutlookSession" sur le côté gauche pour l'ouvrir.
3. Ensuite, copiez-y les codes suivants.

Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

Private Sub Initialize_handlers()
    Set objInspectors = Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim strTime As String
 
    'the current time
    strTime = Now
 
    'insert to subject
    'If you don't want to insert to subject, remove the following line
    objMail.Subject = strTime
    'insert to body
    'If you don't want to insert to body, remove the following line
    objMail.Body = strTime & objMail.Body
End Sub

À noter: Les codes ci-dessus fonctionneront pour insérer automatiquement l'heure actuelle dans le sujet et le corps. Si vous souhaitez insérer la date actuelle, remplacez le "objMail_Open” sous avec les éléments suivants :

Private Sub objMail_Open(Cancel As Boolean)
    Dim strDate As String
 
    'the current date
    strDate = Date
 
    'insert to subject
    objMail.Subject = strDate
    'insert to body
    objMail.Body = strDate & objMail.Body
End Sub

4. Ensuite, signez ce code comme d'habitude.
5. Plus tard, restart Outlook pour activer la macro.
6. Enfin, vous pouvez essayer.

• Cliquez directement sur le bouton « Nouvel e-mail » pour ouvrir un nouvel e-mail.
• Vous constaterez que le nouvel e-mail automatique contient la date ou l'heure actuelle dans le sujet et le corps, comme l'image ci-dessous :

Ne faites pas facilement confiance aux e-mails inconnus

Vous devez avoir déjà reçu des courriers indésirables. Comment les traitez-vous habituellement ? Il est déconseillé de télécharger des pièces jointes ou d'ouvrir des liens dans ce type de mails car ils peuvent contenir des virus. Une fois que vos données Outlook sont infectées, l'outil de réparation de la boîte de réception, Scanpst.exe, n'aura aucun effet. Dans ce cas, vous n'avez pas d'autre choix que de recourir à un professionnel plus expérimenté. Correction PST outil, 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 corrompu SQL Server et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com