Օգտվողը գուցե ցանկանա էլեկտրոնային փոստը պահել կոշտ սկավառակի վրա ՝ դրանք Outlook- ից անկախ դիտելու կամ ուրիշի հետ կիսվելու համար: Այս հոդվածում մենք կներկայացնենք, թե ինչպես դա անել ինքնաբերաբար VBA- ի միջոցով:
Նամակներ արտահանել Outlook- ից
Ինտերնետի յուրաքանչյուր օգտվող չի օգտագործում Outlook- ը որպես էլփոստի հաճախորդ և կարող է օգտագործել այլընտրանքային մեկը: Կարող է լինել նաև իրավիճակ, երբ էլ. Փոստը պետք է կիսվի որևէ մեկի հետ ՝ առանց իրական էլ. Նաև փաստաթղթավորման և վերահսկման նպատակով էլ. Նամակները հաճախ ներկայացվում են որպես ապացույց: Նման սցենարների համար Outlook- ն առաջարկում է էլ. Փոստը ինքնուրույն արտահանելու մեթոդ ՝ որպես .msg կամ .html ֆայլ: Հետևյալ VBA սցենարը պահպանում է յուրաքանչյուր մուտքային նամակ ինքնաբերաբար կոշտ սկավառակի կանխորոշված վայրում ՝ առանց օգտագործողի միջամտության html ձևաչափով: Պահվելուց հետո էլփոստը կարող է դիտվել ցանկացած ինտերնետ դիտարկիչում ՝ առանց էլփոստի հաճախորդի անհրաժեշտության:
Outlook VBA սցենար
Ստորև բերված է Outlook VBA- ի ամբողջական սցենարը.
Private WithEvents Items As Outlook.Items
Private Count As Integer
Private Sub Application_Startup()
Dim objApp As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
' Get the items in the Inbox folder
Set objApp = Outlook.Application
Set objNameSpace = objApp.GetNamespace("MAPI")
Set Items = objNameSpace.GetDefaultFolder(olFolderInbox).Items
' Initialize count
Count = 1
End Sub
Private Sub Items_ItemAdd(ByVal objItem As Object)
On Error GoTo ShowError
Dim objMail As Outlook.MailItem
' Check if the item is a mail. If yes, then save it as a HTML file and update Count
If TypeName(objItem) = "MailItem" Then
Set objMail = objItem
objMail.SaveAs "C:\MyEmails\MyEmail" & CStr(Count), olHTML
Count = Count + 1
End If
Exit Sub
ShowError:
MsgBox Err.Number & " - " & Err.Description
End Sub
Ինչպես գործարկել սցենարը
մամուլ Alt + F11 Բացեք Outlook VBA խմբագրիչը և վերը նշված կոդը տեղադրեք «ThisOutlookSession»-ում: Այս սկրիպտը գործարկելուց առաջ համոզվեք, որ «C:\MyEmails» պանակը գոյություն ունի, և օգտատերն ունի դրա վրա գրելու թույլտվություն: Ավելին, կարևոր է իմանալ, որ այս սկրիպտը գործարկելուց առաջ Microsoft Outlook XX օբյեկտային գրադարանը պետք է ավելացվի նախագծի հղումներին «Գործիքներ» ցանկից, որտեղ XX-ը գրադարանի տարբերակն է:
Հասկացեք սցենարը
Սկրիպտում «Items_ItemAdd» ռեժիմը կգործարկվի «Մուտքային» պանակ մուտքագրվող յուրաքանչյուր մուտքային տարրի դեպքում: «TypeName» ֆունկցիան նախատեսված է ռեժիմի շարունակությունն ապահովելու համար միայն այն դեպքում, եթե տարրը էլեկտրոնային նամակ է, այլ ոչ թե Outlook-ի որևէ այլ տեսակի օբյեկտ: Եթե դուք էլեկտրոնային նամակը քաշեք որևէ այլ պանակից, ասենք՝ «Ուղարկված նյութեր»՝ մուտքային արկղ, ռեժիմը կշարունակի աշխատել և կատարել իր աշխատանքը: Կարևոր է իմանալ, որ «Items_ItemAdd»-ը կգործարկվի միայն այն դեպքում, եթե էլեկտրոնային նամակը ավելացվի հիմնական «Մուտքային» պանակին: Եթե հիմնական «Մուտքային» պանակում կան ներդրված թղթապանակներ, կոդը չի աշխատի, եթե դրանցից որևէ մեկին էլեկտրոնային նամակ ավելացվի: Որպեսզի այն աշխատի որևէ այլ պանակում, «Items_ItemAdd»-ը պետք է միացվի այդ կոնկրետ թղթապանակին «Application_Startup» ռեժիմում: Վերոնշյալ սկրիպտում olHTML ձևաչափը կարող է փոխարինվել olMSG, olRTF, olDoc կամ olTxt ձևաչափերով: Պահպանվող յուրաքանչյուր էլ.փոստի անվանման լռելյայն ձևաչափը «ԻմԷլ.փոստը##» է, որտեղ ##-ը 1-ից սկսած և աստիճանաբար աճող թիվն է: Օրինակ, այս սկրիպտը գործարկելուց հետո տասներկուերորդ մուտքային էլ.փոստը կպահպանվի որպես «ԻմԷլ.փոստ12»:
Տվյալների վերականգնում Outlook- ի ձախողումից հետո
Դա այնքան էլ անսովոր սցենար չէ, երբ Outlook- ը քայքայվի, և օգտվողները վերջնականապես կկորցնեն մեծ թվով տվյալներ: Նման իրավիճակներից ապաքինումը կարող է լինել շատ դժվար և ժամանակատար խնդիր: Նման դեպքերում ձեր կյանքը հեշտացնելու համար կարող եք օգտագործել ան Outlook տվյալների վերականգնում գործիք արդյունավետ և առանց սխալների վերականգնման համար:
Հեղինակի ներածություն.
Mary Underwood- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում dwg վերականգնում և rar վերականգնման ծրագրային արտադրանք: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com