oDigSignCtl

Moderator: ModerationP

oDigSignCtl

Beitragvon Arthur_Düsseldorf » 19. Mär 2018, 12:02

Seit kürzem bekomme ich eine Fehlermeldung beim Ausführen der folgenden Funktion:

Code: Alles auswählen
Function Senden()
    Dim myOlApp As Object, myItem As Object
    Dim oDigSignCtl
    Dim oCBs
   
    Set myOlApp = CreateObject("Outlook.Application", "localhost")
    Set myItem = myOlApp.CreateItem(0)
    myItem.BCC = "ich@hier.de"
    myItem.Subject = "Betreff"
    myItem.Body = "Text..."
    Set oDigSignCtl = myItem.GetInspector.CommandBars.FindControl(, 719)
    If oDigSignCtl Is Nothing Then
        ' Add the toolbar button to the item.
        Set oCBs = myItem.GetInspector.CommandBars
        Set oDigSignCtl = oCBs.Item("Standard").Controls.Add(, 719, , , True)
    End If
    ' Check to make sure the button is not dimmed.
    If oDigSignCtl.Enabled = True Then
        ' Check to make sure the button is not depressed.
        myItem.display
        With myOlApp.ActiveInspector.CurrentItem
            .GetInspector.CommandBars.FindControl(, 719).Execute
            .Send
        End With
      Else
        MsgBox "You do not have a digital signature! This mail will not be sent."
        ' Cancel the send to only allow sending of signed mail.
        Senden = False
        Exit Function
    End If
    Set oCBs = Nothing
    Set oDigSignCtl = Nothing
End Function


Die Methode "Add" für das Objekt "CommandBarControls" ist fehlgeschlagen.

Ich vermute, dass sich was im Outlook im Zuge von Updates geändert hatte. Bis Ende des Jahres hatte es prima funktioniert.
Kann mir jemand helfen?

Vielen Dank im Voraus.

MfG
Arthur
Arthur_Düsseldorf
 

Re: oDigSignCtl

Beitragvon mumpel » 19. Mär 2018, 14:31

Hallo!

Seit Office 2016 (Office 365) ist das CommandBars-Objekt nicht mehr verfügbar.

Gruß, René
Benutzeravatar
mumpel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8128
Registriert: 09. Jan 2005, 15:20
Wohnort: Lindau (B)

Re: oDigSignCtl

Beitragvon mmarkus » 19. Mär 2018, 16:05

mumpel hat geschrieben:Hallo!

Seit Office 2016 (Office 365) ist das CommandBars-Objekt nicht mehr verfügbar.

Gruß, René


Was hier aber kaum zutreffen kann, sonst müsste bereits .CommandBars.FindControl einen Fehler auslösen.
Leider weiß ich auch keine Lösung, außer natürlich herausfinden, ob sie der Name/ID geändert hat.
ms access what else
mmarkus
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1534
Registriert: 16. Apr 2012, 16:07
Wohnort: Oberösterreich

Re: oDigSignCtl

Beitragvon mumpel » 19. Mär 2018, 17:23

Ist das ein Fremd-AddOn? Dann ist es möglich dass es mit der aktuellen Officeversion nicht kompatibel ist.
Benutzeravatar
mumpel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8128
Registriert: 09. Jan 2005, 15:20
Wohnort: Lindau (B)

Re: oDigSignCtl

Beitragvon mumpel » 19. Mär 2018, 17:32

Und m.W. kann man keine eigenen Elemente mehr per VBA hinzufügen. Die integrierten Elemente lassen sich eventuell noch aufrufen.
Benutzeravatar
mumpel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8128
Registriert: 09. Jan 2005, 15:20
Wohnort: Lindau (B)


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast