2 métodos para enviar por lotes varios elementos del calendario a través del correo electrónico de Outlook

En ocasiones, es posible que desee enviar muchos de los elementos de su calendario a otras personas. En esta situación, es posible que desee enviarlos por lotes. Ahora, este artículo mostrará 2 enfoques para conseguirlo.

Para enviar rápidamente un elemento del calendario por correo, sin importar una reunión o cita, puede abrir este elemento y luego hacer clic en el botón "Reenviar" en el grupo "Acciones". Es muy facil. Sin embargo, por este medio, enviar varios elementos del calendario sería un poco problemático. Por lo tanto, aquí te enseñaremos 2 métodos mucho más rápidos. Ambos pueden permitirle realizar esta tarea a granel.

Método 1: envío por lotes en un correo

1. Desde el principio, seleccione los elementos del calendario que desee.
2. Luego, mantenga presionado el botón derecho del mouse y arrástrelos al panel de navegación "Correo".
3. A continuación, en la lista que se muestra, seleccione la opción "Copiar aquí como mensaje con archivo adjunto".
4. Inmediatamente, aparecerá un nuevo correo electrónico, en el que se han adjuntado los elementos del calendario seleccionados.

Método 2: envío por lotes en correos separados

1. Para empezar, en Outlook, acceda al editor de VBA mediante la combinación de teclas “Alt + F11”.
2. Luego, en la nueva ventana, coloque el siguiente código VBA en un módulo vacío.

Sub BatchForwardMultipleCalendarItems()
    Dim objSelection As Outlook.Selection
    Dim i As Integer
    Dim objCalendarItem As Outlook.AppointmentItem
    Dim objMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For i = objSelection.Count To 1 Step -1
        Set objCalendarItem = objSelection.Item(i)
 
        Set objMail = Outlook.Application.CreateItem(olMailItem)
        With objMail
            .Attachments.Add objCalendarItem
            'Change the recipient's email address
            .Recipients.Add ("shelly@datanumen.com")
            .Recipients.ResolveAll
            .Subject = objCalendarItem.Subject
            .Body = "Type body here ...."
            .Send
       End With
    Next i
End Sub

Nota: cambie la dirección de correo electrónico del destinatario según sus propias necesidades.

3. Después de eso, siga el paso opcional presentado en "Cómo ejecutar código VBA en su Outlook”Para agregar esta nueva macro a la barra de herramientas de acceso rápido.
4. Finalmente, pruebe esta macro.

• En primer lugar, seleccione varios elementos del calendario.
• Luego, haga clic en el botón de macro en la barra de herramientas de acceso rápido.
• Inmediatamente, Outlook enviará correos separados que se adjuntan con los elementos del calendario.

Deshágase de la corrupción de datos de Outlook

Debido al hecho de que Outlook es susceptible a errores y corrupción, debe tener cuidado con todos los riesgos para Outlook. Por lo general, incluyen virus ocultos en los correos electrónicos, errores humanos e incluso fallas de hardware, etc. Además de estar atento a estos peligros, debe tomar algunas precauciones, como realizar copias de seguridad periódicas de datos para Outlook, preparar un poderoso Corrección de PST herramienta como DataNumen Outlook Repair y así sucesivamente.

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 Server recuperación y productos de software de reparación de Outlook. Para más información visite www.datanumen.com