Outlook - Betreff ändern

Problembeschreibung: siehe Titel
So ändern Sie schnell den Betreff erhaltener Emails. Diese Variante benötigt den VBA-Code in Outlook. Dafür ist das Ändern der Betreffzeile wesentlich schneller als mit Microsoft-Boardmitteln.
 
Public Sub EditSubject()
  Dim obj As Object
  Dim Sel As Outlook.Selection
  Dim DoSave As Boolean
  Dim NewSubject As String
  
  If TypeOf Application.ActiveWindow Is Outlook.Inspector Then
    Set obj = Application.ActiveInspector.CurrentItem
  Else
    Set Sel = Application.ActiveExplorer.Selection
    If Sel.Count Then
      Set obj = Sel(1)
      DoSave = True
    End If
  End If
  If Not obj Is Nothing Then
    NewSubject = InputBox("Neuer Betreff:", , obj.Subject)
    If NewSubject <> "" Then
      obj.Subject = NewSubject
      If DoSave Then
        obj.Save
      End If
    End If
  End If
End Sub

Quelle: http://www.vboffice.net/de/developers/betreff-aendern/

Autor: Thomas Huber
Geändert am: 01. September 2021
Quelle: https://www.exchangekonto.ch

Öffnungszeiten

MO - geschlossen
DI - 09:00-11:45 | 14:00-17:30
MI - 09:00-11:45 | 14:00-17:30
DO - 09:00-11:45 | 14:00-16:30
FR- 09:00-11:45
SA - geschlossen

*montags + freitags sind wir für Kunden unterwegs. Sollten wir keinen Kundentermin haben, ist das Geschäft geöffnet. Aktualisierte Abwesenheiten finden Sie auch auf Google..!

Dienstleistungen

  • Beratung + Verkauf Hard-/Software

  • Reparatur PC-/Notebooks

  • Installationen Windows-Geräte

  • Erstellen von Homepages mit Joomla

  • ExChange Hosting

  • Serverinstallationen

Unsere TOP-Hausmarken


© 2021 by computer-tagesklinik.ch