Traduction de l'article : L'utilisation de MAPI Extended au sein de vos applications

Private Sub btnSend_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles btnSend.Click

    ' Obtient l'objet Outlook Application
    Dim outlookApplication As Outlook.Application = New Outlook.Application()

    ' Obtient l'objet d'espace de nom
    Dim olNamespace As Outlook.NameSpace = _
                okApplication.GetNamespace("MAPI")

    ' Se loggue à la session : ici, nous utilisons un Outlook déjà ouvert
    olNamespace.Logon(, , True, True)

    ' Création d'un nouveau mail et remplissage avec les informations fournies dans le formulaire 
    Dim newMail As Outlook.MailItem = _
        lookApplication.CreateItem(Outlook.OlItemType.olMailItem)
    newMail.To = tbxRecipientAddress.Text
    newMail.Subject = tbxSubject.Text
    newMail.Body = tbxMessage.Text

    newMail.Send()
    newMail = Nothing

    ' logoff de l'espace de nom (session)
    olNamespace.Logoff()

    ' Libère la référence à l'objet Outlook
    outlookApplication = Nothing

    ' Laisse le Garbagecollector faire son boulot

    GC.Collect()
    GC.WaitForPendingFinalizers()

End Sub

private void btnSend_Click(object sender, EventArgs e)
{
    object missing = System.Reflection.Missing.Value;

    // Obtient l'objet Outlook Application
    Outlook.Application outlookApplication = new Outlook.Application();

    // Obtient l'objet d'espace de noms
    Outlook.NameSpace nameSpace = outlookApplication.GetNamespace("MAPI");

    // Se loggue à la session : ici, nous utilisons un Outlook déjà ouvert
    nameSpace.Logon(missing, missing, true, true);

    // Création d'un nouveau mail et remplissage avec les informations fournies dans le formulaire
    Outlook.MailItem newMail = _
        lookApplication.CreateItem(Outlook.OlItemType.olMailItem);
    newMail.To = tbxRecipientAddress.Text;
    newMail.Subject = tbxSubject.Text;
    newMail.Body = tbxMessage.Text;

    newMail.Send();
    newMail = null;

    // logoff de l'espace de noms (session)
    olNamespace.Logoff();

    // Libère la référence à l'objet Outlook
    outlookApplication = Nothing;

    // Laisse le Garbagecollector faire son boulot
    GC.Collect();
    GC.WaitForPendingFinalizers();
}

#pragma once
#include <MAPIX.h>
#include <MapiUtil.h>
#include <MAPIGuid.h>
#include <MAPITags.h>

' Créez un nouveau mail et remplissez-le avec les informations fournies dans le formulaire. 
Dim newMail As Outlook.MailItem = _     
    outlookApplication.CreateItem(Outlook.OlItemType.olMailItem) 
' Ici, nous pouvons utiliser notre bibliothèque C++ 
Dim fabric As MAPIConcubine.Fabric = New MAPIConcubine.Fabric() 
' Nous passons la propriété MAPIObject notre bibliothèque et nos paramètres 
' notez qu'en VB.Net, vous ne pouvez pas voir la propriété MAPIOBJECT 
' mais soyez sûr qu'elle est bien là 
fabric.AddMessageHeader(newMail.MAPIOBJECT, tbxHeaderName.Text, _
    tbxHeaderValue.Text) 
' C'est tout 
fabric = Nothing 
newMail.To = tbxRecipientAddress.Text 
newMail.Subject = tbxSubject.Text 
newMail.Body = tbxMessage.Text 
' Envoi de l'email 
newMail.Send()

// Crée un nouveau mail et le remplit avec les informations fournies dans le formulaire
Outlook.MailItem newMail = outlookApplication.CreateItem     
(Outlook.OlItemType.olMailItem) as Outlook.MailItem; 
// Ici, nous pouvons utiliser notre bibliothèque C++ 
MAPIConcubine.Fabric fabric = new MAPIConcubine.Fabric(); 
// Nous passons la propriété MAPIObject notre bibliothèque et nos paramètres 
// notez qu'en VB.Net, vous ne pouvez pas voir la propriété MAPIOBJECT 
// mais soyez sûr qu'elle est bien là 
fabric.AddMessageHeader(newMail.MAPIOBJECT, tbxHeaderName.Text,
     tbxHeaderValue.Text); 
// c'est tout 
fabric = null; 
newMail.To = tbxRecipientAddress.Text; 
newMail.Subject = tbxSubject.Text; 
newMail.Body = tbxMessage.Text; 
newMail.Send();

