Avatar billede LarsDC Nybegynder
08. februar 2012 - 17:10 Der er 1 løsning

COM Add in i Outlook 2010 til reply funktion

Halløjsa alle.

Jeg sidder og kæmper med lidt makro kodning i Outlooks Visual editor. Her har jeg lavet 3 makroer til at Oprette ny mail, Reply, ReplyAll da der skal benyttes anden signatur og afsender adresse.

Jeg skal dog have disse 3 makroer ud til adskillige brugere og det gider man jo ikke rende rundt og sætte op manuelt så jeg tænkte jeg ville lave et COM Add in så de blot skal klikke en setup fil.

Jeg har derfor lavet en ny ribbon og tilføjet nogle knapper og sat de 3 makroer ind på hver sin knap. Opret ny mail virker men Reply/Reply All vil ikke fungere. Når man trykker på knappen loader den i et sekund og så sker der intet. Efterfølgende tryk får den ikke engang til at arbejde.

Nogen ideer?
Kode til reply funktion i Visual Studio 2010(Reply All er 99% identisk):

----
Private Sub ReplyMail_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ReplyMail.Click
        Dim oMail As Outlook.MailItem
        Dim SigDir As String
        Dim Signature As String
        Dim olFormatHTML As Outlook.OlBodyFormat
        Dim appMailer As New Outlook.Application
        Dim selMailer As Outlook.Selection

        SigDir = "Destination for HTML signatur file"

        If Dir(SigDir) <> "" Then
            Signature = GetBoiler(SigDir)
        Else
            Signature = ""
        End If
        selMailer = appMailer.ActiveExplorer.Selection.Item(1)


        If selMailer.Count Then
            If TypeOf selMailer Is Outlook.MailItem Then
                oMail = selMailer.Reply
                oMail.SentOnBehalfOfName = "someone@mail.dk"
                oMail.BodyFormat = olFormatHTML
                oMail.HTMLBody = ""
                oMail.Display()
            End If
        End If
    End Sub
----

Mit gæt er at det er i alt det kode der angår Outlook.Application/ActiveExplorer/Selection/
Jeg har forsøgt at lave en MsgBox der viser antallet af selMailer.Count of den siger godt nok 1 hvis man har markeret en mail i Outlook. Det er som om den ikke rammer eller kan klare linien "oMail = selMailer.Reply" af en eller anden grund.

Det skal siges at disse knapper er på Home toolbaren og ikke når du dobbelt klikker på en modtaget besked.

Kode fra Visual Editor I Outlook:
----
Public Sub ReplyWithHTML()
Dim oMail As Outlook.MailItem
Dim SigDir As String
Dim Signature As String
       
    SigDir = "C:\Users\" & Environ("username") & _
    "\AppData\Roaming\Microsoft\Signatures\mbcsign.htm"
   
    If Dir(SigDir) <> "" Then
        Signature = GetBoiler(SigDir)
    Else
        Signature = ""
    End If
   
If Application.ActiveExplorer.Selection.Count Then
If TypeOf Application.ActiveExplorer.Selection(1) Is Outlook.MailItem Then
Set oMail = Application.ActiveExplorer.Selection(1).Reply
oMail.SentOnBehalfOfName = Environ("username") & "@brandconnection.dk"
oMail.BodyFormat = olFormatHTML
oMail.HTMLBody = "<BR></BR><BR></BR><IMG align=baseline border=0 hspace=0 src=C:\Users\" & Environ("username") & _
        "\AppData\Roaming\Microsoft\Signatures\brandconnection.jpg>" & Signature & oMail.HTMLBody
oMail.Display
End If
End If
End Sub
----


Den ville ikke acceptere tilgangen til Application med fejlen:
'Application' is not declared. It may be inaccessible due to its protection level"

Nogen der kan hjælpe?
Avatar billede LarsDC Nybegynder
09. februar 2012 - 15:47 #1
Fandt selv en løsning.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





CIO
Stort CIO-interview: Lemvigh-Müllers milliard-omsætning er blevet digital
Job & Karriere
Her er Netcompanys nye hovedkvarter: Flytter til ikonisk adresse i hjertet af København - kommer til at betale million-leje