Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Button nur in neuer Mail
zurück: Kann keine Variable deklarieren... warum?? weiter: Nur Email Adressen zulassen 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
burn112
Heimwerker


Verfasst am:
15. Nov 2005, 12:04
Rufname:

Button nur in neuer Mail - Button nur in neuer Mail

Nach oben
       

Hallo, ich verwende Outlook 2000 und habe ein Problem.

Ich habe einen Button programmiert. Er funktioniert auch genau so wie er soll.
Dann habe ich dank Hilfe es hinbekommen, dass er nur in Nachrichtenfenstern angezeigt wird.
http://www.office-loesung.de/viewtopic.php?t=56731

Allerdings wird er auch bei empfangenen Emails angezeigt.
Und da soll er auch nicht zu sehen sein.

Er soll nur da sein, wenn ich eine neue Email verfassen will.

Code:
'Globale Variable.
Public WithEvents myInspector As Inspectors

'Beim Outlook start wird eine Funktion aufgerufen.
Private Sub Application_Startup()
    Call intializeInspector
End Sub

Public Sub intializeInspector()
    Set myInspector = Application.Inspectors
End Sub

Public Sub myInspector_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
    'Wenn ein Nachrichtenfenster geöffnet wird, wird der V-Senden Button in der Standardleiste angezeigt.
    Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = True
Else
    'Wenn kein Nachrichtenfenster aufgerufen wird, wird der Button versteckt.
    Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False
End If
End Sub
POWVorti
Nix Neuling...


Verfasst am:
15. Nov 2005, 14:13
Rufname:
Wohnort: Where the streets have no name...


AW: Button nur in neuer Mail - AW: Button nur in neuer Mail

Nach oben
       

Da gibts mehrere Möglichkeiten...
Generell: Werte doch mal mit der Outlook-Hilfe die Eigenschaften des Mailitems aus.
In deinem speziellen Fall würde ich es mal über die "Sent"- oder "EntryID"-Eigenschaft probieren. Neue Mails haben die Sent-Eigenschaft auf False und keine EntryID. Also:
Code:
Public Sub myInspector_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
    'Wenn ein Nachrichtenfenster geöffnet wird, wird der V-Senden Button in der Standardleiste angezeigt.
    ' Wenn die Nachricht noch nicht gesendet wurde
    If Inspector.CurrentItem.Sent = False Then
        Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False
    Else
        'Wenn die Nachricht schon gesendet wurde.
        Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False
    End If
Else
    'Wenn kein Nachrichtenfenster aufgerufen wird, wird der Button versteckt.
    Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False
End If
End Sub

oder:
Code:
Public Sub myInspector_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
    'Wenn ein Nachrichtenfenster geöffnet wird, wird der V-Senden Button in der Standardleiste angezeigt.
    ' Wenn die Nachricht noch nicht gesendet wurde
    If Inspector.CurrentItem.EntryID = "" Then
        Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False
    Else
        'Wenn die Nachricht schon gesendet wurde.
        Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False
    End If
Else
    'Wenn kein Nachrichtenfenster aufgerufen wird, wird der Button versteckt.
    Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False
End If
End Sub

Vielleicht gehts auch in einem If, ich weiß allerdings nicht genau, ob er abbricht, sobald er erkennt, das keine Mail vorhanden ist. Das hier ist definitiv sicherer.
burn112
Heimwerker


Verfasst am:
15. Nov 2005, 14:48
Rufname:

AW: Button nur in neuer Mail - AW: Button nur in neuer Mail

Nach oben
       

Bei dem ersten Code durchläuft er die If Anweisung, wenn Sent leer ist und die Else Anweisung wenn Sent belegt ist.
Aber der Button ist trotzdem in beiden Fenstern vorhanden.

Das selbe bei dem zweiten Code nur halt mit EntryID.
burn112
Heimwerker


Verfasst am:
15. Nov 2005, 14:59
Rufname:

