none
Ajouter dans le corps de outlook 2010 un document word : Error 91 sur inspector

    Question

  • Bonjour ) tous,


    J'ai beau faire larmoyer mes yeux à force de lire des forums sur cette question, je n'ai toujours pas réussi à résoudre l'erreur 91 du code suivant


    Function Word2OutlookBody()

        Dim oOutlook As Object
        Dim wd As Object
        Dim oInspector As Outlook.Inspector
        Dim doc As Object
        Dim oMail As MailItem
        Dim sPathFile As String
        
         
        Set wd = CreateObject("Word.Application")
        sPathFile = "D:\VBA\SESSION.docx"
        Set doc = wd.documents.Open(sPathFile)
        doc.Content.Copy
        wd.Quit
        Set wd = Nothing
        
        Set oOutlook = CreateObject("Outlook.Application")
        Set oMail = oOutlook.CreateItem(0)
        With oMail
            .BodyFormat = olFormatRichText
            Set oInspector = .GetInspector.WordEditor '--------------------> Null
            oInspector.Content.Paste' -----------------------------------------> Error 91 
            Set oInspector = Outlook.ActiveInspector.CurrentItem(1) --> Error 91
          Set oInspector = .GetInspector.WordEditor '--> Null
     
            .Display
        End With
       
        Set oMail = Nothing
        Set oOutlook = Nothing
        
    End Function

    Error 91 pour  Set oInspector = Outlook.ActiveInspector.CurrentItem(1)    

    Merci pour votre aide





    • Modifié technet65 mercredi 4 avril 2018 06:47
    mercredi 4 avril 2018 05:56

Toutes les réponses