Cómo reenviar rápidamente la invitación a la reunión a quienes no han respondido en Outlook

Muchos usuarios esperan reenviar rápidamente la invitación a la reunión a los asistentes que no han respondido. Este artículo le mostrará cómo lograrlo.

En mi artículo anterior: "Cómo enviar rápidamente un correo de notificación a los asistentes a la reunión que no han respondido”, Puede aprender a enviar un correo de notificación a los destinatarios de la reunión que no han respondido. De manera similar, a muchos usuarios les gustaría reenviar directamente esta invitación a la reunión en lugar de un correo de notificación. Por lo tanto, a continuación, expondremos un fragmento de código VBA, que puede ayudarlo a realizarlo en un instante.

Vuelva a enviar la invitación a la reunión a quienes no hayan respondido

1. A start con, inicie su aplicación Outlook.
2. Luego, en la ventana principal de Outlook, presione los botones de tecla "Alt + F11" para acceder al editor de VBA.
3. A continuación, debe abrir un módulo no utilizado o simplemente insertar uno nuevo.
4. Posteriormente, copie y pegue el código VBA a continuación en este módulo.

Sub ResendMeetingInvitationToAttendeesNotRespond()
    Dim objMeeting As AppointmentItem
    Dim objAttendees As Recipients
    Dim objAttendee As recipient
    Dim AttendeesNotRespond As String
    Dim objCopiedMeeting As AppointmentItem
    Dim objRecipient As recipient
    Dim objItem As Object
 
    Set objMeeting = ActiveExplorer.Selection.Item(1)
    'Create a copy of the source meeting
    Set objCopiedMeeting = objMeeting.Copy
 
    'Remove all the original recipients
    For i = objCopiedMeeting.Recipients.Count To 1 Step -1
        objCopiedMeeting.Recipients.Item(i).Delete
    Next
 
    Set objAttendees = objMeeting.Recipients
    For Each objAttendee In objAttendees
        If (objAttendee.Type <> olOrganizer) And (objAttendee.MeetingResponseStatus = olResponseNone) Then
           'Add the recipients who haven't responded to this meeting
           objCopiedMeeting.Recipients.Add (objAttendee.Address)
        End If
    Next
 
    'Send this copied meeting
    objCopiedMeeting.Recipients.ResolveAll
    objCopiedMeeting.Send
 
    'Permanently delete the copied meeting
    objCopiedMeeting.UserProperties.Add ("Clear"), olText
    objCopiedMeeting.Save
    objCopiedMeeting.Delete
    For Each objItem In Application.Session.GetDefaultFolder(olFolderDeletedItems).Items
        If TypeName(objItem.UserProperties.Find("Clear")) <> "Nothing" Then
           objItem.Delete
        End If
    Next
End Sub

5. Después de eso, para un acceso conveniente posterior, es mejor que agregue este nuevo proyecto VBA a la barra de herramientas de acceso rápido como de costumbre.
6. Además, acceda a la configuración de macros para asegurarse de que se permitan macros.
7. Finalmente puedes tomar una foto:

• En primer lugar, debe seleccionar la reunión de origen en su calendario de Outlook.
• Luego presione el botón de macro en la barra de herramientas de acceso rápido.
• Inmediatamente, esta reunión se reenviará a los asistentes que no hayan respondido.

Resolver varios problemas de Outlook

Cuando utiliza su Outlook, pueden ocurrir todo tipo de problemas inesperadamente, como "No Responde" abrupto, mensajes de error emergentes, bloqueos, etc. Generalmente, es esencial que solucione los pequeños problemas con la utilidad de reparación interna. Sin embargo, si los problemas son demasiado serios para que Scanpst.exe los resuelva, no tiene más remedio que recurrir a una herramienta de reparación mucho más potente y confiable, como DataNumen Outlook Repair. Está bien versado en Reparación de PST, por lo que se sobrepone a 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 sql dañado y productos de software de reparación de Outlook. Para más información visite www.datanumen.com