Bəzi istifadəçilər Outlook görüş dəvəti göndərərkən yalnız tələb olunan iştirakçılardan görüş cavablarını tələb etmək istəyirlər. Bu məqalə Outlook VBA vasitəsilə bunu necə həyata keçirməyi öyrədəcək.
Görüş dəvətləri göndərərkən cavab tələb etməmək üçün sadəcə “Cavab Seçimləri” düyməsini sıxıb “Cavab tələb et” seçimini silə bilərsiniz. Bununla belə, tələb olunan və ya istəyə bağlı olmasından asılı olmayaraq, bütün iştirakçılardan görüş cavablarını göndərmələri tələb olunmayacaq. Bununla belə, reallıqda most İstədiyiniz zaman isteğe bağlı iştirakçılardan cavab tələb etməməkdir. Bu vəziyyətdə, aşağıdakı kimi digər üsulları axtarmalısınız.
Yalnız Toplantı Dəvətinizə Cavab Vermək üçün Tələb olunan İştirakçıları İstəyin
- İlk növbədə, Outlook proqramınızı işə salın.
- Sonra əsas Outlook ekranında "Alt + F11" düymələrini basın.
- Sonra, Outlook VBA redaktoruna daxil olduqdan sonra "ThisOutlookSession" layihəsini tapıb açmalısınız.
- Sonradan aşağıdakı VBA kodunu bu layihə pəncərəsinə köçürün.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMeeting As Outlook.MeetingItem
Dim objCopiedMeeting As Outlook.AppointmentItem
Dim objOriginalAttendee As Outlook.recipient
Dim objCopiedAttendee As Outlook.recipient
If TypeOf Item Is MeetingItem Then
Set objMeeting = Item
For i = objMeeting.Recipients.count To 1 Step -1
'Remove Optional Attendees from the Original Meeting Invitation
Set objOriginalAttendee = objMeeting.Recipients.Item(i)
If objOriginalAttendee.Type = olOptional Then
objOriginalAttendee.Delete
End If
Next
'Copy the Meeting
Set objCopiedMeeting = objMeeting.GetAssociatedAppointment(True).Copy
'Disable "Request Response" Feature in the Copied Meeting
objCopiedMeeting.ResponseRequested = False
For i = objCopiedMeeting.Recipients.count To 1 Step -1
'Add the Previously Removed Optional Attendees
Set objCopiedAttendee = objCopiedMeeting.Recipients.Item(i)
If objCopiedAttendee.Type = olRequired Then
objCopiedAttendee.Delete
End If
Next
'Send out the Copied Meeting
objCopiedMeeting.Send
'Delete the Copied Meeting after Sending
objCopiedMeeting.Delete
End If
End Sub
- Bundan sonra bu VBA layihəsinə imza atmalısınız.
- Cari makroda qalın və alətlər panelində "Alətlər" düyməsini basın.
- Sonra "Rəqəmsal İmzalar" seçimini seçin.
- Açılan informasiya qutusunda onu tamamlamaq üçün ekrandakı təlimatları izləyin.
- Daha sonra rəqəmsal imzalanmış makronun aktiv olduğundan əmin olmaq üçün Outlook makro parametrlərinizi yoxlayın.
- Bundan sonra siz görüş dəvəti göndərdiyiniz zaman isteğe bağlı iştirakçıların cavab verməsi tələb olunmayacaq. Onların nöqteyi-nəzərindən görüş dəvəti aşağıdakı ekran görüntüsünə bənzəyəcək:
Outlook-da Viruslar və Zərərli Proqramlarla Mübarizə
Outlook Junk E-poçt filtri gözlənilməz virus və zərərli proqram hücumlarının qarşısını almaqda mühüm rol oynayır. İndiki vaxtda viruslar getdikcə daha təkmilləşir. Virus infeksiyası və zərərli proqram hücumunu əngəlləmək üçün nəinki spamları vaxtında bloklamalısınız, həm də şübhəli e-poçt domenləri və ya ünvanları barədə Microsoft-a daha yaxşı məlumat verməlisiniz ki, bu da Outlook Lazımsız E-poçt filtrini gücləndirməyə kömək edir. Əlavə olaraq, quraşdırılmış lazımsız e-poçt filtrindən başqa, siz həmçinin nəhəng təmir alətini də saxlamalısınız, məsələn DataNumen Outlook Repair. Daha yüksək göstəriciyə malikdir Outlook bərpası rəqiblərindən daha yüksək nisbətdə.
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 bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com