Cara Meminta Peserta Yang Diwajibkan Hanya untuk Menjawab Jemputan Mesyuarat Anda di Outlook

Sebilangan pengguna hanya ingin meminta respons mesyuarat dari peserta yang diperlukan ketika mengirim jemputan mesyuarat Outlook. Artikel ini akan mengajar bagaimana mewujudkannya melalui Outlook VBA.

Untuk tidak meminta respons ketika mengirim undangan rapat, Anda cukup mengklik tombol "Pilihan Respons" dan hapus centang opsi "Minta Respons". Tetapi, dengan cara ini, semua hadirin, tidak kira perkara yang diperlukan atau pilihan, tidak akan diminta untuk menghantar respons mesyuarat mereka. Namun, pada hakikatnya, most pada waktunya, apa yang anda mahukan adalah tidak meminta respons daripada peserta pilihan. Dalam kes ini, anda harus mencari kaedah lain, seperti kaedah berikut.

Meminta Hadirin Yang Dikehendaki Hanya Untuk Menjawab Jemputan Mesyuarat Anda

1. Pertama, lancarkan aplikasi Outlook anda.
2. Kemudian tekan butang "Alt + F11" di skrin Outlook utama.
3. Selanjutnya, setelah mendapat akses ke Outlook VBA editor, anda harus mencari dan membuka projek "ThisOutlookSession".
4. Selepas itu, salin kod VBA berikut ke tetingkap projek ini.

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

5. Selepas itu, anda harus menandatangani projek VBA ini.

• Ikuti makro semasa dan tekan "Alat" di bar alat.
• Kemudian pilih pilihan "Tandatangan Digital".
• Dalam kotak dialog pop timbul, ikuti arahan pada skrin untuk menyelesaikannya.

6. Kemudian periksa tetapan makro Outlook anda untuk memastikan bahawa makro bertanda digital diaktifkan.
7. Mulai sekarang, apabila anda menghantar jemputan mesyuarat, peserta pilihan tidak akan diminta untuk memberi respons. Dari perspektif mereka, jemputan mesyuarat akan kelihatan seperti tangkapan skrin berikut:

Memerangi Virus dan Perisian Kerosakan di Outlook

Penapis E-mel Sampah Outlook memainkan peranan penting dalam mengelakkan serangan virus dan perisian hasad yang tidak dijangka. Pada masa kini, virus menjadi semakin canggih. Untuk menyekat jangkitan virus dan serangan malware, bukan sahaja anda harus menyekat spam pada waktunya, tetapi juga lebih baik anda melaporkan domain atau alamat e-mel yang mencurigakan kepada Microsoft, membantu memperkuat penapis Email Junk Outlook. Di samping itu, selain daripada penapis e-mel sampah bawaan, anda juga perlu menyimpan alat pembaikan yang hebat, seperti DataNumen Outlook Repair. Ia mempunyai jauh lebih tinggi Pemulihan Outlook menilai daripada pesaingnya.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pulihkan sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com