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 une plage spécifiée collée dans le corps de l'e-mail dans Excel
Envoyez un e-mail avec une plage spécifiée collée dans le corps de l'e-mail avec un outil incroyable
Plus de tutoriels pour l'envoi dans Excel ...
Le code VBA suivant peut vous aider à copier une plage et à la coller dans un corps de courrier Outlook directement dans Excel. Veuillez faire comme suit.
1. Dans la feuille de calcul contient la plage que vous devez copier, appuyez sur le bouton autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, veuillez cliquer Outils > Références comme ci-dessous la capture d'écran montrée.
3. dans le Références - VBAProject boîte de dialogue, veuillez trouver et vérifier la Bibliothèque d'objets Microsoft Outlook , puis cliquez sur le OK .
4. Cliquez insérer > Module, puis copiez et collez le code VBA ci-dessous dans la fenêtre Module.
Code VBA: envoyer un e-mail avec une plage spécifiée collée dans le corps de l'e-mail dans Excel
Sub Send_Email()
'Updated by Extendoffice 20200119
Dim xRg As Range
Dim I, J As Long
Dim xAddress As String
Dim xEmailBody As String
Dim xMailOut As Outlook.MailItem
Dim xOutApp As Outlook.Application
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
For I = 1 To xRg.Rows.Count
For J = 1 To xRg.Columns.Count
xEmailBody = xEmailBody & " " & xRg.Cells(I, J).value
Next
xEmailBody = xEmailBody & vbNewLine
Next
xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
With xMailOut
.Subject = "Test"
.To = "happy.xuebi@163.com"
.Body = xEmailBody
.Display
'.Send
End With
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End SubNotes:
5. appuie sur le F5 clé pour exécuter le code. Dans le popping Kutools pour Excel boîte de dialogue, veuillez sélectionner la plage que vous devez coller dans le corps de l'e-mail, puis cliquez sur le OK bouton. Voir la capture d'écran:
6. Maintenant, un e-mail est créé avec un destinataire, un objet, un corps et une plage Excel sélectionnés, veuillez cliquer sur le bouton Envoyez bouton pour envoyer cet e-mail. Voir la capture d'écran illustrée.
Notes: Le code VBA ne fonctionne que lorsque vous utilisez Outlook comme programme de messagerie.
Si vous n'utilisez pas Outlook et que vous souhaitez toujours envoyer des e-mails directement dans Excel avec une plage de données spécifiée collée à l'intérieur, je recommande vivement le Envoyer des emails utilité de Kutools pour Excel pour vous. Avec cette fonctionnalité, il vous suffit de configurer le serveur sortant d'une adresse e-mail, puis d'envoyer des e-mails dans Excel directement via cette adresse e-mail à l'avenir.
Avant d'appliquer Kutools pour Excel, S'il vous plaît téléchargez et installez-le d'abord.
1. Premièrement, vous devez préparer une liste de diffusion avec les champs nécessaires.
2. Sélectionnez la plage dans laquelle vous allez ajouter les données au corps de l'e-mail et appuyez sur le bouton Ctrl + C clés pour le copier.
3. Sélectionnez toute la liste de diffusion (inclure les en-têtes), cliquez sur Kutools Plus > Envoyer des emails. Voir la capture d'écran:
4. Puis le Envoyer des emails la boîte de dialogue apparaît.
5. Puis le Paramètres du serveur sortant (SMTP) - Nouveau schéma la boîte de dialogue apparaît. Veuillez remplir l'adresse e-mail avec ses paramètres de serveur, spécifiez un dossier pour enregistrer tous les mails envoyés après avoir vérifié Enregistrer les e-mails envoyés dans , puis cliquez sur le OK bouton pour enregistrer les paramètres.
6. Lorsqu'il revient au Envoyer des emails boîte de dialogue, cliquez sur le Envoyez bouton pour envoyer l'e-mail.
À partir de maintenant, vous pouvez envoyer des e-mails avec cette fonctionnalité directement dans Excel.
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.
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.
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 votre e-mail? Cet article propose deux méthodes pour vous aider à ajouter une signature Outlook lors de l'envoi d'un e-mail 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.
