Белгілі бір Excel жұмыс парағын жаңартқан сайын, әрқашан белгілі бір алушыларға электрондық пошта хабарландыруын жіберу қажет болса, осы мақалада келтірілген әдісті пайдалана аласыз.
Кейбір пайдаланушылар белгілі бір жұмыс парағын жаңартқан сайын MS Excel бағдарламасына Outlook электрондық пошта хабарландыруын автоматты түрде жіберуге мүмкіндік беретін шешімді сұрайды, өйткені олар мұндай электрондық поштаны жіберуді жиі ұмытады. Енді, төменде біз бұл функцияға VBA кодымен қалай жетуге болатынын көрсетеміз.
Арнайы Excel жұмыс парағы жаңартылған кезде электрондық поштаны автоматты түрде жіберу
- Біріншіден, арнайы жұмыс парағы бар бастапқы Excel жұмыс кітабына қол жеткізіңіз.
- Содан кейін MS Excel терезесінде «Файл» мәзіріне өтіп, «Параметрлер» тармағын таңдаңыз.
- Әрі қарай, «Excel параметрлері» терезесінде «Сенім орталығы» қойындысына ауысып, «Сенім орталығының параметрлері» түймесін басыңыз.
- Содан кейін, жаңа терезеде «Макрос параметрлері» қойындысына ауысыңыз, оның астында «Барлық макростарды қосу» таңдау керек.
- Осыдан кейін «Құпиялылық параметрлері» қойындысына өтіп, «Сақтау кезінде файл сипаттарынан жеке ақпаратты жою» мүмкіндігін қосыңыз.
- Содан кейін осы параметрлерді сақтау үшін бірнеше «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» терезесін жабыңыз.
- Содан кейін сол жақ жоғарғы бұрыштағы «Файл» түймесін басыңыз.
- Содан кейін «Басқаша сақтау» таңдаңыз.
- Тілқатысу терезесінде «Түр ретінде сақтау» өрісінде «Excel макро-қосылған жұмыс кітабын» таңдаңыз.
- Соңында «Сақтау» түймесін басыңыз.
- Соңында бұл жұмыс кітабын жабуға болады.
- Енді сіз бұрын сақталған Excel макростары қосылған жұмыс кітабын аша аласыз.
- Арнайы жұмыс парағында қандай да бір өзгертулер енгізген кезде, электрондық пошта хабарландыруын жіберу керек пе деген сұрау туралы хабарлама аласыз.
- «Иә» түймесін басқан кезде Outlook электрондық поштасы алдын ала анықталған алушыларға жіберіледі.
- Бұл электрондық пошта төмендегі скриншотқа ұқсайды:
Зақымдалған Outlook деректер файлын жөндеу
Мүмкін сіз Excel файлының бүлінуіне тап болған шығарсыз. Шын мәнінде, Outlook деректер файлы Excel файлымен бірдей осал. Мысалы, Outlook-ті дұрыс жабу PST файлының оңай бұзылуына әкелуі мүмкін. Сондықтан, деректердің тұрақты сақтық көшірмелерін жасауды, сондай-ақ сенімді PST түзету құралын дайындауды қоса, Outlook файлын қорғау үшін әрекеттерді орындау маңызды. DataNumen Outlook Repair. Бұл утилита жеткілікті қуатты жөндеу PST мәселелер және PST деректерін қалпына келтіру.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com