Ամեն անգամ, երբ թարմացնում եք որոշակի Excel-ի աշխատաթերթը, եթե դուք միշտ պետք է էլփոստով ծանուցում ուղարկեք որոշակի հասցեատերերի, կարող եք օգտագործել այս հոդվածում ներկայացված մեթոդը:
Որոշ օգտատերեր լուծում են խնդրում, որպեսզի MS Excel-ը ավտոմատ կերպով ուղարկի Outlook էլփոստի ծանուցում կոնկրետ անձանց ամեն անգամ, երբ նրանք թարմացնում են որոշակի աշխատաթերթը, քանի որ նրանք հաճախ մոռանում են ուղարկել նման նամակ: Այժմ, ստորև, մենք կուղղորդենք, թե ինչպես հասնել այս գործառույթին VBA կոդով:
Ավտոմատ նամակ ուղարկել, երբ հատուկ Excel-ի աշխատաթերթը թարմացվում է
- Սկզբում մուտք գործեք Excel-ի աղբյուրի աշխատանքային գրքույկը, որը պարունակում է կոնկրետ աշխատաթերթ:
- Այնուհետև MS Excel պատուհանում անցեք «Ֆայլ» ընտրացանկը և ընտրեք «Ընտրանքներ»:
- Հաջորդը, «Excel Options» պատուհանում անցեք «Trust Center» ներդիրին և սեղմեք «Trust Center Settings» կոճակը:
- Այնուհետև, նոր պատուհանում անցեք «Մակրո կարգավորումներ» ներդիրին, որի տակ պետք է ընտրեք «Միացնել բոլոր մակրոները»:
- Դրանից հետո անցեք «Գաղտնիության ընտրանքներ» ներդիրին և միացրեք «Հեռացնել անձնական տվյալները ֆայլի հատկություններից պահելու ժամանակ» գործառույթը:
- Այնուհետև կտտացրեք մի քանի «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 Macro-Enabled աշխատանքային գրքույկ:
- Նախ, փակեք «Microsoft Visual Basic հավելվածների համար» պատուհանը:
- Այնուհետև կտտացրեք «Ֆայլ» վերին ձախ անկյունում:
- Հաջորդը, ընտրեք «Պահպանել որպես»:
- Երկխոսության վանդակում ընտրեք «Excel մակրո-միացված աշխատանքային գրքույկը» «Պահպանել որպես տիպ» դաշտում:
- Վերջում սեղմեք «Պահպանել» կոճակը:
- Ի վերջո, դուք կարող եք փակել այս աշխատանքային գիրքը:
- Այժմ դուք կարող եք բացել նախկինում պահված Excel-ի մակրո-միացված աշխատանքային գիրքը:
- Երբ որևէ փոփոխություն կատարեք կոնկրետ աշխատաթերթում, դուք կստանաք հաղորդագրություն՝ խնդրելով ուղարկել էլփոստի ծանուցում:
- Երբ սեղմում եք «Այո» կոճակը, Outlook-ի նամակը կուղարկվի նախապես սահմանված հասցեատերերին:
- Այս նամակը նման կլինի ստորև ներկայացված սքրինշոթին.
Վերականգնել վնասված Outlook տվյալների ֆայլը
Գուցե դուք երբևէ հանդիպել եք Excel ֆայլի կոռումպացվածության հետ: Իրականում, Outlook տվյալների ֆայլը նույնքան խոցելի է, որքան Excel ֆայլը: Օրինակ, Outlook-ի սխալ փակումը կարող է հեշտությամբ հանգեցնել PST ֆայլի կոռուպցիայի: Հետևաբար, կարևոր է գործողություններ ձեռնարկել Outlook ֆայլը պաշտպանելու համար, ներառյալ տվյալների կանոնավոր կրկնօրինակումներ, ինչպես նաև PST ամրագրման հզոր գործիք պատրաստելը, ինչպիսիք են. DataNumen Outlook Repair. Այս օգտակար ծրագիրը բավականաչափ հզոր է վերանորոգել PST խնդիրներ և վերականգնել PST տվյալները:
Հեղինակի ներածություն.
Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql ֆիքս և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com