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

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

Олон хэрэглэгчид илгээсэн уулзалтын урилгыг тодорхой хавтас руу автоматаар шилжүүлэхийн тулд Outlook-ийг тохируулах аргуудыг хүсч байна. Энэ нийтлэлд бид үүнийг хэрэгжүүлэх хялбар аргыг хуваалцах болно.

Outlook нь илгээсэн бүх зүйлийг имэйл, ажлын хүсэлт, уулзалтын урилга зэргээс үл хамааран 'илгээсэн зүйл' фолдерт хадгалдаг. Энэ аргаар та "Илгээсэн зүйлс" хавтасаа нэлээд эмх замбараагүй байгааг олж мэдэх болно. Ингэснээр та Outlook-д автоматаар шилжиж, уулзалтын урилгыг өөр хавтсанд хадгалахыг хүсч магадгүй юм.

Та имэйл бичихдээ "Сонголтууд" таб дээр "Илгээсэн зүйлийг бусад фолдерт хадгалах" -ыг олох боломжтой. Энэ нь хэрэглэгчдэд имэйл илгээхээсээ өмнө хадгалахын тулд фолдероо өөрчлөх боломжийг олгодог. Гэсэн хэдий ч уулзалтын урилгад ийм боломж байхгүй байна. Таны хийж чадах зүйл бол илгээсэн уулзалтын урилгыг илгээсний дараа шилжүүлэх явдал юм. Үүний дараа бид VBA кодоор ийм "авто шилжих" арга замыг хэрхэн яаж хийхийг зааж өгөх болно.

Тодорхой хавтас руу илгээсэн уулзалтын урилгыг автоматаар шилжүүлэх

Хамгийн эхэнд Outlook дээр “Alt + F11” товчийг дарна уу.
Дараа нь VBA редакторт орсны дараа “ThisOutlookSession” төслийг нээнэ үү
Дараа нь дараахь VBA кодыг хуулж, энэ төсөлд оруулна уу.

'As Meeting will be auto saved in Sent Items folder
'Here we will monitor the new item in this folder
Public WithEvents objSentFolder As Outlook.Folder
Public WithEvents objSentItems As Outlook.Items

Private Sub Application_Startup()
    Set objSentFolder = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail)
    Set objSentItems = objSentFolder.Items
End Sub

Private Sub objSentItems_ItemAdd(ByVal Item As Object)
    Dim objMeetingInvitation As Outlook.MeetingItem
    Dim objTargetFolder As Outlook.Folder
 
    'If the new item is meeting item
    If TypeOf Item Is MeetingItem Then
       Set objMeetingInvitation = Item
 
       'Get the target folder
       On Error Resume Next
       Set objTargetFolder = objSentFolder.Folders("Meeting Requests")
       If objTargetFolder Is Nothing Then
          Set objTargetFolder = objSentFolder.Folders.Add("Meeting Requests")
       End If
 
       'Move it
       objMeetingInvitation.Move objTargetFolder
    End If
End Sub

Дараа нь курсороо “Application_Startup” дэд програмд оруулаад “F5” товчийг дарна уу, ингэснээр энэ шинэ макро идэвхжих болно.
Түүнээс хойш уулзалтын урилга илгээх бүртээ доорх зургийн адил дээрх код дээр урьдчилан тодорхойлсон очих хавтас руу автоматаар шилжих болно.

Outlook өгөгдлийг сэргээхэд шаардагдах асуудлууд

Бидний мэдэж байгаагаар Outlook нь хааяа сүйрч болзошгүй юм. Тиймээс хэрэглэгчид Outlook файл руу нэвтрэх боломжгүй болох нь түгээмэл байдаг. Тэр үед та Outlook-ийн өгөгдлийг сэргээх ажлыг гүйцэтгэх ёстой. Хэрэв та энэ тал дээр бүрэн шинэхэн хүн бол өгөгдлийн нөөцлөлт, ирсэн хайрцгийг засах хэрэгсэл - Scanpst, мөн найдвартай гадаад Outlook засах хэрэгсэл шалгах гэх мэт бэлтгэл ажлыг хийх хэрэгтэй. DataNumen Outlook Repair. Тэдгээрийн тусламжтайгаар та чадна Outlook програмыг засах хөлс гаргалгүйгээр файл.

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

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