Excel'deki hücre değerine göre otomatik olarak e-posta nasıl gönderilir?

Excel'de belirli bir hücre değerine göre Outlook aracılığıyla belirli bir alıcıya bir e-posta göndermek istediğinizi varsayarsak. Örneğin, bir çalışma sayfasındaki D7 hücresinin değeri 200'den büyük olduğunda, otomatik olarak bir e-posta oluşturulur. Bu makale, bu sorunu hızlı bir şekilde çözmeniz için bir VBA yöntemi sunar.

VBA kodu ile hücre değerine göre otomatik olarak e-posta gönderin

VBA kodu ile hücre değerine göre otomatik olarak e-posta gönderin

Excel'deki hücre değerine göre bir e-posta göndermek için lütfen aşağıdaki işlemleri yapın.

1. Çalışma sayfasında, hücre değerine göre e-posta göndermeniz gerekir (burada D7 hücresi yazmaktadır), sayfa sekmesine sağ tıklayın ve Kodu Görüntüle bağlam menüsünden. Ekran görüntüsüne bakın:

2. Açılırken Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki VBA kodunu kopyalayıp sayfa kodu penceresine yapıştırın.

VBA kodu: Excel'deki hücre değerine göre Outlook üzerinden e-posta gönderin

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

notlar:

3. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarları birlikte Uygulamalar için Microsoft Visual Basic pencere.

Şu andan itibaren, D7 hücresine girdiğiniz değer 200'den büyük olduğunda, belirtilen alıcılara ve gövdeye sahip bir e-posta Outlook'ta otomatik olarak oluşturulacaktır. Tıklayabilirsiniz Gönder Bu e-postayı göndermek için düğmesine basın. Ekran görüntüsüne bakın:

notlar:

1. VBA kodu yalnızca Outlook'u e-posta programınız olarak kullandığınızda çalışır.

2. D7 hücresine girilen veriler bir metin değeriyse, e-posta penceresi de dışarı çıkar.

İlgili yazılar:

• Çalışma kitabı Excel'e kaydedildiğinde Outlook üzerinden nasıl e-posta gönderilir?
• Excel'de belirli bir hücre değiştirilirse e-posta nasıl gönderilir?
• Excel'de düğme tıklanırsa e-posta nasıl gönderilir?
• Excel'de son tarih karşılanmışsa e-posta nasıl gönderilir?
• Çalışma kitabı Excel'de güncellenirse e-posta hatırlatıcı veya bildirim nasıl gönderilir?