Göndərilən görüş dəvətnamələrini Outlook-da xüsusi bir qovluğa avtomatik necə köçürmək olar

Bir çox istifadəçi Outlook-u göndərilən görüş dəvətnamələrini müəyyən bir qovluğa avtomatik köçürmək üçün konfiqurasiya etmək üsullarını arzulayır. Bu yazıda biz bunu həyata keçirməyin asan üsulunu paylaşacağıq.

Outlook həmişə e-poçtlar, tapşırıq sorğuları və ya görüş dəvətlərindən asılı olmayaraq bütün göndərilən elementləri "Göndərilmiş Elementlər" qovluğunda saxlayır. Bu şəkildə, "Göndərilmiş Elementlər" qovluğunun xeyli qarışıq olduğunu görəcəksiniz. Beləliklə, Outlook-un görüş dəvətnamələrini avtomatik olaraq başqa bir qovluğa köçürməsini və yadda saxlamasını istəyə bilərsiniz.

E-poçt yazdığınız zaman "Seçimlər" sekmesinde "Göndərilmiş Elementi Digər Qovluğa Saxla" tapa bilərsiniz. O, istifadəçilərə e-poçtları göndərməzdən əvvəl saxlamaq üçün qovluğu dəyişməyə icazə verir. Bununla belə, görüş dəvəti üçün belə bir xüsusiyyət mövcud deyil. Edə biləcəyiniz şey göndərilən görüş dəvətnamələrini göndərdikdən sonra köçürməkdir. Bundan sonra biz sizə VBA kodu ilə belə bir “avtomatik hərəkətə” necə nail olmağı öyrədəcəyik.

Göndərilən Görüş Dəvətlərini Xüsusi Qovluğa Avtomatik Köçürün

1. Ən başlanğıcda Outlook-da “Alt + F11” düymələrini basın.
2. Sonra VBA redaktoruna daxil olduqdan sonra “ThisOutlookSession” layihəsini açın
3. Sonra, aşağıdakı VBA kodunu bu layihəyə kopyalayın və yapışdırın.

'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

4. Daha sonra, kursoru “Application_Startup” altproqramına qoyun və bu yeni makronu aktivləşdirəcək “F5” düyməsini basın.
5. O vaxtdan bəri, hər dəfə görüş dəvəti göndərdikdən sonra o, aşağıdakı şəkildəki kimi yuxarıdakı kodda əvvəlcədən təyin edilmiş təyinat qovluğuna avtomatik köçürüləcək.

Outlook Data Recovery-də zəruri məsələlər

Hamımızın bildiyi kimi, Outlook indi və sonra çökə bilər. Beləliklə, istifadəçilərin Outlook faylının əlçatmaz hala gəlməsi ilə qarşılaşmaları adi haldır. Bu zaman Outlook məlumatlarının bərpasını həyata keçirməlisiniz. Bu baxımdan tamamilə təcrübəsizsinizsə, məlumatların ehtiyat nüsxələrinin yoxlanılması, gələnlər qutusunu düzəltmə aləti – Scanpst və həmçinin etibarlı xarici Outlook düzəltmə aləti daxil olmaqla bəzi hazırlıqlar etməlisiniz. DataNumen Outlook Repair. Onlarla, siz edə bilərsiniz Outlook-u təmir edin tər tökmədən fayl.

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 korrupsiya və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com