AW: Button nur in neuer Mail - AW: Button nur in neuer Mail

Nach oben
       

Danke.
Ich hab rausgefunden was nicht geklappt hat,

Die Zeile
Zitat:
Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = False

muss
Zitat:
Inspector.CommandBars.Item("Standard").Controls.Item("&V-Senden").Visible = True

heißen[/code]
POWVorti
Nix Neuling...


Verfasst am:
15. Nov 2005, 15:06
Rufname:
Wohnort: Where the streets have no name...

AW: Button nur in neuer Mail - AW: Button nur in neuer Mail

Nach oben
       

Also, einmal hab ich mich vertippt...
Einmal muß man natürlich "Visible" = True setzen. Aber ansonsten... Keine Ahnung. Kann ich mir ansonsten auch nicht erklären. Ich habs bei mir mit dem "Drucken"-Button probiert und der ist danach weg....
burn112
Heimwerker


Verfasst am:
15. Nov 2005, 15:09
Rufname:


AW: Button nur in neuer Mail - AW: Button nur in neuer Mail

Nach oben
       

Nach der kleinen Änderung hat es bei mir auch perfekt geklappt.

DANKE
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 Mail: Button "Senden/Empfangen" ist WEG! 6 Philipp 12187 16. Feb 2014, 18:34
Outlooker2014 Button "Senden/Empfangen" ist WEG!
Keine neuen Beiträge Outlook Mail: Nicht gespeicherte Mail wieder herstellen 1 Wuidschuetz 2335 02. Dez 2005, 10:53
Christi@n Nicht gespeicherte Mail wieder herstellen
Keine neuen Beiträge Outlook Mail: Benachrichtigungston bei neuer e-mail 9 bayersoftware 6121 14. Nov 2005, 18:19
bayersoftware Benachrichtigungston bei neuer e-mail
Keine neuen Beiträge Outlook Mail: Neuer Persönlicher Ordner mit Posteingang 1 RPH 2137 14. Sep 2005, 22:27
Christi@n Neuer Persönlicher Ordner mit Posteingang
Keine neuen Beiträge Outlook Mail: Erinnerungsfenster für neue Mail in den Vordergrund? 0 birgitsch 2490 04. Aug 2005, 12:01
birgitsch Erinnerungsfenster für neue Mail in den Vordergrund?
Keine neuen Beiträge Outlook Mail: Mail Format einstellen?? 2 doc77 3033 01. Aug 2005, 11:20
doc77 Mail Format einstellen??
Keine neuen Beiträge Outlook Mail: Automatische Antworts mail (Urlaubsfunktion) 1 player-1 2825 21. Jul 2005, 20:04
wolf-it Automatische Antworts mail (Urlaubsfunktion)
Keine neuen Beiträge Outlook Mail: Nach löschen der Mail nur "durchgestrichen" aber n 2 nerd 12060 18. Jul 2005, 15:55
nerd Nach löschen der Mail nur "durchgestrichen" aber n
Keine neuen Beiträge Outlook Mail: Outlook 2003 - Attachment aktualisieren bei verzögerter Mail 2 Kottan 1075 30. Jun 2005, 13:08
Kottan Outlook 2003 - Attachment aktualisieren bei verzögerter Mail
Keine neuen Beiträge Outlook Mail: Statt Bilder nur noch Kreuzchen in der Mail 7 Imp 1585 08. Jun 2005, 21:37
Imp Statt Bilder nur noch Kreuzchen in der Mail
Keine neuen Beiträge Outlook Mail: Namen auswählen bei neuer Nachricht 1 Günter A. 2538 07. Jun 2005, 17:17
macdeal Namen auswählen bei neuer Nachricht
Keine neuen Beiträge Outlook Mail: Darstellung des Adressbuchs beim Erstellen einer Mail 2 Andrzew 763 10. Mai 2005, 08:57
Bigboss Darstellung des Adressbuchs beim Erstellen einer Mail
 

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