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

Excel'de, belirli koşullara göre e-posta gönderme işlemini otomatikleştirebilirsiniz; örneğin, belirli bir hücredeki değer. Örneğin, D7 hücresindeki değer 200'ü aştığında Outlook üzerinden otomatik olarak e-posta göndermek isteyebilirsiniz. Bu öğretici, bir hücrenin değerine göre Outlook'ta e-posta tetiklemek için VBA (Visual Basic for Applications) kullanmayı göstermektedir.

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

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

Lütfen Excel'de hücre değerine göre e-posta göndermek için aşağıdaki adımları izleyin.

1. E-posta göndermek istediğiniz çalışma sayfasında (burada D7 hücresi deniyor), sayfa sekmesine sağ tıklayın ve bağlam menüsünden Kodu Görüntüle'yi seçin. Ekran görüntüsüne bakın:

2. Açılan Microsoft Visual Basic for Applications penceresinde lütfen aşağıdaki VBA kodunu sayfa kod penceresine kopyalayıp yapıştırın.

VBA kodu: Excel'deki hücre değerine göre Outlook aracılığıyla e-posta gönderme

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. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına birlikte basın.

Şimdi itibaren, D7 hücresine girilen değer 200'den büyük olduğunda, belirtilen alıcılar ve içerikle birlikte Outlook'ta otomatik olarak bir e-posta oluşturulacaktır. Bu e-postayı göndermek için Gönder düğmesine tıklayabilirsiniz. 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 veri bir metin değeri ise, e-posta penceresi de açılacaktır.

İlgili makaleler:

• Excel'de çalışma kitabı kaydedildiğinde Outlook aracılığıyla e-posta gönderme nasıl yapılır?
• Excel'de belirli bir hücre değiştirilirse e-posta gönderme nasıl yapılır?
• Excel'de bir düğmeye tıklandığında e-posta gönderme nasıl yapılır?
• Excel'de son tarih geldiğinde e-posta gönderme nasıl yapılır?
• Excel'de çalışma kitabı güncellenirse e-posta hatırlatması veya bildirimi gönderme nasıl yapılır?