Slik ber du bare påkrevde deltakere om å svare på møteinvitasjonen din i Outlook

Noen brukere ønsker kun å be om møtesvar fra de nødvendige deltakerne når de sender en Outlook-møteinvitasjon. Denne artikkelen vil lære hvordan du kan realisere det via Outlook VBA.

For ikke å be om svar når du sender møteinvitasjoner, kan du bare klikke på "Svaralternativer"-knappen og fjerne merket for "Be om svar". Men på denne måten vil ikke alle deltakerne, uansett påkrevd eller valgfri, være pålagt å sende møtesvarene sine. Imidlertid, i virkeligheten, most av tid, det du ønsker er å ikke be om svar fra valgfrie deltakere. I dette tilfellet må du søke andre metoder, for eksempel den følgende.

Be bare påkrevde deltakere om å svare på møteinvitasjonen din

1. For det første, start Outlook-applikasjonen.
2. Trykk deretter på "Alt + F11"-tastene på hovedskjermbildet i Outlook.
3. Deretter, etter å ha fått tilgang til Outlook VBA-editor, bør du finne og åpne "ThisOutlookSession" -prosjektet.
4. Kopier deretter følgende VBA-kode inn i dette prosjektvinduet.

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. Etter det bør du signere dette VBA-prosjektet.

• Hold deg i gjeldende makro og trykk "Verktøy" i verktøylinjen.
• Velg deretter alternativet "Digitale signaturer".
• I popup-dialogboksen følger du instruksjonene på skjermen for å fullføre den.

6. Sjekk senere Outlook-makroinnstillingene for å sikre at digitalt signert makro er aktivert.
7. Fra nå av, når du sender ut en møteinvitasjon, vil ikke de valgfrie deltakerne være pålagt å svare. Fra deres perspektiv vil møteinvitasjonen se ut som følgende skjermbilde:

Bekjempe virus og skadelig programvare i Outlook

Outlook søppelpostfilteret spiller en viktig rolle for å unngå uventede virus- og skadevareangrep. I dag blir virus stadig mer sofistikerte. For å blokkere virusinfeksjon og skadelig programvare, bør du ikke bare blokkere søppelpost i tide, men du bør også rapportere mistenkelige e-postdomener eller adresser til Microsoft, noe som bidrar til å styrke søppelpostfilteret i Outlook. I tillegg, bortsett fra det innebygde søppelpostfilteret, må du også ha et formidabelt reparasjonsverktøy, som f.eks. DataNumen Outlook Repair. Den har en mye høyere Outlook gjenoppretting rate enn konkurrentene.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med