Einzelnen Beitrag anzeigen

kdf

Registriert seit: 3. Jul 2011
118 Beiträge
 
Delphi 10 Seattle Professional
 
#1

Datenübergabe TMemo > Outlook 2016 mit Tab's

  Alt 4. Jul 2020, 11:30
Hallo,

bin hier am verzweifeln.

Ich arbeite mit Textbausteinen, die automatisch generiert werden, die ich an Outlook übergebe. Das funktioniert soweit gut. Das Problem sind die Tab's.

Ich habe ein TIB_Memo mit Variablen, ein TMemo für den fertigen Text, der dan an Outlook übergeben wird. Hier der relevante Code für die Tab's:

procedure TFTextbaustein.FormCreate(Sender: TObject);
const COLWIDTH = 10;
var tabwidth : integer;
begin
Tabwidth := Colwidth shl 2;
IB_Memo1.Perform(EM_SETTABSTOPS, 1, Integer(@TabWidth));
Memo3.Perform(EM_SETTABSTOPS, 1, Integer(@TabWidth));
end;

Sieht dann so aus, wie im Anhang.

Ich habe in Delphi schon den gleichen Font wie in Outlook eingestellt (Calibri 12). Wenn vor den Variablen kein Text steht, sondern nur 1 oder 2 Tab's, ist die Ausgabe in Outlook in Ordnung. Sobald diese Textbezeichnungen davor sind, sieht es so oder ähnlich aus.

Hat jemand eine Idee, wie man die Formatierung hinbekommt?

Gruß

K.-D.
Miniaturansicht angehängter Grafiken
zwischenablage01.jpg  
Delphi 6 Prof., Delphi 10 Seattle Prof., IBO 4, IBO 5, Firebird 2.5, Windows 10 Prof.
  Mit Zitat antworten Zitat