Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook VBA Kontakt Notizfeld Suchen Ersetzen Format
21.01.2023 15:00:15 Steven
NotSolved

Ansicht des Beitrags:
Von:
Steven
Datum:
21.01.2023 15:00:15
Views:
269
Rating: Antwort:
  Ja
Thema:
Outlook VBA Kontakt Notizfeld Suchen Ersetzen Format

Hallo Ihr Profis,

Bitte um Hilfe, ich nutze folgenden Code, um die Schrift im Notizfeld der Kontakte zu formatieren, weil nach Synchronisierung mit dem Microsoft Exchange Profil oft die Formatierung dort verschwunden ist:

Sub Schrift_Kontakte_Notizen()
Dim Ctk As ContactItem, InSp As Inspector, Doc As Object
Set Ctk = ActiveExplorer.Selection(1)

Debug.Print Ctk.Body
Set InSp = Ctk.GetInspector
Set Doc = InSp.WordEditor
InSp.Display

Doc.Content.Font.Name = „Calibri“
Doc.Content.Font.Size = „14“

End Sub

Alles geht perfekt, nun zu meiner Frage, ich möchte gern in diesen Code eine SUCHEN – ERSETZEN Funktion einbauen, die folgendes macht:
SUCHEN von mehr als 1 Leerzeichen mit “ {2;}“
ERSETZEN mit „^t“

Habt Ihr einen Vorschlag, es zu integrieren in o.g. Code?
Habe sowas im Word Makro Aufzeichner gemacht, leider funktioniert der Code aber nicht im Outlook
Vielen Dank


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook VBA Kontakt Notizfeld Suchen Ersetzen Format
21.01.2023 15:00:15 Steven
NotSolved