Олон хэрэглэгчид Outlook нь ирж буй имэйлийг хавсралт файлын нэрийн дагуу тодорхой захидлын хавтас руу автоматаар зөөж, архивлаж чадна гэж найдаж байна. Тиймээс, энэ нийтлэлд бид Outlook VBA-г ашиглахад туслах хурдан арга замыг харуулах болно.
Хэрэв та ирж буй имэйлийг хавсралтын файлын нэрийн дагуу тодорхой фолдер руу автоматаар шилжүүлэхийг хүсвэл эхлээд Outlook дүрмийг ашиглах талаар бодох нь гарцаагүй. Гэсэн хэдий ч Outlook-ийн дүрэмд хавсралтын файлын нэрийг шалгах боломж байхгүй гэдгийг та эцэст нь олж мэдэх болно. Тиймээс, хэрэв та үнэхээр үүнийг хэрэгжүүлэхийг хүсч байвал гуравдагч талын нэмэлт хэрэгсэл эсвэл Outlook VBA гэх мэт өөр аргуудыг ашиглах хэрэгтэй. Тиймээс бид танд VBA-ийн тусламжтайгаар хэрхэн хүрэхийг заах болно. Нарийвчилсан үйлдлүүд болон тодорхой VBA кодуудыг авахын тулд уншина уу.
Ирж буй имэйлийг хавсралтад үндэслэн тодорхой хавтас руу автоматаар зөөх
- Учир ньtart, Outlook програмаа ердийнхөөрөө ажиллуулна уу.
- Дараа нь VBA засварлагч руу нэвтрэхийн тулд "Alt + F11" товчийг дарна уу.
- Дараагийн "Microsoft Visual Basic for Applications" цонхноос зүүн талд байгаа "ThisOutlookSession" төслийг олж давхар товшиж болно.
- Дараа нь нээгдсэн "ThisOutlookSession" төслийн цонхонд дараах VBA кодуудыг хуулж буулгана уу.
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
- Үүний дараа та шинэ VBA төсөлд дижитал гарын үсэг зурах хэрэгтэй.
- Нэгдүгээрт, та хувийн гэрчилгээ үүсгэхийн тулд суурилуулсан хэрэгсэл - VBA төслүүдийн дижитал гэрчилгээг ашиглаж болно.
- Дараа нь VBA засварлагчийн самбар дээрх "Хэрэгслүүд" > "Тоон гарын үсэг" дээр дарна уу.
- Дараа нь гарын үсэг зурахын тулд дэлгэцэн дээрх зааврыг дагана уу.
- Үүний дараа та VBA засварлагчаас гараад Outlook-ын макро хамгаалалтыг бага болгож өөрчлөх боломжтой.
- Дараа нь та дахин амрах ёстойtart VBA-ийн шинэ төслийг идэвхжүүлэх Outlook.
- Эцсийн эцэст, одооноос Outlook нь ирж буй бүх имэйлийн хавсралтын файлын нэрийг автоматаар шалгаж, тодорхой хавтас руу шилжүүлэх болно.
PST өгөгдлөө хамгаалаарай
Энэ бол өршөөл юмost Outlook нь авлигад өртөмтгий байдаг нь эргэлзээгүй баримт юм. Тиймээс PST өгөгдлийг гэмтлээс хамгаалах нь нэлээд хэцүү ажил юм. Гэхдээ та зарим дүрэм, зөвлөмжийг олж чадна. Жишээлбэл, PST-ийн өгөгдлийн алдагдлаас урьдчилан сэргийлэхийн тулд та өгөгдлийн байнгын нөөцлөлтийг үргэлжлүүлж болно. Түүнчлэн, Outlook эвдэрсэний дараа яаралтай аврах ажиллагааг хангахын тулд та туршлагатай хүмүүсийг бэлтгэж болно PST засах хэрэгсэл, гэх мэт DataNumen Outlook Repair.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. SQL Server нөхөн сэргээх програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com