☰

Outlook 2013 VBA: consulte el editor en el panel de lectura

tag-icon • tag-icon microsoft-outlook vba microsoft-outlook-2013
Outlook 2013 VBA: consulte el editor en el panel de lectura

Estoy intentando asignar una categoría a un mensaje al enviarlo (una categoría 'Enviar ahora' para anular un retraso en el envío). La siguiente macro funciona bien al editar el mensaje en una ventana separada, pero se bloquea en la línea 'Set msg = insp.CurrentItem' con el mensaje de error 'Variable de objeto o Con variable de bloque no configurada' cuando intento ejecutar la macro mientras edito el mensaje en el editor del panel de lectura.

¿Cómo me refiero correctamente al editor cuando está acoplado? ¿Y existe alguna prueba de condición que pueda utilizar para comprobar qué tipo de editor se está utilizando?

¡Gracias!

Public Sub SendNow()
Dim msg As Outlook.MailItem
Dim insp As Outlook.Inspector

Set insp = Application.ActiveInspector
Set msg = insp.CurrentItem
    If insp.EditorType = olEditorWord Then ' outlook 2013
        msg.Categories = "Send Now"
    End If
msg.Save
msg.Send

Set insp = Nothing
Set msg = Nothing
End Sub

Respuesta1

Echar un vistazo:

 Set exp = Application.ActiveExplorer
 Set msg = exp.ActiveInlineResponse
 If Not msg Is Nothing Then
 ...

información relacionada