none
Outlook 2016 - Makro startet nicht über Knopf im Menüband RRS feed

 > 

  • Frage

  • Question
    Anmelden
    0
    Anmelden

    Hallo!

    Ich möchte gerne von Office 2010 auf 2016 wechseln und teste gerade meine Makros.

    Ich habe den Code 1:1 übernommen und wie im alten Outlook per Knopf im Menüband hinterlegt. Das Makro soll die markierte eMail weiterleiten und löschen.
    Leider wird es nicht über Knopf gestartet. Aber direkt im Editor lässt es sich ausführen. Der Debugger sagt auch nichts negatives. Läuft ohne Probleme durch.
    Unsignierte Makros sind erlaubt.

    Hat jemand eine Idee, warum? Gibt es eine Sperre für Makros im Menüband? 

    Viele Grüße

    Dienstag, 12. Dezember 2017 10:13
    |

Alle Antworten

  • Question
    Anmelden
    0
    Anmelden

    Nein aber Danke!

    Eine Lösung habe ich ja. Nur der Makroknopf im Menüband startet nicht.

    Grüße

    Hier mein Code:

    Sub Info()
    Dim MyItem As Outlook.MailItem
    Dim olNewMailItem As Outlook.MailItem
    
    ' get valid ref to current item
    ' On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set MyItem = ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set MyItem = ActiveInspector.CurrentItem
        Case Else
    End Select
    On Error GoTo 0

    If MyItem Is Nothing Then
        MsgBox "Konnte kein aktuelles Mailitem finden!", vbExclamation
        GoTo exitproc
    End If

    Set olNewMailItem = MyItem.Forward
    olNewMailItem.Subject = "WL: " & MyItem.Subject
    olNewMailItem.To = "info@firma.de"
    olNewMailItem.SentOnBehalfOfName = MyItem.SenderEmailAddress
    olNewMailItem.Display
    'Nächste Zeile auskommentieren wenn die Nachricht direkt gesendet werden soll
    olNewMailItem.Send
    MyItem.Delete

exitproc:
Set MyItem = Nothing
Set olNewMailItem = Nothing
End Sub

    • Bearbeitet Korunas Dienstag, 12. Dezember 2017 14:18
    Dienstag, 12. Dezember 2017 14:14
    |
  • Question
    Anmelden
    0
    Anmelden

    Am 12.12.2017 schrieb Korunas:

    Hier mein Code:

    [code]
    Sub Info()

    Klick Info() an und setze mit F9 einen Haltepunkt. Jetzt klick den
    Button im Menüband, was passiert?

    Servus
    Winfried

    WSUS Package Publisher: http://wsuspackagepublisher.codeplex.com/
    HowTos zum WSUS Package Publisher http://www.wsus.de/wpp
    GPO's: http://www.gruppenrichtlinien.de
    NNTP-Bridge für MS-Foren: http://communitybridge.codeplex.com/

    Dienstag, 12. Dezember 2017 16:50
    |
  • Question
    Anmelden
    0
    Anmelden

    Hallo Winfried,

    leider auch nichts.

    Hm. ja, keine Ahnung. Nach Stunden experimentieren geht es auf einmal.
    Vielleicht, weil die Updates nach manueller Suche endlich installiert wurden?
    Problem ist gelöst :-)  Vielen Dank für eure Hilfe.

    Grüße

    Mittwoch, 13. Dezember 2017 10:27
    |
  • Question
    Anmelden
    0
    Anmelden

    Am 13.12.2017 schrieb Korunas:

    Hm. ja, keine Ahnung. Nach Stunden experimentieren geht es auf einmal.
    Vielleicht, weil die Updates nach manueller Suche endlich installiert wurden?
    Problem ist gelöst :-)  Vielen Dank für eure Hilfe.

    Freut mich für Dich und Danke für die Rückmeldung. ;)

    Servus
    Winfried

    WSUS Package Publisher: http://wsuspackagepublisher.codeplex.com/
    HowTos zum WSUS Package Publisher http://www.wsus.de/wpp
    GPO's: http://www.gruppenrichtlinien.de
    NNTP-Bridge für MS-Foren: http://communitybridge.codeplex.com/

    Mittwoch, 13. Dezember 2017 16:42
    |