Excel'de belirli bir hücre değiştirilirse e-posta nasıl gönderilir?
Bu makale, Excel'de belirli bir aralıktaki bir hücre değiştirildiğinde Outlook aracılığıyla bir e-posta göndermekten bahsediyor.
Belirli bir aralıktaki hücre VBA kodu ile değiştirilirse e-posta gönderin
Belirli bir aralıktaki hücre VBA kodu ile değiştirilirse e-posta gönderin
Belirli bir çalışma sayfasında A2:E11 aralığındaki bir hücre değiştirildiğinde etkin çalışma kitabı eklenmiş olarak otomatik olarak yeni bir e-posta oluşturmanız gerekirse, aşağıdaki VBA kodu size yardımcı olabilir.
1. Belirli bir aralıktaki değiştirilmiş hücreye göre e-posta göndermeniz gereken çalışma sayfasında, sayfa sekmesine sağ tıklayın ve ardından 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 VBA kodunu kopyalayıp Kod penceresine yapıştırın.
VBA kodu: Belirtilen aralıktaki hücre Excel'de değiştirilirse e-posta gönderin
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. Tuşuna basın. Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.
Şu andan itibaren, A2: E11 aralığındaki herhangi bir hücre değiştirilir, güncellenmiş çalışma kitabının ekli olduğu yeni bir e-posta oluşturulur. Ve konu, alıcı ve e-posta gövdesi gibi belirtilen tüm 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.
İlgili yazılar:
- Excel'deki hücre değerine göre otomatik olarak e-posta nasıl gönderilir?
- Çalışma kitabı Excel'e kaydedildiğinde Outlook üzerinden nasıl e-posta 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?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!