E-Mail Betreff auslesen und verändern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: E-Mail Betreff auslesen und verändern
von: Basti
Geschrieben am: 28.07.2015 12:23:43

Hallo Zusammen,
würde gerne um Eure Hilfe zu dem u.a (Problem) Code bitten.
Die Routine erweitert in Outlook den Betreff einer Email um den gewünschten Inhalt (Funktion bestätigt!!!)
Ich möchte, dass in der Inputbox bereits der aktuell Betreff enthalten ist, sodass ich diesen verändern kann um diesen als finalen Betreff zu speichern.
Bsp ALT: "Test-Mail 1" -> Inputbox ("Test-Mail 1")
Bsp NEU: "TestBetreff-Mail 1"
Danke für Eure Unterstützung
Gruß
Basti


Sub BetreffAnpassen()
 
 On Error Resume Next
 
 Dim olSelection As Outlook.Selection
 Dim Mail As Outlook.MailItem
  
  Set olSelection = Application.ActiveExplorer.Selection
  olNewSubject = InputBox("Geben Sie den neuen Betreff ein!!", "Betreff ändern")
  For Each Mail In olSelection
   Mail.Subject = Mail.Subject & " " & olNewSubject
   Mail.Save
  Next Mail
   
End Sub

Bild

Betrifft: AW: E-Mail Betreff auslesen und verändern
von: Sepp
Geschrieben am: 28.07.2015 14:39:40
Hallo Basti,


  For Each Mail In olSelection
   Mail.Subject = InputBox(Mail.Subject, "Betreff ändern")
Gruß Sepp


Bild

Betrifft: AW: E-Mail Betreff auslesen und verändern
von: Basti
Geschrieben am: 28.07.2015 16:45:10
Hallo Sepp,
deine Lösung zeigt mir den aktuellen Betreff als Beschriftung der Inputbox.
Ich möchte jedoch, dass der Text direkt im Schreibbereich der Box steht, damit ich nicht immer den gesamten Inhalt neu schreiben muss, wenn ich etwas ändern bzw. hinfügen möchte
Danke & Gruß
Basti

Bild

Betrifft: AW: E-Mail Betreff auslesen und verändern
von: Sepp
Geschrieben am: 28.07.2015 16:47:37
Hallo Basti,
ui, das ist aber schwer;-)

Mail.Subject = InputBox("Geben Sie den neuen Betreff ein!", Mail.Subject)

Gruß Sepp


Bild

Betrifft: AW: E-Mail Betreff auslesen und verändern
von: Basti
Geschrieben am: 28.07.2015 17:06:26
Hi Sepp,
dein Vorschlag hat leider nicht die Lösung gebracht.
Durch genaueres hinsehen in den Erläuterung zum Aufbau der Inputbox ist mir aufgefallen, dass ein "DEFAULT" möglich ist.
Dieser Code-Teil erfüllt jetzt meine Anforderungen.

Mail.Subject = InputBox("Geben Sie den neuen Betreff ein!", " Email Betreff ändern ", Mail.Subject)

Danke für den Denkanstoß
Gruß
Basti

Bild

Betrifft: AW: E-Mail Betreff auslesen und verändern
von: Basti
Geschrieben am: 28.07.2015 17:07:50
Erledigt!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "E-Mail Betreff auslesen und verändern"