Bir çox istifadəçi ümid edir ki, Outlook avtomatik olaraq daxil olan e-poçtları əlavə fayl adlarına uyğun olaraq xüsusi poçt qovluqlarına köçürə və arxivləşdirə bilər. Beləliklə, bu məqalədə Outlook VBA ilə əldə etməyinizə kömək etmək üçün sürətli bir yol təqdim edəcəyik.
Daxil olan e-poçtları əlavələrin fayl adlarına uyğun olaraq xüsusi qovluqlara avtomatik köçürmək istəyirsinizsə, ilk növbədə Outlook qaydasından istifadə etməyi düşünəcəksiniz. Bununla belə, nəhayət aşkar edəcəksiniz ki, Outlook qaydasında qoşma fayl adını yoxlamaq funksiyası yoxdur. Buna görə də, həqiqətən də bunu həyata keçirmək istəyirsinizsə, başqa yollardan istifadə etməlisiniz, məsələn, üçüncü tərəf əlavəsi və ya Outlook VBA vasitəsilə. Beləliklə, biz sizə VBA ilə necə nail olmağı öyrədəcəyik. Ətraflı əməliyyatlar və konkret VBA kodları əldə etmək üçün oxuyun.
Daxil olan e-poçtları qoşmalara əsasən xüsusi qovluqlara avtomatik köçürün
- Kimi üçüntart, Outlook proqramınızı normal olaraq işə salın.
- Sonra VBA redaktoruna daxil olmaq üçün “Alt + F11” düymələrini basın.
- Sonrakı “Proqramlar üçün Microsoft Visual Basic” pəncərəsində siz sol tərəfdə “ThisOutlookSession” layihəsini tapıb iki dəfə klikləyə bilərsiniz.
- Sonra açılmış “ThisOutlookSession” layihə pəncərəsində aşağıdakı VBA kodlarını kopyalayın və yapışdırın.
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
- Sonradan yeni VBA layihəsini rəqəmsal imzalamalısınız.
- Birincisi, şəxsi sertifikat yaratmaq üçün daxili alətdən - VBA Layihələri üçün Rəqəmsal Sertifikatlardan istifadə edə bilərsiniz.
- Sonra VBA redaktorunda alətlər panelində “Alətlər” > “Rəqəmsal İmza” üzərinə klikləyin.
- Sonra onu imzalamaq üçün ekrandakı təlimatları izləyin.
- Bundan sonra siz VBA redaktorundan çıxa və Outlook makro təhlükəsizliyini aşağı səviyyəyə dəyişə bilərsiniz.
- Daha sonra cavab verməlisəntart Yeni VBA layihəsini aktivləşdirmək üçün Outlook.
- Nəhayət, bundan sonra Outlook bütün daxil olan e-poçtların fayl adlarını avtomatik yoxlayacaq və xüsusi olanları xüsusi qovluqlara köçürür.
PST məlumatlarınızı qoruyun
Bu sədəqədirost Outlook-un korrupsiyaya həssas olması şübhəsiz bir faktdır. Beləliklə, PST məlumatlarınızı zərərdən qorumaq olduqca çətin bir işdir. Ancaq yenə də bəzi qaydalar və məsləhətlər tapa bilərsiniz. Məsələn, PST məlumat itkisinin qarşısını almaq üçün müntəzəm məlumat ehtiyat nüsxəsini çıxarmaqda davam edə bilərsiniz. Üstəlik, Outlook qəzasından sonra dərhal xilasetmə təmin etmək üçün təcrübəli bir hazırlaya bilərsiniz PST düzəlişi alət kimi DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL Server bərpa və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com