Comment 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.

Envoyez automatiquement un e-mail en fonction de la valeur de la cellule avec le code VBA

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 Sub

Florales:

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:

Florales:

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.

Articles Liés:

• Comment envoyer un e-mail via Outlook lorsque le classeur est enregistré dans Excel?
• Comment envoyer un e-mail si une certaine cellule est modifiée dans Excel?
• Comment envoyer un e-mail si le bouton est cliqué dans Excel?
• Comment envoyer un e-mail si la date d'échéance a été respectée dans Excel?
• Comment envoyer un rappel ou une notification par e-mail si le classeur est mis à jour dans Excel?