Daudzi lietotāji cer, ka programma Outlook var automātiski pārvietot un arhivēt ienākošos e-pastus noteiktās pasta mapēs atbilstoši pielikumu failu nosaukumiem. Tādējādi šajā rakstā mēs atklāsim ātru veidu, kā palīdzēt to iegūt, izmantojot programmu Outlook VBA.
Ja vēlaties automātiski pārvietot ienākošos e-pastus uz konkrētām mapēm atbilstoši to pielikumu failu nosaukumiem, jūs noteikti domājat vispirms izmantot Outlook kārtulu. Tomēr jūs beidzot atklāsiet, ka Outlook kārtulai nav funkcijas, kas pārbaudītu pielikuma faila nosaukumu. Tādēļ, ja jūs patiešām vēlaties to realizēt, jums ir jāizmanto citi veidi, piemēram, izmantojot trešās puses pievienojumprogrammu vai Outlook VBA. Tāpēc šeit mēs iemācīsim jums, kā to sasniegt ar VBA. Lasiet tālāk, lai iegūtu detalizētas darbības un konkrētus VBA kodus.
Automātiski pārvietot ienākošos e-pastus uz noteiktām mapēm, pamatojoties uz pielikumiem
- Par kātart, palaidiet programmu Outlook kā parasti.
- Pēc tam nospiediet taustiņu “Alt + F11” taustiņus, lai piekļūtu VBA redaktoram.
- Nākamajā logā “Microsoft Visual Basic for Applications” jūs varat atrast un divreiz noklikšķināt uz projekta “ThisOutlookSession” kreisajā pusē.
- Pēc tam atvērtajā “ThisOutlookSession” projekta logā nokopējiet un ielīmējiet šādus 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
- Pēc tam jums digitāli jāparaksta jaunais VBA projekts.
- Pirmkārt, personīgā sertifikāta izveidošanai varat izmantot iebūvēto rīku - digitālos sertifikātus VBA projektiem.
- Pēc tam VBA redaktorā rīkjoslā noklikšķiniet uz “Tools”> “Digital Signature”.
- Pēc tam izpildiet ekrānā redzamos norādījumus, lai to parakstītu.
- Pēc tam jūs varat iziet no VBA redaktora un mainīt Outlook makro drošību uz zemu.
- Vēlāk jums vajadzētu atsaukttart Outlook, lai aktivizētu jauno VBA projektu.
- Galu galā no šī brīža programma Outlook automātiski pārbaudīs visu ienākošo e-pastu pielikumu failu nosaukumus un pārvietos konkrētos uz noteiktām mapēm.
Aizsargājiet savus PST datus
Tas ir almost neapšaubāms fakts, ka programma Outlook ir uzņēmīga pret korupciju. Tādējādi ir diezgan grūts uzdevums aizsargāt savus PST datus pret bojājumiem. Bet jūs joprojām varat atrast dažus noteikumus un padomus. Piemēram, lai novērstu PST datu zudumu, varat turpināt veikt regulāru datu dublēšanu. Turklāt, lai nodrošinātu tūlītēju glābšanu pēc Outlook avārijas, varat sagatavot pieredzējušus PST labojums rīks, piemēram DataNumen Outlook Repair.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server atgūšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar