Belirli bir Excel çalışma sayfasını her güncellediğinizde, belirli alıcılara her zaman bir e-posta bildirimi göndermeniz gerekiyorsa, bu makalede açıklanan yöntemi kullanabilirsiniz.
Bazı kullanıcılar, genellikle böyle bir e-postayı göndermeyi unuttukları için, MS Excel'in belirli bir çalışma sayfasını her güncelleştirdiklerinde belirli kişilere otomatik olarak bir Outlook e-posta bildirimi göndermesine izin verecek bir çözüm istiyor. Şimdi, aşağıda, bu işlevi VBA kodu ile nasıl gerçekleştireceğimize rehberlik edeceğiz.
Belirli Bir Excel Çalışma Sayfası Güncellendiğinde Bir E-postayı Otomatik Olarak Gönder
- Öncelikle, belirli çalışma sayfasını içeren kaynak Excel çalışma kitabına erişin.
- Ardından, MS Excel penceresinde 'Dosya' menüsüne gidin ve 'Seçenekler'i seçin.
- Ardından, “Excel Seçenekleri” penceresinde “Güven Merkezi” sekmesine geçin ve “Güven Merkezi Ayarları” düğmesine tıklayın.
- Ardından, yeni pencerede, "Tüm makroları etkinleştir" seçeneğini seçmeniz gereken "Makro Ayarları" sekmesine geçin.
- Bundan sonra, “Gizlilik Seçenekleri” sekmesine dönün ve “Kişisel bilgileri kaydettiğinizde dosya özelliklerinden kaldır” özelliğini etkinleştirin.
- Ardından, bu ayarları kaydetmek için birkaç "Tamam"a tıklayın.
- Excel çalışma kitabına yedekledikten sonra ilgili çalışma sayfasına erişin.
- Alt kenar çubuğundaki çalışma sayfası adına sağ tıklayın ve “Kodu Görüntüle” seçeneğini seçin.
- Bundan sonra, aşağıdaki VBA kodunu ilgili sayfanın projesine kopyalayın.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nConfirmation As Integer
Dim objNewWorkbook As Excel.Workbook
Dim objNewWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object
nConfirmation = MsgBox("Do you want to send an email notification about the sheet updating now?", vbInformation + vbYesNo, "Mail Sheet Updates")
If nConfirmation = vbYes Then
ActiveWorkbook.Save
On Error Resume Next
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
'Change the email details as per your needs
With objMail
.To = "test@datanumen.com"
.Subject = "Email Notifying Sheet Updates"
.Body = "Hi," & vbCrLf & vbCrLf & "The worksheet " & Chr(34) & ActiveWorkbook.Sheets(1).Name & Chr(34) & " in this Excel workbook attachment is updated."
'Attach this workbook
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
End If
End Sub
- Bundan sonra, bu çalışma kitabını Excel Macro-Enabled çalışma kitabı olarak kaydetmelisiniz.
- İlk önce “Uygulamalar için Microsoft Visual Basic” penceresini kapatın.
- Ardından, sol üst köşedeki "Dosya" yı tıklayın.
- Ardından, "Farklı Kaydet" i seçin.
- İletişim kutusunda, "Kayıt türü" alanında "Excel Makro Etkin Çalışma Kitabı" seçeneğini seçin.
- Son olarak “Kaydet” butonuna tıklayın.
- Son olarak, bu çalışma kitabını kapatabilirsiniz.
- Şimdi, önceden kaydedilmiş Excel makro özellikli çalışma kitabını açabilirsiniz.
- Belirli bir çalışma sayfasında herhangi bir değişiklik yaptığınızda, bir e-posta bildirimi gönderip göndermeyeceğinizi soran bir mesaj alırsınız.
- “Evet” düğmesine tıkladığınızda, önceden tanımlanmış alıcılara bir Outlook e-postası gönderilecektir.
- Bu e-posta aşağıdaki ekran görüntüsü gibi görünecektir:
Hasarlı Outlook Veri Dosyasını Onarın
Belki de Excel dosya bozulmasıyla karşılaşmışsınızdır. Aslında, Outlook veri dosyası, Excel dosyasıyla aynı savunmasızdır. Örneğin, Outlook'u yanlış şekilde kapatmak, PST dosyasının kolayca bozulmasına neden olabilir. Bu nedenle, düzenli veri yedeklemeleri yapmak ve sağlam bir PST düzeltme aracı hazırlamak da dahil olmak üzere Outlook dosyasını korumak için önlemler almak çok önemlidir. DataNumen Outlook Repair. Bu yardımcı program yeterince güçlüdür. PST'yi onar sorunlar ve PST verilerini kurtarın.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql düzeltmesi ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com