Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
GetInspector.CommandBars
zurück: Regel fuktioniert nur bei laufendem Programm weiter: wirkliche Anhänge finden und etwas tun Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Ikaru
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Apr 2014, 14:31
Rufname:

GetInspector.CommandBars - GetInspector.CommandBars

Nach oben
       Version: Office 2010

Servus!

ich würde gerne pern VBA automatisiert eine große Anzahl an verschlüsselten Mails verschicken, dazu habe ich hier (http://www.access-programmers.co.uk/forums/showthread.php?t=195360) recht guten Code gefunden, leider hat mein Inspector keine "CommandBars" Methode/Eigenschaft. Wenn ich auf mein objInspector jedoch ein Watchausruck loslass werden mir die CommandBars angezeigt, lediglich
Code:
objInspector.CommandBars
klappt nicht.

Das ganze läuft unter Outlook 2010 und der Verweis "Microsoft Office 14.0 Object Library" für die CommandBars ist auch drin.

Hier mein Code:

Code:

    Dim objMsg As Outlook.MailItem
    Dim objRecip As Outlook.Recipient
    Dim objInspector As Outlook.Inspector
    Dim objCommandBar As Office.CommandBar
    Dim objEnc As Office.CommandBarButton
    Dim objSgn As Office.CommandBarButton
   
   
    Set objMsg = Application.CreateItem(olMailItem)
   
    With objMsg
       
        Set objRecip = .Recipients.Add(originator)
        objRecip.Type = olOriginator
   
        Set objRecip = .Recipients.Add(email)
        objRecip.Type = olTo
       
        .subject = subject
        .body = body
        .importance = importance
       
        For Each objRecip In .Recipients
            objRecip.Resolve
        Next
       
        Set objInspector = objMsg.GetInspector
        Set objCommandBar objMsg.GetInspector.CommandBars("Standard")
        Set objEnc = objCommandBar.FindControl(, EncryptMsgCtrl)
       
        If Not objEnc Is Nothing Then
            If objEnc.Enabled = True Then
                If objEnc.State = msoButtonUp Then
                    objEnc.Execute
                End If
            End If
        End If
       
        .Send
    End With
Ikaru
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Apr 2014, 14:44
Rufname:


AW: GetInspector.CommandBars - AW: GetInspector.CommandBars

Nach oben
       Version: Office 2010

.CommandBars ist anscheinend seit V2010 deprecated... Kennt jemand eine andere Möglicheit Mails zu verschlüsseln?
Ikaru
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Apr 2014, 15:54
Rufname:

AW: GetInspector.CommandBars - AW: GetInspector.CommandBars

Nach oben
       Version: Office 2010

Für die Nachwelt....
http://support.microsoft.com/kb/2636465
mumpel
Fortgeschrittener


Verfasst am:
04. Apr 2014, 18:24
Rufname: René
Wohnort: Lindau (B)


AW: GetInspector.CommandBars - AW: GetInspector.CommandBars

Nach oben
       Version: Office 2010

Hallo!

Ab Outlook 2010 ist es generell nicht möglich dass Menüband per VBA anzusprechen.

Gruß, René
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Outlook Hilfe: ActiveExplorer.CommandBars wirft Fehler 7 H.Richter 151 19. Jun 2013, 11:38
Michael Bauer ActiveExplorer.CommandBars wirft Fehler
Keine neuen Beiträge Outlook VBA und Formulare: OutlookAddin - Commandbars einbinden 4 Karotte_exe 943 01. Aug 2011, 17:05
Michael Bauer OutlookAddin - Commandbars einbinden
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript