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.
Envoyez automatiquement un e-mail en fonction de la valeur de la cellule avec le code VBA
Veuillez procéder comme suit pour envoyer un e-mail basé sur la valeur de la cellule dans Excel.
1. Dans la feuille de calcul, vous devez envoyer un e-mail en fonction de la valeur de sa cellule (ici indique la cellule D7), cliquez avec le bouton droit sur l'onglet de la feuille et sélectionnez Voir le code dans le menu contextuel. Voir la capture d'écran:
2. Dans le pop-up Microsoft Visual Basic pour applications , veuillez copier et coller le code VBA ci-dessous dans la fenêtre de code de la feuille.
Code VBA: envoyer un e-mail via Outlook en fonction de la valeur de la cellule dans Excel
Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D7"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End SubNotes:
1. Dans le code VBA, D7 et valeur> 200 sont la cellule et la valeur de cellule sur lesquelles vous enverrez un e-mail.
2. Veuillez modifier le corps de l'e-mail selon vos besoins dans xMailCorps ligne dans le code.
3. Remplacez l'adresse e-mail par l'adresse e-mail du destinataire en ligne .To = "Adresse e-mail".
4. Et spécifiez les destinataires Cc et Cci dont vous avez besoin dans .CC = "" et Cci = "" sections.
5. Enfin, changez l'objet de l'e-mail en ligne .Subject = "envoyer par test de valeur de cellule".
3. appuie sur le autre + Q clés ensemble pour fermer le Microsoft Visual Basic pour applications fenêtre.
À partir de maintenant, lorsque la valeur que vous entrez dans la cellule D7 est supérieure à 200, un e-mail avec des destinataires et un corps spécifiés sera créé automatiquement dans Outlook. Vous pouvez cliquer sur le Envoyer bouton pour envoyer cet e-mail. Voir la capture d'écran:
Notes:
1. Le code VBA ne fonctionne que lorsque vous utilisez Outlook comme programme de messagerie.
2. Si les données saisies dans la cellule D7 sont une valeur de texte, la fenêtre d'e-mail apparaîtra également.
Envoyez facilement des e-mails via Outlook en fonction des champs de la liste de diffusion créée dans Excel:
La Envoyer des emails utilité de Kutools pour Excel aide les utilisateurs à envoyer des e-mails via Outlook en fonction de la liste de diffusion créée dans Excel.
Téléchargez et essayez-le maintenant! (Parcours gratuit de 30 jours)
