Daugelis vartotojų tikisi, kad „Outlook“ gali automatiškai perkelti ir archyvuoti gaunamus el. laiškus į konkrečius pašto aplankus pagal priedų failų pavadinimus. Taigi, šiame straipsnyje pateiksime greitą būdą, kaip padėti tai gauti naudojant „Outlook VBA“.
Jei norite automatiškai perkelti gaunamus el. laiškus į konkrečius aplankus pagal jų priedų failų pavadinimus, pirmiausia tikrai sugalvosite naudoti „Outlook“ taisyklę. Tačiau pagaliau sužinosite, kad „Outlook“ taisyklė neturi priedo failo pavadinimo tikrinimo funkcijos. Todėl, jei tikrai norite tai įgyvendinti, turite naudoti kitus būdus, pavyzdžiui, per trečiosios šalies priedą arba „Outlook VBA“. Taigi čia mes išmokysime jus, kaip tai pasiekti naudojant VBA. Skaitykite toliau, kad gautumėte išsamias operacijas ir konkrečius VBA kodus.
Automatiškai perkelkite gaunamus el. laiškus į konkrečius aplankus pagal priedus
- Dėl astart, paleiskite „Outlook“ programą kaip įprasta.
- Tada paspauskite „Alt + F11“ mygtukus, kad pasiektumėte VBA redaktorių.
- Kitame lange „Microsoft Visual Basic for Applications“ galite rasti ir dukart spustelėti projektą „ThisOutlookSession“ kairėje pusėje.
- Tada atsidariusiame „ThisOutlookSession“ projekto lange nukopijuokite ir įklijuokite šiuos VBA kodus.
Public WithEvents objMails As Outlook.Items
Private Sub Application_Startup()
Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub objMails_ItemAdd(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim objAttachment As Outlook.Attachment
Dim strAttachmentName As String
Dim objInboxFolder As Outlook.Folder
Dim objTargetFolder As Outlook.Folder
'Ensure the incoming item is an email
If TypeOf Item Is MailItem Then
Set objMail = Item
Set objAttachments = objMail.attachments
'Check if the incoming email contains one or more attachments
If objAttachments.Count > 0 Then
For Each objAttachment In objAttachments
strAttachmentName = objAttachment.DisplayName
Set objInboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)
'Check the names of all the attachments
'Specify the target folders
If InStr(LCase(strAttachmentName), "worklog") > 0 Then
Set objTargetFolder = objInboxFolder.Folders("WorkLog")
ElseIf InStr(LCase(strAttachmentName), "report") > 0 Then
Set objTargetFolder = objInboxFolder.Folders("Report")
ElseIf InStr(LCase(strAttachmentName), "statistics") > 0 Then
Set objTargetFolder = objInboxFolder.Folders("Statistics")
End If
Next
'Move the email to specific folder
objMail.Move objTargetFolder
End If
End If
End Sub
- Vėliau naująjį VBA projektą turite pasirašyti skaitmeniniu būdu.
- Pirma, norėdami sukurti asmeninį sertifikatą, galite naudoti įmontuotą įrankį – VBA projektų skaitmeninius sertifikatus.
- Tada VBA redaktoriuje įrankių juostoje spustelėkite „Įrankiai“ > „Skaitmeninis parašas“.
- Tada vadovaukitės ekrane pateikiamomis instrukcijomis, kad pasirašytumėte.
- Po to galite išeiti iš VBA redaktoriaus ir pakeisti Outlook makrokomandos saugą į žemą.
- Vėliau turėtumėte atsigautitart Outlook, kad suaktyvintumėte naują VBA projektą.
- Galiausiai nuo šiol „Outlook“ automatiškai patikrins visų gaunamų el. laiškų priedų failų pavadinimus ir perkels konkrečius į konkrečius aplankus.
Apsaugokite savo PST duomenis
Tai išmaldaost neabejotinas faktas, kad „Outlook“ yra jautri korupcijai. Taigi apsaugoti savo PST duomenis nuo žalos yra gana sudėtinga užduotis. Tačiau vis tiek galite rasti tam tikrų taisyklių ir patarimų. Pavyzdžiui, norėdami išvengti PST duomenų praradimo, galite nuolat kurti atsarginę duomenų kopiją. Be to, norėdami nedelsiant gelbėti po „Outlook“ gedimo, galite paruošti patyrusį PST taisymas įrankis, pvz DataNumen Outlook Repair.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server atsigavimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com