Comment insérer la signature Outlook lors de l'envoi d'un e-mail dans Excel?
Supposons que vous souhaitiez envoyer un e-mail directement dans Excel, comment pouvez-vous ajouter la signature Outlook par défaut dans l'e-mail ? Cet article propose deux méthodes pour vous aider à ajouter une signature Outlook lors de l'envoi d'e-mails dans Excel.
Insérer la signature dans le courrier électronique Outlook lors de l'envoi par Excel VBA
Insérez facilement la signature Outlook lors de l'envoi d'un e-mail dans Excel avec un outil incroyable
Plus de tutoriels pour l'envoi dans Excel ...
Insérer la signature dans le courrier électronique Outlook lors de l'envoi par Excel VBA
Par exemple, il existe une liste d'adresses e-mail dans une feuille de calcul, pour envoyer des e-mails à toutes ces adresses dans Excel et ajouter la signature Outlook par défaut dans les e-mails. Veuillez appliquer le code VBA ci-dessous pour y parvenir.
1. Ouvrez la feuille de calcul contenant la liste d'adresses e-mail à laquelle vous souhaitez envoyer un e-mail, puis appuyez sur le bouton autre + F11 clés.
2. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module, puis copiez le ci-dessous VBA2 dans la fenêtre de code du module.
3. Vous devez maintenant remplacer le .Corps faire la queue VBA2 avec le code en VBA1. Après cela, déplacez la ligne .Afficher sous la ligne Avec xMailOut.
VBA 1 : modèle d'envoi d'e-mails avec la signature par défaut d'Outlook dans Excel
.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBodyVBA 2: envoyer un e-mail aux adresses e-mail spécifiées dans les cellules dans Excel
Sub SendEmailToAddressInCells()
Dim xRg As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each xRgEach In xRg
xRgVal = xRgEach.Value
If xRgVal Like "?*@?*.?*" Then
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.To = xRgVal
.Subject = "Test"
.Body = "Dear " _
& vbNewLine & vbNewLine & _
"This is a test email " & _
"sending in Excel"
.Display
'.Send
End With
End If
Next
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End SubLa capture d'écran suivante peut vous aider à trouver facilement les différences après avoir modifié le code VBA.
4. appuie sur le F5 clé pour exécuter le code. Puis un Kutools for Excel la boîte de sélection apparaît, veuillez sélectionner les adresses e-mail auxquelles vous enverrez des e-mails, puis cliquez sur D'ACCORD.
Ensuite, les e-mails sont créés. Vous pouvez voir que la signature par défaut d'Outlook est ajoutée à la fin du corps de l'e-mail.
Conseils:
- 1. Vous pouvez modifier le corps de l'e-mail dans le code VBA 1 en fonction de vos besoins.
- 2. Après avoir exécuté le code, si une boîte de dialogue d'erreur apparaît pour avertir que le type défini par l'utilisateur n'est pas défini, fermez cette boîte de dialogue, puis cliquez sur Outils > Bibliographie dans l' Microsoft Visual Basic pour applications la fenêtre. Dans l'ouverture Références - VBAProject fenêtre, vérifiez la Bibliothèque d'objets Microsoft Outlook boîte et cliquez D'ACCORD. Et puis exécutez à nouveau le code.
Insérez facilement la signature Outlook lors de l'envoi d'un e-mail dans Excel avec un outil incroyable
Si vous êtes un novice en VBA, je recommande vivement le Envoyer des emails utilité de Kutools for Excel pour vous. Avec cette fonctionnalité, vous pouvez facilement envoyer des e-mails en fonction de certains champs dans Excel et leur ajouter une signature Outlook. Veuillez faire comme suit.
Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.
Tout d'abord, vous devez créer une liste de diffusion avec différents champs sur lesquels vous enverrez des e-mails.
Vous pouvez créer manuellement une liste de diffusion selon vos besoins ou appliquer la fonction Créer une liste de diffusion pour le faire rapidement.
1. Cliquez Kutools Plus > Créer une liste de diffusion.
2. dans le Créer une liste de diffusion boîte de dialogue, spécifiez les champs dont vous avez besoin, choisissez l'emplacement de sortie de la liste, puis cliquez sur le bouton OK .
3. Un exemple de liste de diffusion est maintenant créé. Comme il s'agit d'un exemple de liste, vous devez modifier les champs pour certains contenus nécessaires. (plusieurs lignes sont autorisées)
4. Après cela, sélectionnez toute la liste (inclure les en-têtes), cliquez sur Kutools Plus > Envoyer des emails.
5. dans le Envoyer des emails boite de dialogue:
- 5.1) Les éléments de la liste de diffusion sélectionnée sont placés automatiquement dans les champs correspondants;
- 5.2) Terminez le corps de l'e-mail;
- 5.3) Vérifiez les Envoyer un e-mail via Outlook et Utiliser les paramètres de signature d'Outlook des boites;
- 5.4) Cliquez sur le Envoyer bouton. Voir la capture d'écran:
Les e-mails sont maintenant envoyés. Et la signature Outlook par défaut est ajoutée à la fin du corps de l'e-mail.
Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.
Articles Liés:
Envoyer un e-mail aux adresses e-mail spécifiées dans les cellules dans Excel
Supposons que vous ayez une liste d'adresses e-mail et que vous souhaitiez envoyer un message électronique à ces adresses e-mail en masse directement dans Excel. Comment y parvenir? Cet article vous montrera les méthodes d'envoi d'e-mail à plusieurs adresses e-mail spécifiées dans les cellules d'Excel.
Envoyer un e-mail en copiant et en collant une plage spécifiée dans le corps de l'e-mail dans Excel
Dans de nombreux cas, une plage de contenu spécifiée dans la feuille de calcul Excel peut être utile dans votre communication par courrier électronique. Dans cet article, nous présenterons une méthode d'envoi d'un e-mail avec une plage spécifiée collée dans le corps de l'e-mail directement dans Excel.
Envoyer un e-mail avec plusieurs pièces jointes jointes dans Excel
Cet article parle de l'envoi d'un e-mail via Outlook avec plusieurs pièces jointes jointes dans Excel.
Envoyer un e-mail si la date d'échéance a été respectée dans Excel
Par exemple, si la date d'échéance dans la colonne C est inférieure ou égale à 7 jours (la date actuelle est le 2017/9/13), envoyez un e-mail de rappel au destinataire spécifié dans la colonne A avec le contenu spécifié dans la colonne B. Comment faire parvenir? Cet article fournira une méthode VBA pour y faire face en détail.
Envoyer automatiquement un e-mail en fonction de la valeur de la cellule dans Excel
Supposons que vous souhaitiez envoyer un e-mail via Outlook à un certain destinataire en fonction d'une valeur de cellule spécifiée dans Excel. Par exemple, lorsque la valeur de la cellule D7 dans une feuille de calcul est supérieure à 200, un e-mail est créé automatiquement. Cet article présente une méthode VBA pour vous permettre de résoudre rapidement ce problème.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
