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