Visual Studio 2005 Tools for Microsoft Office : L'automation Office en .NET

// On Accède aux champs/propriétés du document principal, au moyen de la classe Globals.

// On change la valeur des Bookmarks, en fonction du choix de l'utilisateur
Globals.ThisDocument.bkmClientName.Text = this.cbClient.SelectedValue.ToString();
Globals.ThisDocument.bkmClientAdress.Text = this.tbAdress.Text;
Globals.ThisDocument.bkmClientCP.Text = this.tbCP.Text;
Globals.ThisDocument.bkmClientCity.Text = this.tbCity.Text;

// On remplit les valeurs à afficher dans les NamedRanged
this.namedProductId.Value2 = String.Format("ID du produit");
this.namedProductName.Value2 = String.Format("Nom du produit");
this.namedProductPrice.Value2 = String.Format("Prix du produit");

// On passe le texte de cette NameRanged en gras
this.namedProductPrice.Font.Bold = true;

// On change la couleur du texte
// Voir ici pour la liste des codes couleur: http://www.geocities.com/davemcritchie/excel/colors.htm
this.namedProductPrice.Font.ColorIndex = 30;

// On change la taille du texte.
this.namedProductPrice.Font.Size = 20;

Databinding d'un ListObject
this.listProducts.SetDataBinding(this.ProductsBindingSource, "", "Product_ID", "Product_Name", "Product_Price");

// Dataset de cache

[Microsoft.VisualStudio.Tools.Applications.Runtime.Cached]
public Dataset CachedDs;

private void Form1_Load(object sender, System.EventArgs e)
{
    // On teste si on arrive à se connecter à la base de données
    if ( !Connected )
    {
        // Si le Dataset de cache n'est pas vide
        if ( this.CachedDs != null )
        { 
            // On fait notre traitement, mais avec les données du Dataset,
        // donc des données potentiellement différentes des données de la base !
            
            Traitement();
            
            // Et on prévient l'utilisateur qu'il est en mode déconnecté
        }
        else
        {
            //
        }
    }
    else
    {
        // On est connecté directement à la base
        Traitement();
    }
}

// La barre de menu
private Office.CommandBar cbar = null;
// Les items de la barre
private Office.CommandBarButton cbShowConnectionForm = null;
// Les évènements qui se produisent lors du clic sur les items de la barre
private Office._CommandBarButtonEvents_ClickEventHandler cbShowConnectionFormClickEvent;

private void ThisApplication_Startup(object sender, System.EventArgs e)
{
    // Chargement de la barre de menu
    LoadCommandBar();
}

private void LoadCommandBar()
{
    // On peut omettre les paramètres optionnels
    object oMissing = System.Reflection.Missing.Value;

    // Texte de la barre de menu + position
    cbar = this.ActiveExplorer().CommandBars.Add("Menu .NET Solutions - Outlook", oMissing, oMissing, (object)true);

    // Ajout d'un nouveau bouton
    cbShowConnectionForm = (Office.CommandBarButton)(cbar.Controls.Add((object)1, oMissing, oMissing, oMissing, oMissing));
    // Définition du style de bouton
    cbShowConnectionForm.Style = Office.MsoButtonStyle.msoButtonCaption;
    // Définition de sa propriété Caption (Texte à afficher)
    cbShowConnectionForm.Caption = String.Format("Activer l'Addin NET Solutions pour Outlook");

    // Méthode à appeler lors du clic sur l'item
    cbShowConnectionFormClickEvent = new Microsoft.Office.Core._CommandBarButtonEvents_ClickEventHandler(
    cbShowConnectionFormClickEvent_Click);
    cbShowConnectionForm.Clic += cbShowConnectionFormClickEvent;

    // On affiche la barre de menu
    cbar.Visible = true;
}

cbar = this.ActiveExplorer().CommandBars.Add("Menu .NET Solutions - Outlook", oMissing, oMissing, (object)true);

// On instancie un nouveau mail
// C'est un objet de type MailItem
Outlook.MailItem mail = (Outlook.MailItem)
Globals.ThisApplication.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem);

