Outlook дээр дамжуулсны дараа имэйлийг тодорхой хавтас руу хэрхэн автоматаар зөөх вэ

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Шуудангийн хайрцгаа эмх цэгцтэй байлгахын тулд та тодорхой имэйлийг тодорхой хавтсанд хадгалахад дасч болно. Энэ нийтлэл нь Outlook VBA-г ашиглан имэйлийг дамжуулсны дараа автоматаар зөөх талаар танд хэлэх болно.

Ижил имэйлийг тодорхой захидлын хавтсанд хадгалах нь их хэмжээний имэйлийг удирдах сайн зөвлөгөө юм. Янз бүрийн хэрэглэгчид шуудангийн ангилал, менежментийн өөрийн гэсэн шалгууртай байх ёстой. Жишээлбэл, та имэйлээ хариу илгээх, дамжуулах эсвэл бусад үйлдлүүдийнхээ дагуу ангилахыг илүүд үзэж болно. Хэрэв та имэйлийг дамжуулахдаа "Дамжуулах" гэх мэт тодорхой фолдер руу автоматаар шилжүүлэхийг хүсвэл дараах үйлдлүүд болон VBA кодуудыг ашиглан хурдан шуурхай авах боломжтой.

Имэйлийг дамжуулсны дараа автоматаар тодорхой хавтас руу зөөнө

Эхний ээлжинд Outlook програмыг ажиллуулна уу.
Дараа нь "Хөгжүүлэгч" таб руу шилжинэ үү.

Тайлбар: Хэрэв та энэ табыг олж чадахгүй бол эхлээд идэвхжүүлэхийн тулд "Файл" > "Сонголтууд" > "Туузыг тохируулах" хэсэгт очно уу.

Энэ таб харагдсаны дараа та доорх "Visual Basic" товчийг олж, товшино уу.
Дараа нь шинэ "Microsoft Visual Basic for Applications" цонх гарч ирнэ. Үүний дотор та зүүн талд байгаа "ThisOutlookSession" төсөл дээр давхар товшоод нээнэ үү.
Үүний дараа та дараах VBA кодуудыг хуулж, буулгаж болно.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

Дараа нь та шинэ VBA төсөлд гарын үсэг зурах шаардлагатай болно.

Нэгдүгээрт, дижитал гэрчилгээ үүсгэхийн тулд "VBA төслүүдийн дижитал гэрчилгээ" суурилуулсан хэрэгслийг ашиглана уу.
Дараа нь дараах дэлгэцийн агшин шиг сертификатыг энэ макрод онооно уу.

Дараа нь та дижитал гарын үсэг зурсан макрог зөвшөөрөхийн тулд макро тохиргоогоо өөрчилж болно.
Эцэст нь хэлэхэдtarШинэ макро идэвхжүүлэхийн тулд Outlook. Одооноос эхлэн та имэйлээ сонгоод "Дамжуулах" товчийг дарахад имэйл шууд "Дамжуулах" хавтас руу шилжих болно.

Хүсээгүй Outlook PST өгөгдлийн эвдрэлээс зайлсхий

Тэдний нэгost Outlook хэрэглэгчдийг удаан хугацаанд зовоож байсан асуудал бол Outlook нь авлигад өртөмтгий байдаг. Өөрөөр хэлбэл зовлон PST эвдрэл нийтлэг асуудал юм. Тиймээс, хэтийн төлөвийн өгөгдлийг алдахаас урьдчилан сэргийлэхийн тулд PST өгөгдлөө тогтмол, шинэчилсэн нөөцлөлт хийх нь дээр.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. авлигад автсан SQL Server програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com