Har safar ma'lum bir Excel ish varag'ini yangilaganingizda, har doim muayyan qabul qiluvchilarga elektron pochta xabarnomasini yuborishingiz kerak bo'lsa, ushbu maqolada keltirilgan usuldan foydalanishingiz mumkin.
Ba'zi foydalanuvchilar MS Excel har safar ma'lum bir ish varag'ini yangilashda ma'lum shaxslarga Outlook elektron pochta xabarnomasini avtomatik ravishda yuborishiga ruxsat berish uchun yechim so'rashadi, chunki ular ko'pincha bunday elektron pochta xabarini yuborishni unutishadi. Endi, quyida biz VBA kodi bilan ushbu funktsiyaga qanday erishishni ko'rsatamiz.
Muayyan Excel ish varag'i yangilanganda avtomatik ravishda elektron pochta xabarini yuborish
- Avvalo, ma'lum bir ish varag'ini o'z ichiga olgan manba Excel ish kitobiga kiring.
- Keyin, MS Excel oynasida "Fayl" menyusiga o'ting va "Options" ni tanlang.
- Keyin, "Excel Options" oynasida "Ishonch markazi" yorlig'iga o'ting va "Ishonch markazi sozlamalari" tugmasini bosing.
- Keyinchalik, yangi oynada "Makro sozlamalari" yorlig'iga o'ting, uning ostida "Barcha makrolarni yoqish" ni tanlashingiz kerak.
- Shundan so'ng, "Maxfiylik parametrlari" yorlig'iga o'ting va "Saqlash paytida fayl xususiyatlaridan shaxsiy ma'lumotlarni o'chirish" funksiyasini yoqing.
- Keyin ushbu sozlamalarni saqlash uchun bir nechta "OK" tugmasini bosing.
- Excel ish kitobiga qaytganingizdan so'ng, maxsus ish varag'iga kiring.
- Pastki yon paneldagi ishchi varaq nomini o'ng tugmasini bosing va "Kodni ko'rish" -ni tanlang.
- Shundan so'ng, quyidagi VBA kodini maxsus varaqning loyihasiga nusxalang.
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
- Shundan so'ng, siz ushbu ish kitobini Excel Ibratli ish kitobi sifatida saqlashingiz kerak.
- Birinchidan, "Microsoft Visual Basic for Applications" oynasini yoping.
- Keyin, yuqori chap burchakdagi "Fayl" tugmasini bosing.
- Keyin, "Boshqa saqlash" -ni tanlang.
- Muloqot oynasida "Tiri sifatida saqlash" maydonida "Excel makro-yoqilgan ishchi kitobi" ni tanlang.
- Nihoyat, "Saqlash" tugmasini bosing.
- Nihoyat, siz ushbu ish kitobini yopishingiz mumkin.
- Endi siz avval saqlangan Excel makrosli ish kitobini ochishingiz mumkin.
- Muayyan ish varag'iga biron bir o'zgartirish kiritganingizda, sizga elektron pochta xabarnomasini yuborish kerakligi haqida xabar keladi.
- "Ha" tugmasini bosganingizda, Outlook elektron pochta xabari oldindan belgilangan qabul qiluvchilarga yuboriladi.
- Ushbu elektron pochta quyidagi skrinshotga o'xshaydi:
Buzilgan Outlook ma'lumotlar faylini tiklang
Ehtimol siz hech qachon Excel faylining buzilishiga duch kelgandirsiz. Aslida, Outlook ma'lumotlar fayli Excel fayli kabi zaifdir. Masalan, Outlookni noto'g'ri yopish PST faylining buzilishiga olib kelishi mumkin. Shuning uchun, Outlook faylini himoya qilish bo'yicha choralar ko'rish, jumladan muntazam ma'lumotlarning zaxira nusxalarini yaratish, shuningdek, PST tuzatish vositasini tayyorlash juda muhimdir. DataNumen Outlook Repair. Ushbu yordamchi dastur etarlicha kuchli PST-ni ta'mirlash muammolar va PST ma'lumotlarini tiklash.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com