/// 
/// Lit l'entête depuis un message Outlook 
/// 
/// [in] mapiObject - la propriété MAPIOBJECT de l'objet mailItem 
/// [in] headerName - Nom de l'entête à retrouver. 
/// [returns] headerValue - la valeur de l'entête avec le nom donné 
String^ Fabric::ReadMessageHeader(Object^ mapiObject, String^ headerName) 
{         
   // Pointeur vers l'interface IUnknown
   IUnknown* pUnknown = 0;
   // Pointeur vers l'interface IMessage
   IMessage* pMessage = 0;
   // Pointeur vers l'interface IMAPIProp
   IMAPIProp* pMAPIProp = 0;
   // La structure pour la variable MANEDProp
   MAPINAMEID* pNamedProp = 0;
   // Un tableau de PropertyTags comme résultat pour la méthode GetIDdFromNames Method.
   SPropTagArray* lpTags = 0;
   // Pointeur vers la structure qui reçoit le résultat de HrGetOneProp
   LPSPropValue lpSPropValue = 0;
   // Convertit les chaînes de caractères .Net en blocs de mémoire non managés
   IntPtr pHeaderName = Marshal::StringToHGlobalUni (headerName);
   // Si nous n'avons pas notre MAPIObject, autant tout arrêter
   if (mapiObject == nullptr)
      throw gcnew System::ArgumentNullException ("mapiObject","The MAPIObject must not be null!");     
   try   
   {         
      // Récupère l'interface IUnknon depuis notre MAPIObject venant d'Outlook         
      pUnknown = (IUnknown*)Marshal::GetIUnknownForObject(mapiObject).ToPointer ();         
      // Essaie de récupérer l'interface IMessag, si on ne peut pas, on arrête         
      if ( pUnknown->QueryInterface (IID_IMessage, (void**)&pMessage) != S_OK)             
         throw gcnew Exception("QueryInterface failed on IUnknown for IID_Message");         
      // essaie de récupérer l'interface depuis l'interface IMessage, sinon on arrête.         
      if ( pMessage->QueryInterface (IID_IMAPIProp, (void**)&pMAPIProp) != S_OK)
         throw gcnew Exception("QueryInterface failed on IMessage for IID_IMAPIProp");         
      // double vérification         
      if (pMAPIProp == 0) 
         throw gcnew Exception("Unknown Error on receiving the Pointeur versMAPI Properties.");         
      // Un ID trouvable via google et « bien documenté » pour accéder aux entêtes SMTP d'un message Outlook        
      GUID magicId =         
         {             
            x00020386, 0x0000, 0x0000,             
            {                 
               0xC0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46             
            }         
         };                 
      // Le pointeur vers la structure namedProp         
      if (MAPIAllocateBuffer(sizeof(MAPINAMEID), (LPVOID*)&pNamedProp) != S_OK) 
         throw gcnew Exception("Could not allocate memory buffer.");         
      // L'ID utilisé pour accéder à la propriété nommée        
      pNamedProp->lpguid = (LPGUID)&magicId;         
      // Définit PropertyName         
      pNamedProp->ulKind = MNID_STRING;         
      NamedProp->Kind.lpwstrName = (LPWSTR) pHeaderName.ToPointer();         
      // Appelle GetIDsFromNames pour retrouver propertyID à utiliser         
      if(pMAPIProp->GetIDsFromNames(1, &pNamedProp,STGM_READ, &lpTags ) != S_OK)
         throw gcnew Exception(String::Format ( "Error retrieving GetIDsFromNames: {0}.",headerName) );         
      // La macro PROP_TAG crée la bonne valeur pour Type PropertyID         
      ULONG propTag = PROP_TAG(PT_UNICODE, PROP_ID(lpTags->aulPropTag[0]));         
      // utilise la méthode HrGetOneProp pour retrouver la propriété.        
      // Le pointeur lpPropValue pointe vers la valeur de résultat        
      if (HrGetOneProp(pMAPIProp,propTag,&lpSPropValue) != S_OK)             
         throw gcnew Exception("HrGetOneProp failed for named property !");                 
      // créé une chaîne de caractères managée depuis la chaîne non managée        
      return gcnew String(  lpSPropValue->Value.lpszW );     
   }     
   catch (Exception^ ex)     {        ...     }     
   finally     {        ...     } 
}

/// 

/// Retourne le nom du profil MAPI de la session courante
/// 

