Unii utilizatori doresc să solicite doar răspunsuri la întâlnire de la participanții solicitați atunci când trimit o invitație la întâlnire Outlook. Acest articol vă va învăța cum să îl realizați prin Outlook VBA.
Pentru a nu solicita răspunsuri atunci când trimiteți invitații la întâlnire, puteți doar să faceți clic pe butonul „Opțiuni de răspuns” și să debifați opțiunea „Solicitare răspunsuri”. Dar, prin acest mijloc, toți participanții, indiferent dacă este necesar sau opțional, nu vor fi obligați să-și trimită răspunsurile la întâlnire. Cu toate acestea, în realitate, most de timp, ceea ce doriți este să nu solicitați răspunsuri de la participanții opționali. În acest caz, trebuie să căutați alte metode, cum ar fi următoarea.
Solicitați numai participanților necesari să răspundă la invitația dvs. la întâlnire
- În primul rând, lansați aplicația Outlook.
- Apoi apăsați butoanele tastei „Alt + F11” în ecranul principal Outlook.
- Apoi, după ce obțineți acces la editorul Outlook VBA, ar trebui să găsiți și să deschideți proiectul „ThisOutlookSession”.
- Ulterior, copiați următorul cod VBA în această fereastră de proiect.
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
- După aceea, ar trebui să semnați acest proiect VBA.
- Rămâneți în macrocomanda actuală și apăsați pe „Instrumente” din bara de instrumente.
- Apoi alegeți opțiunea „Semnături digitale”.
- În caseta de dialog pop-up, urmați instrucțiunile de pe ecran pentru a o finaliza.
- Mai târziu, verificați setările macrocomenzii Outlook pentru a vă asigura că macrocomanda semnată digital este activată.
- De acum înainte, când trimiteți o invitație la întâlnire, participanții opționali nu vor fi obligați să răspundă. Din perspectiva lor, invitația la întâlnire va arăta ca următoarea captură de ecran:
Combateți virușii și programele malware în Outlook
Filtrul de e-mail nedorit din Outlook joacă un rol important în evitarea atacurilor neașteptate de viruși și malware. În zilele noastre, virușii devin din ce în ce mai sofisticați. Pentru a bloca infecția cu viruși și atacul malware, nu numai că ar trebui să blocați spam-urile la timp, ci și să raportați domeniile sau adresele de e-mail suspecte la Microsoft, ajutând la întărirea filtrului Outlook Junk Email. În plus, în afară de filtrul de e-mail nedorit încorporat, trebuie să păstrați și un instrument de reparare formidabil, cum ar fi DataNumen Outlook Repair. Are o mult mai mare Recuperare Outlook rată decât rivalii săi.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com