// On renseigne l'adresse email du client dans le mail
 mail.Recipients.Add(this.textBox2.Text);

// On formate le sujet et le corps du message.
mail.Subject = String.Format("Envoi de facture");
mail.Body = String.Format("A l'attention de {0}:{1}{1}Veuillez trouver ci-joint la copie de votre facture.{1}{1}",
textBox1.Text, Environment.NewLine);

// On attache la pièce jointe.
// Paramètres de la méthode Add: 
// - Fichier à attacher
// - Méthode d'attachement au message
// - Position de la pièce jointe
// - Nom affiché de la pièce jointe
mail.Attachments.Add(textBox3.Text, Outlook.OlAttachmentType.olByValue, 1, String.Concat("Facture ", this.textBox2.Text));

// On met le mail au format HTML
mail.BodyFormat = Microsoft.Office.Interop.Outlook.OlBodyFormat.olFormatHTML;
            
// On affiche la fenêtre du mail
mail.Display(false);
                
// Envoi du mail
mail.Send();

// On récupère le répertoire des contacts
Outlook.MAPIFolder contactFolder = null;
contactFolder = Globals.ThisApplication.ActiveExplorer().Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts);

// On applique un filtre pour ne rechercher que les objets de type Contact, et pas les listes de distribution/diffusion
string strFind = "[MessageClass] = 'IPM.Contact'";
Outlook.Items items = contactFolder.Items.Restrict(strFind);

// Pour chaque contact du répertoire
for(int i = 1; i < items.Count; i++)
{
    // On récupère le contact en cours
    Outlook.ContactItem ContactItem = (Outlook.ContactItem)items[i];
    
    // Affichage des informations (Nom, prénom, Email, etc.) dans la Treeview.
    this.treeView1.Nodes[0].Nodes.Add(ContactItem.LastName + " " + ContactItem.FirstName);

    // Affichage de l'email si elle existe
    if (ContactItem.Email1Address != null && ContactItem.Email1Address.Length > 0)
    {
        this.treeView1.Nodes[0].Nodes[i - 1].Nodes.Add("Email : " + ContactItem.Email1Address);
    }
    // Affichage du téléphone Domicile s'il existe
    if (ContactItem.HomeTelephoneNumber != null && ContactItem.HomeTelephoneNumber.Length > 0)
    {
        this.treeView1.Nodes[0].Nodes[i - 1].Nodes.Add("Téléphone Domicile: " + ContactItem.HomeTelephoneNumber);
    }
    // Affichage du téléphone professionnel s'il existe
    if (ContactItem.BusinessTelephoneNumber != null && ContactItem.BusinessTelephoneNumber.Length > 0)
    {
        this.treeView1.Nodes[0].Nodes[i - 1].Nodes.Add("Téléphone Bureau: " + ContactItem.BusinessTelephoneNumber);
    }
    // Affichage du téléphone Mobile s'il existe
    if (ContactItem.MobileTelephoneNumber != null && ContactItem.MobileTelephoneNumber.Length > 0)
    {
        this.treeView1.Nodes[0].Nodes[i - 1].Nodes.Add("Téléphone Portable: " + ContactItem.MobileTelephoneNumber);
    }

    // On déplie la node racine
    this.treeView1.Nodes[0].Expand();
}

// Méthode de création des RDV dans le calendrier
private void CreateAppointment()
{
    // On instancie notre nouvel objet de type RDV
    // On crée un nouvel item RDV
    Outlook.AppointmentItem rdv = (Outlook.AppointmentItem)
    Globals.ThisApplication.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olAppointmentItem);

    // On définit la date de début
    rdv.Start = monthCalendar1.SelectionStart;
    // On définit alors la durée du RDV est: Toute la journée
    rdv.AllDayEvent = true;
    // On indique un sujet
    rdv.Subject = String.Format(String.Concat("Rendez-vous avec ", textBox1.Text));
    // Puis le corp du message du RDV
    rdv.Body = String.Format("Rendez-vous prévu toute la journée dans les locaux de {0}", textBox1.Text);
    // On change le statut
    rdv.BusyStatus = Microsoft.Office.Interop.Outlook.OlBusyStatus.olOutOfOffice;
    // On active la notification de rappel
    rdv.ReminderSet = true;
    // Avec un rappel commençant 5h00 avant le début du RDV
    rdv.ReminderMinutesBeforeStart = 300;

    // On sauvegarde le RDV dans le calendrier Outlool
    rdv.Save();
}

