Hər dəfə xüsusi Excel iş vərəqini yenilədiyiniz zaman, hər zaman xüsusi alıcılara e-poçt bildirişi göndərmək lazımdırsa, bu məqalədə təqdim olunan üsuldan istifadə edə bilərsiniz.
Bəzi istifadəçilər MS Excel-in hər dəfə konkret iş vərəqini yeniləyərkən müəyyən şəxslərə avtomatik olaraq Outlook e-poçt bildirişi göndərməsinə imkan vermək üçün həll istəyir, belə ki, onlar tez-tez belə e-poçt göndərməyi unudurlar. İndi, aşağıda, biz VBA kodu ilə bu funksiyaya necə nail olacağıq.
Xüsusi Excel İş Vərəqi Yeniləndikdə Avtomatik E-poçt Göndər
- İlk növbədə, xüsusi iş vərəqini ehtiva edən mənbə Excel iş kitabına giriş əldə edin.
- Sonra, MS Excel pəncərəsində "Fayl" menyusuna keçin və "Seçimlər" seçin.
- Sonra, "Excel Seçimləri" pəncərəsində "Güvən Mərkəzi" sekmesine keçin və "Güvən Mərkəzi Ayarları" düyməsini basın.
- Sonra, yeni pəncərədə "Makro Parametrlər" sekmesine keçin, bunun altında "Bütün makroları aktivləşdir" seçməlisiniz.
- Bundan sonra, "Məxfilik Seçimləri" sekmesine keçin və "Yaddaşıma zamanı fayl xassələrindən şəxsi məlumatları silin" funksiyasını aktivləşdirin.
- Sonra bu parametrləri saxlamaq üçün bir neçə "OK" düyməsini basın.
- Excel iş kitabına qayıtdıqdan sonra xüsusi iş vərəqinə daxil olun.
- Aşağı yan paneldəki iş səhifəsinin adını sağ vurun və "Kodu Bax" seçin.
- Bundan sonra, aşağıdakı VBA kodunu xüsusi vərəqin layihəsinə köçürü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 iş kitabını Excel Makro-Effektiv iş kitabı kimi saxlamalısınız.
- Əvvəlcə "Proqramlar üçün Microsoft Visual Basic" pəncərəsini bağlayın.
- Sonra, yuxarı sol küncdəki "Fayl" düyməsini basın.
- Sonra, "Fərqli saxla" seçin.
- Dialoq qutusunda, "Növ kimi yadda saxla" sahəsində "Excel Makro ilə İşçi Kitabı" seçin.
- Nəhayət, "Saxla" düyməsini basın.
- Nəhayət, bu iş kitabını bağlaya bilərsiniz.
- İndi, əvvəllər saxlanılmış Excel makro-aktiv iş kitabını aça bilərsiniz.
- Xüsusi iş vərəqində hər hansı dəyişiklik etdikdə, e-poçt bildirişinin göndərilib-göndərilməyəcəyini soruşan bir mesaj alacaqsınız.
- “Bəli” düyməsini kliklədiyiniz zaman əvvəlcədən təyin edilmiş alıcılara Outlook e-poçtu göndəriləcək.
- Bu e-poçt aşağıdakı ekran görüntüsünə bənzəyəcək:
Zədələnmiş Outlook Məlumat Faylını Təmir edin
Ola bilsin ki, siz heç vaxt Excel faylının pozulması ilə qarşılaşmısınız. Əslində, Outlook məlumat faylı Excel faylı ilə eyni həssasdır. Məsələn, Outlook-un düzgün bağlanmaması PST faylının asanlıqla pozulmasına səbəb ola bilər. Buna görə də, müntəzəm məlumatların ehtiyat nüsxələrinin çıxarılması, o cümlədən sağlam PST düzəltmə alətinin hazırlanması daxil olmaqla, Outlook faylını qorumaq üçün tədbirlər görmək vacibdir. DataNumen Outlook Repair. Bu yardım proqramı kifayət qədər güclüdür təmir PST problemləri və PST məlumatlarını bərpa edin.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com