none
Outlook 2007 - macro qui ne tourne pas RRS feed

  • Question

  • Bonjour tout le monde :)

    J'ai récupéré un code sur ce lien afin de répondre via un .oft

    J'utilise donc ce code 

    Sub InquiryReply()
        Dim objOL As Outlook.Application
        Dim objReply As Outlook.MailItem
        Dim objDoc As Object
        Dim strSender As String
        Dim arr() As String
        Dim strProject As String
        Dim strHTML As String
        On Error Resume Next 
        Set objOL = msg.Application
        Set objReply = _
          objOL.CreateItemFromTemplate _
            ("C:\Data\inquiry response.oft")
        objReply.To = msg.SenderEmailAddress
        strSender = msg.SenderName
        strProject = InputBox("Enter project type:", _
                              "Replace %project_type%", _
                              "custom form")
        strHTML = Replace(objReply.HTMLBody, _
                          "%project_type%", strProject)
        If strSender <> msg.SenderEmailAddress Then
            arr = Split(strSender, " ")
            strSender = arr(0)
            strHTML = Replace(strHTML, "%sender%", strSender)
        Else
            strSender = "%sender%"
        End If
        objReply.HTMLBody = strHTML
        objReply.Display
        Set objDoc = objReply.GetInspector.WordEditor
        objDoc.Windows(1).Selection.Find.ClearFormatting
        objDoc.Windows(1).Selection.Find.Execute strSender
        Set objOL = Nothing
        Set objReply = Nothing
        Set objDoc = Nothing
    End Sub

    J'ai bien l'inputbox pour remplacer le project_type mais apres plus rien ?

    Ait-je oublier quelque chose?

    merci d'avance.



    • Modifié MikeLee75 jeudi 30 janvier 2014 10:33
    jeudi 30 janvier 2014 00:51

Réponses

  • Bonjour Aurel,

    Je viens de me rendre compte de mon erreur j'avais oublié de faire  Call InquiryReply(GetCurrentItem())

    Par contre, j'ai une question.

    Avec objReply.To = msg.SenderEmailAddress on récupère l'adresse de l'expediteur mais est il possible de récupéré l'adresse des Cc  objReply.CC =  ???

    • Marqué comme réponse MikeLee75 vendredi 31 janvier 2014 09:44
    jeudi 30 janvier 2014 14:12

Toutes les réponses