Control de encriptar y firmar digitalmente los botones en Outlook 2007 o posterior

Question

Estoy trabajando en un pequeño script en VBA que permitirían que reenviar automáticamente los mensajes cifrados, incluyendo queridos.

El único problema que tengo es la eliminación de la encriptación mediante programación.

pensé que podría hacerlo de esta manera:

• Abra el mensaje
• anule la selección de las opciones iniciar Cifrar &
• Reenviar mensaje

Con este enfoque no sé cómo obtener una referencia a los botones de signo Encrypt &.

Aquí está el código que funciona para los correos cifrados estándar, no. Me puse este método como una "regla de correo electrónico" para todos los correos entrantes:

Sub test_macro(MyMail As MailItem) 
    MyMail.Display 
    'Need some API here to access the decrypt button  


    MyMail.Recipients.Add "otheraddress@company.com" 
    MyMail.Recipients.Add "otheraddress2@company.com" 
    Item_Send (MyMail) 


End Sub 

Antecedentes

Hay un requisito para reenviar todos los mensajes entrantes para una dirección de departamento para ciertas personas. Reenviarlos encriptados causa todo tipo de problemas de certificados entre varias versiones de Outlook (2003/2007/2010/etc) ya que todos necesitan tener la clave privada de la dirección del departamento y eso parece estar en conflicto con su certificado de cuenta personal (obtengo todos tipo de comportamiento errático, a veces funciona, a veces no).

Enfoques alternativos

• que se dan cuenta de que, debido a las restricciones de seguridad el enfoque actual probablemente no funcionará, así que estoy en alternativas. Tal vez si creo un complemento para Outlook, ¿eso me dará acceso a alguna API de seguridad para descifrar los mensajes entrantes?

• Crear un cliente POP, ir a buscar, descifrar manualmente los mensajes y reenviarlo. Este es probablemente el enfoque más difícil ya que hay muchos algoritmos/formatos de cifrado compatibles con Outlook por defecto.

¿Alguna otra idea? ¡Gracias!

Answer 1

que acabó creando un cliente de correo electrónico IMAP utilizando la excelente biblioteca Mail.dll. Lo recomiendo encarecidamente por correo electrónico: excelente documentación, excelente soporte.

Answer 2

En puño, pensé que tenía que ser un método en el objeto MailItem, pero no hay una función MailItem.Encrypt().

Esto tomó un tiempo para encontrar: http://support.microsoft.com/?kbid=279013

No creo que hay una manera de hacer lo que quiera de la manera deseada, pero tal vez puede utilizar la información en ese enlace para crear un correo personalizado formulario de mensaje con un artículo de correo como entrada y enviarlo después.

Answer 3

Sé que este es un hilo más antiguo, pero para los interesados, la forma correcta de alternar (habilitar o deshabilitar) programáticamente y alternar programáticamente el cifrado (y también verificar la firma y el cifrado) se muestra en el artículo de VBA al que se hace referencia a continuación . Esto también puede hacerse en .NET con ajustes menores

https://support2.microsoft.com/kb/2636465?wa=wsignin1.0

Por ejemplo, la siguiente función en C# .NET se puede utilizar en Outlook 2007, 2010, 2013 para comprobar si está cifrada mediante programación un elemento de correo electrónico:

public static bool isEmailEncrypted(ref Outlook.MailItem mItem) { 
     bool retVal = false; 
     string PR_SECURITY_FLAGS = "http://schemas.microsoft.com/mapi/proptag/0x6E010003"; 
     long flags = (long)mItem.PropertyAccessor.GetProperty(PR_SECURITY_FLAGS); 
     //need to do bitwise AND operation 
     long bitwiseAND = flags & 1; //encrypted bit is the first bit 
     if (bitwiseAND == 1) { 
      retVal = true; 
     } 
     return retVal; 
    }