private void CreateTask()
{
    // Instanciation de notre objet tâche
    Outlook.TaskItem task = (Outlook.TaskItem)
    Globals.ThisApplication.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olTaskItem);

    // Date de début de la tâche
    task.StartDate = monthCalendar1.SelectionStart;
    // Le statut de la tâche: Fini, En cours, Non commenté, etc.
    task.Status = Microsoft.Office.Interop.Outlook.OlTaskStatus.olTaskNotStarted;
    // Le sujet de la tâche
    task.Subject = String.Format(String.Concat("Rendez-vous avec ", textBox1.Text));
    // Le corps du message de la tâche
    task.Body = String.Format(String.Concat("Rendez-vous avec ", textBox1.Text));
    // On active la notification de rappel
    task.ReminderSet = true;
    // Avec un rappel commençant 24h avant le début de la tâche
    task.ReminderTime = monthCalendar1.SelectionStart.AddHours(-24);

    // On sauvegarde la tâche
    task.Save();
}

// Instanciation de l'objet
PowerPoint = new Microsoft.Office.Interop.PowerPoint.Application();
            
// On récupère la liste des présentations de l'application PowerPoint
// On crée un nouveau document donc normalement, cela doit être vide
PowerPoint.Presentations ppts = powerPoint.Presentations;

// On ajoute une nouvelle présentation à cette collection
PowerPoint.Presentation ppt = ppts.Add(Microsoft.Office.Core.MsoTriState.msoTrue);

