Excel'de belirli bir hücre değiştirilirse e-posta nasıl gönderilir?

Bu makale, Excel'de belirli bir aralıktaki hücre değiştirildiğinde Outlook üzerinden e-posta göndermeyi anlatmaktadır.

Belirli bir aralıktaki hücre değiştirildiğinde VBA kodu ile e-posta gönderin

Belirli bir aralıktaki hücre değiştirildiğinde VBA kodu ile e-posta gönderin

Eğer A2:E11 aralığındaki bir hücre belirli bir Çalışma Sayfası'nda değiştirildiğinde etkin Çalışma Kitabı'nı ekli olarak otomatik olarak yeni bir e-posta oluşturmanız gerekiyorsa, aşağıdaki VBA kodu size yardımcı olabilir.

1. Belirli bir aralıktaki değiştirilen hücreye göre e-posta göndermeniz gereken çalışma sayfasında, sayfa sekmesine sağ tıklayın ve ardından bağlam menüsünden Kodu Görüntüle'yi tıklayın. Ekran görüntüsüne bakın:

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

VBA kodu: Excel'de belirli bir aralıktaki hücre değiştirildiğinde e-posta gönderme

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
    Dim xRgSel As Range
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xMailBody As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xRg = Range("A2:E11")
    Set xRgSel = Intersect(Target, xRg)
    ActiveWorkbook.Save
    If Not xRgSel Is Nothing Then
        Set xOutApp = CreateObject("Outlook.Application")
        Set xMailItem = xOutApp.CreateItem(0)
        xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
            " in the worksheet '" & Me.Name & "' were modified on " & _
            Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
            " by " & Environ$("username") & "."

        With xMailItem
            .To = "Email Address"
            .Subject = "Worksheet modified in " & ThisWorkbook.FullName
            .Body = xMailBody
            .Attachments.Add (ThisWorkbook.FullName)
            .Display
        End With
        Set xRgSel = Nothing
        Set xOutApp = Nothing
        Set xMailItem = Nothing
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Notlar:

3. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına aynı anda basın.

Şimdi itibaren, A2:E11 aralığındaki herhangi bir hücre değiştirildiğinde, güncellenmiş çalışma kitabı ekli olarak yeni bir e-posta oluşturulacaktır. Ve konu, alıcı ve e-posta içeriği gibi tüm belirtilen alanlar e-postada listelenecektir. Lütfen e-postayı gönderin.

Not: VBA kodu yalnızca Outlook'u e-posta programınız olarak kullanıyorsanız çalışır.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

İlgili makaleler:

• Excel'de hücre değerine göre otomatik olarak e-posta nasıl gönderilir?
• Excel'de çalışma kitabı kaydedildiğinde Outlook üzerinden e-posta nasıl gönderilir?
• Excel'de düğmeye tıklandığında e-posta nasıl gönderilir?
• Excel'de son teslim tarihi gelmişse e-posta nasıl gönderilir?
• Excel'de çalışma kitabı güncellendiğinde e-posta hatırlatması veya bildirimi nasıl gönderilir?