Piloter outlook et word depuis une application; copier un content word dans un mail outlook

Commenter

Contenu du snippet

petit code simple qui permet de piloter outlook 2003 et word 2003. il copie le contenu d'un document word dans le corps de mail d'outlook, pret à être envoyé.

Attention, il faut mettre les référence d'outlook et de word dans le projet

Source / Exemple : 


Imports Microsoft.Office.Interop
'this example need reference of microsoft word object library and outlook object library

Public Class Form1

    Private oMissing As Object = System.Reflection.Missing.Value

    Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
        Dim strSubject As String = "subject test"
        Dim strMessage As String = "message test"
        Dim astrRecip As String = "recipientMe@mail.org"
        Dim astrAttachments As String = txtPath.Text

        Dim OutlookApp As New Outlook.Application
        Dim MyEMail As Outlook.MailItem = OutlookApp.CreateItem(Outlook.OlItemType.olMailItem)

        For Each Recipient As String In Split(astrRecip, ";") : MyEMail.Recipients.Add(Recipient) : Next
        For Each Attachment As String In Split(astrAttachments, ";") : MyEMail.Attachments.Add(Attachment) : Next

        MyEMail.Subject = strSubject
        MyEMail.HTMLBody = getWordDoc(astrAttachments)

        MyEMail.Display()
    End Sub

    Private Function getWordDoc(ByVal filename As String) As Object
        Dim wordApp As Word.Application = New Word.ApplicationClass()
        Dim wordDoc As Word._Document
        Dim content As Object = ""

        wordApp.Visible = False

        wordDoc = wordApp.Documents.Open(CType(filename, Object), oMissing, True, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing)

        wordDoc.Content.Select()
        wordDoc.Content.Copy()

        Dim objClipboard As IDataObject = Clipboard.GetDataObject()
        If objClipboard.GetDataPresent(DataFormats.Html) Then content = objClipboard.GetData(DataFormats.Html)

        wordApp.Quit(CType(False, Object), oMissing, oMissing)

        wordDoc = Nothing
        wordApp = Nothing
        Return content
    End Function
End Class

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (gilletp)