/// [in] mapiObject - la MAPIOBJECT de Outlook Application.Session
/// [returns] - le nom du profil actuellement utilisé
String^ Fabric::GetProfileName(Object^ mapiObject)
{

    // Le résultat retourné à la méthode appelante
    String^ result = nullptr;

    // Pointeur vers l'interface IUnknown 
    IUnknown* pUnknown = 0;

    // pointeur vers l'interface de la session MAPI
    LPMAPISESSION lpMAPISession = 0;

    // pointeur vers l'interface profilesection 
    LPPROFSECT lpProfileSection = 0;

    // pointeur vers une structure qui reçoit le résultat depuis HrGetOneProp
    LPSPropValue lpSPropValue = 0;

    
    if (mapiObject == nullptr)
        throw gcnew System::ArgumentNullException ("mapiObject",
            "The MAPIObject must not be null!");

    try
    {
        // récupère l'interface IUnknon depuis notre MAPIObject 
        pUnknown = 
            (IUnknown*)Marshal::GetIUnknownForObject(mapiObject).ToPointer ();
        

        if ( pUnknown->QueryInterface (IID_IMAPISession, 
            (void**)&lpMAPISession) != S_OK)
            throw gcnew Exception(
                "QueryInterface failed on IUnknown for IID_IMAPISession");
                    
        // Utilise OpenProfileSection de l'objet MAPISession 
        // pour récupérer un pointeur vers profilesection courante
        if( lpMAPISession->OpenProfileSection(
            (LPMAPIUID)GLOBAL_PROFILE_SECTION_MAPIUID,
            NULL,STGM_READ, &lpProfileSection) != S_OK)
            throw gcnew Exception("OpenProfileSection method failed!");

        // utilise la méthode HrGetOneProp pour retrouver la propriété
        // le pointeur lpPropValue pointe vers la valeur résultat 
        if (HrGetOneProp(lpProfileSection,
            PR_PROFILE_NAME_W,&lpSPropValue) != S_OK)
            throw gcnew Exception(
                "HrGetOneProp failed for property PR_PROFILE_NAME_W !");
        
        // crée une chaîne managée depuis la chaîne non managée.
        return gcnew String(  lpSPropValue->Value.lpszW ); 

    }
    catch (Exception^ ex)
    {
       ...
    }
    finally
    {
       ...
    }
}

/// 
/// Retourne les profilename MAPI disponibles. 
/// 
/// [returns] - un tableau de string de tous les profilename disponibles. 
array<string^,1 />^ Fabric::EnumProfileNames()
{     
   String^ registryPath =         
   "Software\\Microsoft\\Windows NT\\CurrentVersion" + 
        "\\Windows Messaging Subsystem\\Profiles";     
   RegistryKey^ key = nullptr;     
try     
{         
   key = Registry::CurrentUser->OpenSubKey ( registryPath );         
   return key->GetSubKeyNames ();     
}     
catch(System::Exception^ ex)     
{         
   throw ex;     
}     
finally     
{         
   key->Close();     
} 
}

// Crée une session Outlook 
object missing = System.Reflection.Missing.Value; 
// récupère l'objet Outlook 
Application Outlook.Application outlookApplication = new Outlook.Application(); 
// récupère l'objet d'espace de noms 
Outlook.NameSpace olNamespace = outlookApplication.GetNamespace("MAPI"); 
// Se logue à la session. Ici, nous utilisons la combobox pour se connecter à une session particulière
// Si c'est déjà une instance Outlook avec une session, alors ce profil est utilisé 
olNamespace.Logon(comboBox1.Text ,  missing, true, true); 
// Utilise la fabrique pour obtenir le nom de profil courant 
MAPIConcubine.Fabric fabric = new MAPIConcubine.Fabric(); 
try 
{     
   // transmet le namespace.MAPIOBJECT pour récupérer le profilename     
   string currentProfileName = fabric.GetProfileName(olNamespace.MAPIOBJECT);     
   MessageBox.Show(this, String.Format("The current profilename was: {0}", currentProfileName)); 
} 
catch (System.Exception ex) {     
   MessageBox.Show(this,ex.Message); 
} 
finally {     
fabric = null;     
   olNamespace.Logoff();     
   olNamespace = null;     
   outlookApplication = null;     
   GC.Collect();     
   GC.WaitForPendingFinalizers(); 
}

/// Defines the available Colors for AppointmentLabels

enum class AppointmentLabelColor
{
    None = 0,              // Default Color
    Important = 1,         // Red
    Business = 2,          // Blue
    Personal = 3,          // Green
    Vacation = 4,          // Grey
    Deadline = 5,          // Orange
    Travel_Required = 6,   // Light-Blue
    Needs_Preparation = 7, // Grey
    Birthday = 8,          // violett
    Anniversary = 9,       // turquoise
    Phone_Call = 10        // Yellow
} ;

/// 

/// Sets the AppointmentLabelColor for a Outlook- Appointment
/// 
/// [in] mapiObject - the MAPIOBJECT property of 
/// the outlook appointmentItem object.
/// [in] the desired colortype that you wish to set 

