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
- Lai sāktu, palaidiet savu Outlook programmu 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 restartēt programmu 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
Gandrīz neapstrīdams fakts ir tas, ka programma Outlook ir pakļauta bojājumiem. Tāpēc PST datu aizsardzība pret bojājumiem ir diezgan grūts uzdevums. Tomēr joprojām ir daži noteikumi un padomi. Piemēram, lai novērstu PST datu zudumu, varat regulāri veidot datu dublējumkopijas. Turklāt, lai nodrošinātu tūlītēju datu atkopšanu pēc Outlook avārijas, varat sagatavot pieredzējušu speciālistu. 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