☰

Establecer categoría de un nuevo mensaje de correo electrónico antes de enviarlo

tag-icon • tag-icon microsoft-outlook-2010
Establecer categoría de un nuevo mensaje de correo electrónico antes de enviarlo

Puedo configurar fácilmente la categoría de un correo electrónico que recibo usando el menú desplegable de categorías. Sin embargo, quiero poder configurar la categoría de un correo electrónico que envío. Podría enviarlo y luego ir a Elementos enviados, pero realmente preferiría tener la categoría desplegable en la cinta del nuevo mensaje de correo para poder configurar la categoría antes de presionar enviar. Sin embargo, no puedo encontrarlo en ninguna parte de la cinta de personalización.

Puedo abrir etiquetas y hacerlo allí, pero prefiero tener el acceso rápido que tengo en otras cintas (como categorizar un correo electrónico que recibo).

¿Alguien me puede apuntar en la dirección correcta?

Respuesta1

Necesitas esto; si no se establece ninguna categoría, la operación de envío se cancela:

Subaplicación privada_ItemSend (elemento ByVal como objeto, cancelar como booleano)
    Dim oc como OlObjectClass
    oc = elemento.Clase
    Si oc = olMail O oc = olReport O oc = olMeetingRequest Entonces
        item.ShowCategoriesDialog
        item.BillingInformation = item.Categorías
        Si item.Categories = "" Entonces Cancelar = Verdadero
    Terminara si
Subtítulo final

BillingInformation también está configurada, ya que se transmite de regresoinalteradocuando tus destinatarios respondan, por lo que las respuestas entrantes ya están categorizadas correctamente... para que eso funcione, necesitarás esto también:

Subaplicación privada_NewMailEx (ByVal EntryIDCollection como cadena)
    Dim arr() como cadena, i como entero
    Atenuar ns como Outlook.NameSpace
    Atenúelo, m como elemento de correo

    En caso de error Continuar siguiente
    Establecer ns = Aplicación.Sesión
    arr = Dividir(EntryIDCollection, ","")
    Para i = 0 a UBound(arr)
        Establecerlo = ns.GetItemFromID(arr(i))
        Si itm.Class = olMail Entonces
            Establecer m = itm
            Si m.Categories = "" Y m.BillingInformation "" Entonces
                m.Categorías = m.Información de facturación
                m.Información de facturación = ""
                m.Guardar
            Terminara si
        Terminara si
    Próximo
Subtítulo final

Saludos MF

información relacionada