Algunos usuarios solo desean solicitar respuestas a la reunión de los asistentes requeridos cuando envían una invitación a una reunión de Outlook. Este artículo le enseñará cómo realizarlo a través de Outlook VBA.
Para no solicitar respuestas al enviar invitaciones a reuniones, simplemente haga clic en el botón "Opciones de respuesta" y desmarque la opción "Solicitar respuestas". Pero, por este medio, no se requerirá que todos los asistentes, no importa si es obligatorio u opcional, envíen sus respuestas a la reunión. Sin embargo, en realidad, most de tiempo, lo que desea es no solicitar respuestas a los asistentes opcionales. En este caso, debes buscar otros métodos, como el siguiente.
Solicite a los asistentes requeridos solo para responder a su invitación a la reunión
- En primer lugar, inicie su aplicación Outlook.
- Luego presione los botones de tecla "Alt + F11" en la pantalla principal de Outlook.
- A continuación, después de obtener acceso al editor de Outlook VBA, debe buscar y abrir el proyecto "ThisOutlookSession".
- Posteriormente, copie el siguiente código VBA en esta ventana del proyecto.
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
- Después de eso, debes firmar este proyecto de VBA.
- Permanezca en la macro actual y presione "Herramientas" en la barra de herramientas.
- Luego elija la opción "Firmas digitales".
- En el cuadro de diálogo emergente, siga las instrucciones en pantalla para completarlo.
- Más tarde, verifique la configuración de la macro de Outlook para asegurarse de que la macro firmada digitalmente esté habilitada.
- A partir de ahora, cuando envíe una invitación a una reunión, no se requerirá que los asistentes opcionales respondan. Desde sus perspectivas, la invitación a la reunión se verá como la siguiente captura de pantalla:
Combatir virus y malware en Outlook
El filtro de correo electrónico no deseado de Outlook juega un papel importante para evitar ataques inesperados de virus y malware. Hoy en día, los virus se vuelven cada vez más sofisticados. Para bloquear la infección de virus y el ataque de malware, no solo debe bloquear los spam a tiempo, sino que también es mejor informar los dominios o direcciones de correo electrónico sospechosos a Microsoft, lo que ayuda a fortalecer el filtro de correo no deseado de Outlook. Además, además del filtro de correo electrónico no deseado incorporado, también debe tener una herramienta de reparación formidable, como DataNumen Outlook Repair. Tiene un mucho más alto Recuperación de Outlook tasa que sus rivales.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperar sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com