// Pour modifier le fond de tous les slides
ppt.SlideMaster.Background.Fill.UserTextured(Application.StartupPath + 
  @"\" + @"Resources\Arrière_plan_PPT_TechEd_2005.jpg");

// On récupère la collection de slides de cette présentation
PowerPoint.Slides slides = ppt.Slides;
            
slides[1].Background.Fill.UserTextured(Application.StartupPath + @"\" 
  + @"Resources\Arrière_plan_PPT_TechEd_2005.jpg");

// On récupère la collection de slides de cette présentation
PowerPoint.Slides slides = ppt.Slides;
            
// Et on ajoute un nouveau slide à cette collection
// Prend en paramètre la position à laquelle ajouter le slide
// Et le type de modèle de slides que l'on veut: Dans notre cas, on veut un slide de présentation.
PowerPoint.Slide slideIntro = slides.Add(1, Microsoft.Office.Interop.PowerPoint.PpSlideLayout.ppLayoutTitle);

// On remplit le texte de la première textbox du template PowerPoint
slideIntro.Shapes[1].TextFrame.TextRange.Text = String.Format("Automation PowerPoint");
// Celui de la deuxième textbox
slideIntro.Shapes[2].TextFrame.TextRange.Text = String.Format("Avec les VSTO 2");
// Et on change la taille de la police de la première TextBox
slideIntro.Shapes[1].TextFrame.TextRange.Font.Size = 50;

// On ajoute un deuxième slide
// Modèle du slide: Titre + Texte
PowerPoint.Slide slideText = slides.Add(2, Microsoft.Office.Interop.PowerPoint.PpSlideLayout.ppLayoutText);
// On insère le texte dans la TextArea du titre
slideText.Shapes[1].TextFrame.TextRange.Text = String.Format("Titre de la présentation");
// On change la police
slideText.Shapes[1].TextFrame.TextRange.Font.Size = 50;
// Et la couleur de la police
slideText.Shapes[1].TextFrame.TextRange.Font.Color.RGB = Color.White.ToArgb();

// On insère du texte dans la TextArea du bas
// On utilise plusieurs niveaux d'indentation
slideText.Shapes[2].TextFrame.TextRange.Text = String.Format("Texte de premier niveau");
slideText.Shapes[2].TextFrame.TextRange.Paragraphs(1, 1).IndentLevel = 1;
slideText.Shapes[2].TextFrame.TextRange.InsertAfter(String.Format("{0}Texte de second niveau", Environment.NewLine));
slideText.Shapes[2].TextFrame.TextRange.Paragraphs(2, 1).IndentLevel = 2;
slideText.Shapes[2].TextFrame.TextRange.InsertAfter(String.Format("{0}Texte de troisième niveau", Environment.NewLine));
slideText.Shapes[2].TextFrame.TextRange.Paragraphs(3, 1).IndentLevel = 3;
slideText.Shapes[2].TextFrame.TextRange.InsertAfter(String.Format("{0}Texte de quatrième niveau", Environment.NewLine));
slideText.Shapes[2].TextFrame.TextRange.Paragraphs(4, 1).IndentLevel = 4;
slideText.Shapes[2].TextFrame.TextRange.InsertAfter(String.Format("{0}Texte de cinquième niveau", Environment.NewLine));
slideText.Shapes[2].TextFrame.TextRange.Paragraphs(5, 1).IndentLevel = 5;

// On ajoute un troisième slide
// Modèle du slide: Slide vide
PowerPoint.Slide slide = slides.Add(3, Microsoft.Office.Interop.PowerPoint.PpSlideLayout.ppLayoutBlank);

// On récupère la collection d'éléments (TextBox, Image, etc.) qui sont sur ce 3e slide
PowerPoint.Shapes shapes = slide.Shapes;

// On ajoute un élément (TextBox) à cette collection et on y insère du texte
// Ici, c'est le texte saisi par l'utilisateur
// On indique l'orientation du texte et les coordonnées où mettre le texte.
PowerPoint.Shape shape = shapes.AddTextbox(Office.MsoTextOrientation.msoTextOrientationHorizontal, 0, 0, 500, 50);
shape.TextFrame.TextRange.InsertAfter(this.tbText.Text);

// Ajout d'un effet sur un élément (la TextBox) de notre slide
PowerPoint.Shape shapeEffect = powerPoint.ActivePresentation.Slides[3].Shapes[1];
PowerPoint.Effect objEffect = powerPoint.ActivePresentation.Slides[3].TimeLine.MainSequence.AddEffect(shapeEffect,
Microsoft.Office.Interop.PowerPoint.MsoAnimEffect.msoAnimEffectPathStairsDown,
Microsoft.Office.Interop.PowerPoint.MsoAnimateByLevel.msoAnimateLevelNone,
Microsoft.Office.Interop.PowerPoint.MsoAnimTriggerType.msoAnimTriggerOnPageClick, 1);

// Ajout d'un commentaire au 3e slide la présentation
// On récupère la liste de tous les commentaires présents sur le slide
PowerPoint.Comments comments = slide.Comments;
// On ajoute un commentaire à cette liste
PowerPoint.Comment comment = comments.Add(250, 100, "Thomas LEBRUN", "TL", "Un petit bonjour de votre application VSTO :)");

// Instanciation de l'objet
PowerPoint = new Microsoft.Office.Interop.PowerPoint.Application();

// On fait apparaitre l'application à l'utilisateur
PowerPoint.Visible = Microsoft.Office.Core.MsoTriState.msoTrue;

powerPoint.Presentations.Open(this.tbLoad.Text, Microsoft.Office.Core.MsoTriState.msoFalse,
Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue);

powerPoint.ActivePresentation.SlideShowSettings.Run();

if (PowerPoint != null)
{
    // Quitte l'application PowerPoint
    powerPoint.Quit();
    PowerPoint = null;
}

//
// Double appel à Collect et WaitForPendingFinalizers
// En effet, le référence mémoire vers Excel peut-être conservée après le 1er appel
// On demande donc un deuxième passage du Garbage Collector
//
GC.Collect();
GC.WaitForPendingFinalizers();
GC.Collect();
GC.WaitForPendingFinalizers();