3
Outlook neue Nachricht Betreff auslesen ist leer
Hallo,
Outlook 2010.
Ich möchte, wenn jemand eine Mail schreibt, einen Button im Menüband zur Verfügung stellen, der beim Anklicken den Betreff ergänzt.
Ich lese den aktuellen Betreff aus, ergänze ihn und schreibe ihn zurück.
Funktioniert auch. Allerdings kann der Betreff erst ausgelesen werden, wenn der Focus (der Cursor) nicht mehr im Betreff steht bzw. ihn wenigstens einmal verlassen hat.
Ich breche den Code mal auf das nötigste runter, auf das Auslesen des Betreff's:
Vorgensweise 1:
Vorgensweise 2:
In der Praxis wird das wohl so gut wie nie vorkommen, aber trotzdem, kann man das irgendwie abfangen. Vielleicht einfach, indem man den Focus z.B. ins Feld Body wechselt?
Aber wie?
Danke
Gruß
Martin
Outlook 2010.
Ich möchte, wenn jemand eine Mail schreibt, einen Button im Menüband zur Verfügung stellen, der beim Anklicken den Betreff ergänzt.
Ich lese den aktuellen Betreff aus, ergänze ihn und schreibe ihn zurück.
Funktioniert auch. Allerdings kann der Betreff erst ausgelesen werden, wenn der Focus (der Cursor) nicht mehr im Betreff steht bzw. ihn wenigstens einmal verlassen hat.
Ich breche den Code mal auf das nötigste runter, auf das Auslesen des Betreff's:
Sub Betreff_aendern()
Dim olMail As Outlook.MailItem
Set olMail = Application.ActiveInspector.CurrentItem
MsgBox "Alter Betreff: " & olMail.Subject
End SubVorgensweise 1:
- Neue Mail öffnen
- Ins Feld Betreff klicken
- Betreff schreiben
- Feld Betreff verlassen (durch <TAB> oder durch Klicken in irgendein anderes Feld)
- Makro ausführen
Vorgensweise 2:
- Neue Mail öffnen
- Ins Feld Betreff klicken
- Betreff schreiben
- Feld Betreff NICHT verlassen
- Makro ausführen
In der Praxis wird das wohl so gut wie nie vorkommen, aber trotzdem, kann man das irgendwie abfangen. Vielleicht einfach, indem man den Focus z.B. ins Feld Body wechselt?
Aber wie?
Danke
Gruß
Martin
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 627428
Url: https://administrator.de/contentid/627428
Printed on: April 23, 2024 at 07:04 o'clock
3 Comments
Latest comment
Hallo,
schau mal ob es für das Feld ein Dirty-Flag gibt.
Dann kannst Du zumindest vergleichen.
(Dirty-Flag==TRUE) AND (olMail.Subject=="") -> Sonderaktion oder Warnung
Stefan
schau mal ob es für das Feld ein Dirty-Flag gibt.
Dann kannst Du zumindest vergleichen.
(Dirty-Flag==TRUE) AND (olMail.Subject=="") -> Sonderaktion oder Warnung
Stefan
Ich würde den Betreff einfach im ItemSend Event abändern dann brauchst du auch keinen extra Button 
.
Aber wenn du das unbedingt so willst, so kannst du das umgehen
.Aber wenn du das unbedingt so willst, so kannst du das umgehen
With ActiveInspector
' im Editor in Zeile 1 springen
.WordEditor.GoTo(3, 1).Select
' Mail zwischen speichern
.CurrentItem.Save
' Subject ausgeben
msgbox .CurrentItem.SUBJECT
End With
Zitat von @146707:
Ich würde den Betreff einfach im ItemSend Event abändern dann brauchst du auch keinen extra Button.
Den Button brauche ich, weil das Wort, um den der Betreff ergänzt werden soll, erst vom User eingegeben werden muss.Ich würde den Betreff einfach im ItemSend Event abändern dann brauchst du auch keinen extra Button
.Aber wenn du das unbedingt so willst, so kannst du das umgehen
> With ActiveInspector
> ' im Editor in Zeile 1 springen
> .WordEditor.GoTo(3, 1).Select
> ' Mail zwischen speichern
> .CurrentItem.Save
> ' Subject ausgeben
> msgbox .CurrentItem.SUBJECT
> End With
> Funktioniert einwandfrei.
Danke und Gruß
Martin