void Fabric::SetAppointmentLabelColor(Object^ mapiObject, 
    AppointmentLabelColor color)
{
    
    // Pointeur vers l'interface IUnknown 
    IUnknown* pUnknown = 0;

    // Pointeur vers l'interface IMessage 
    IMessage* pMessage = 0;

    // Pointeur vers l'interface IMAPIProp 
    IMAPIProp* pMAPIProp = 0;

    // Une structure pour la variable NAMEDProp
    MAPINAMEID* pNamedProp = 0;

    // Un tableau de PropertyTags comme résultat pour la méthode GetIDdFromNames.
    SPropTagArray* lpTags = 0;

    if (mapiObject == nullptr) throw gcnew System::ArgumentNullException (
        "mapiObject","The MAPIObject must not be null!");
    try
    {

        pUnknown = 
            (IUnknown*)Marshal::GetIUnknownForObject(mapiObject).ToPointer ();

        if ( pUnknown->QueryInterface (IID_IMessage, 
            (void**)&pMessage) != S_OK) 
            throw gcnew Exception(
                "QueryInterface failed on IUnknown for IID_Message");

        if ( pMessage->QueryInterface (IID_IMAPIProp, 
            (void**)&pMAPIProp) != S_OK)
            throw gcnew Exception(
                "QueryInterface failed on IMessage for IID_IMAPIProp");

        // double check
        if (pMAPIProp == 0) 
            throw gcnew Exception(
                "Unknown Error on receiving the Pointer to MAPI Properties.");


        // ID trouvé via google.
        GUID magicId = 
        { 
            0x00062002, 0x0000, 0x0000, 
            { 
                0xC0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46 
            } 
        };
        LONG propertyName = 0x8214;
        
        // Le pointeur vers la structure namedProp 
        if (MAPIAllocateBuffer(sizeof(MAPINAMEID), 
            (LPVOID*)&pNamedProp) != S_OK)  
            throw gcnew Exception("Could not allocate memory buffer.");

        // L'ID est utilisé pour accéder à la propriété
        pNamedProp->lpguid = (LPGUID)&magicId; 

        // Définir PropertyName
        pNamedProp->ulKind = MNID_ID;
        pNamedProp->Kind.lID = propertyName;


        if(pMAPIProp->GetIDsFromNames(1, &pNamedProp, 
            MAPI_CREATE, &lpTags ) != S_OK)
            throw gcnew Exception(String::Format (
                "Error retrieving GetIDsFromNames: {0}.",propertyName) );

        SPropValue value;

        value.ulPropTag = PROP_TAG(PT_LONG, PROP_ID(lpTags->aulPropTag[0]));
        value.Value.l = (LONG)color;

        if( HrSetOneProp(pMAPIProp, &value) != S_OK) 
            throw gcnew Exception(String::Format (
                "Error setting AppointmentLabelColor: {0}.",color) );

        // Sauvegarde les changements sur l'item
        pMessage->SaveChanges (KEEP_OPEN_READWRITE);
    }
    catch (Exception^ ex)
    {
       ...
    }
    finally
    {
       ...
    }
}

GUID magicId = 
{ 
    0x00062002, 0x0000, 0x0000, 
    { 
        0xC0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46 
    } 
};
LONG propertyName = 0x8214;

// Le pointeur vers la structure namedProp 
if (MAPIAllocateBuffer(sizeof(MAPINAMEID), (LPVOID*)&pNamedProp) != S_OK)  
    throw gcnew Exception("Could not allocate memory buffer.");

pNamedProp->lpguid = (LPGUID)&magicId; 

pNamedProp->ulKind = MNID_ID;
pNamedProp->Kind.lID = propertyName;

if(pMAPIProp->GetIDsFromNames(1, &pNamedProp,  STGM_READ, &lpTags ) != S_OK) 
    throw gcnew Exception(String::Format (
        "Error retrieving GetIDsFromNames: {0}.",propertyName) );

// La macro PROP_TAG crée la bonne valeur pour Type et PropertyID

ULONG propTag = PROP_TAG(PT_LONG, PROP_ID(lpTags->aulPropTag[0]));

// utilise la méthode HrGetOneProp pour retrouver la propriété
// Le pointeur lpPropValue vers la valeur résultant
if (HrGetOneProp(pMAPIProp,propTag,&lpSPropValue) != S_OK)
    throw gcnew Exception("HrGetOneProp failed for named property !");

if (( lpSPropValue->Value.l > 0) && ( lpSPropValue->Value.l < 11))
    return (Fabric::AppointmentLabelColor ) lpSPropValue->Value.l;
else
    return Fabric::AppointmentLabelColor::Default;