Хэрэв та Excel-ийн тодорхой ажлын хуудсыг шинэчлэх бүрт тодорхой хүлээн авагч руу имэйлээр мэдэгдэл илгээх шаардлагатай бол энэ нийтлэлд танилцуулсан аргыг ашиглаж болно.
Зарим хэрэглэгчид MS Excel нь тодорхой ажлын хуудсыг шинэчлэх бүртээ Outlook имэйл мэдэгдлийг тодорхой хүмүүст автоматаар илгээх боломжийг олгодог шийдлийг хүсдэг, учир нь тэд ийм имэйл илгээхээ мартдаг. Одоо бид VBA кодоор энэ функцэд хэрхэн хүрэх талаар зааварчилгаа өгөх болно.
Excel-ийн тодорхой ажлын хуудсыг шинэчлэх үед автоматаар имэйл илгээх
- Эхний ээлжинд тодорхой ажлын хуудсыг агуулсан Excel-ийн ажлын номонд хандах боломжтой.
- Дараа нь MS Excel цонхны "Файл" цэс рүү очоод "Сонголтууд" -ыг сонгоно уу.
- Дараа нь "Excel Options" цонхноос "Итгэмжлэлийн төв" таб руу шилжиж, "Итгэмжлэлийн төвийн тохиргоо" товчийг дарна уу.
- Дараа нь шинэ цонхонд "Макро тохиргоо" таб руу шилжиж, "Бүх макрог идэвхжүүлэх" хэсгийг сонгох хэрэгтэй.
- Үүний дараа "Нууцлалын сонголтууд" таб руу шилжиж, "Хадгалахад файлын шинж чанараас хувийн мэдээллийг устгах" функцийг идэвхжүүлнэ үү.
- Дараа нь эдгээр тохиргоог хадгалахын тулд хэд хэдэн "OK" дээр дарна уу.
- Excel ажлын дэвтэрт буцаж орсны дараа тодорхой ажлын хуудсанд хандана уу.
- Доод талын самбар дээрх ажлын хуудасны нэр дээр хулганы баруун товчийг дараад "Код харах" гэснийг сонгоно уу.
- Үүний дараа дараах VBA кодыг тодорхой хуудасны төсөл рүү хуулна уу.
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
- Үүний дараа та энэ ажлын номыг Excel макро идэвхжүүлсэн ажлын ном болгон хадгалах хэрэгтэй.
- Эхлээд "Microsoft Visual Basic for Applications" цонхыг хаа.
- Дараа нь зүүн дээд буланд байрлах "Файл" дээр дарна уу.
- Дараа нь "Хадгалах" гэснийг сонгоно уу.
- Харилцах цонхны "Хадгалах төрөл" талбарт "Excel макро идэвхжүүлсэн ажлын ном"-ыг сонгоно уу.
- Эцэст нь "Хадгалах" товчийг дарна уу.
- Эцэст нь та энэ ажлын номыг хааж болно.
- Одоо та өмнө нь хадгалсан Excel-ийн макро идэвхжүүлсэн ажлын номыг нээж болно.
- Тодорхой ажлын хуудсанд ямар нэгэн өөрчлөлт хийх үед танд имэйл мэдэгдэл илгээх эсэхийг асуусан мессеж ирэх болно.
- "Тийм" товчийг дарахад Outlook имэйлийг урьдчилан тодорхойлсон хүлээн авагчид илгээх болно.
- Энэ имэйл нь доорх дэлгэцийн зураг шиг харагдах болно.
Гэмтсэн Outlook мэдээллийн файлыг засах
Магадгүй та Excel файлын эвдрэлтэй тулгарч байсан байх. Үнэндээ Outlook өгөгдлийн файл нь Excel файлтай адил эмзэг байдаг. Жишээлбэл, Outlook-ийг буруу хаах нь PST файлын эвдрэлд хүргэж болзошгүй юм. Тиймээс, Outlook файлыг хамгаалах арга хэмжээ авах, тухайлбал өгөгдлийн байнгын нөөцлөлт хийх, түүнчлэн PST засах хүчирхэг хэрэгсэл бэлтгэх нь чухал юм. DataNumen Outlook Repair. Энэ хэрэгсэл нь хангалттай хүчтэй юм засварын газар асуудал болон PST өгөгдлийг сэргээх.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com