Daten aus Delphi in Thunderbird einfügen.

[blawen]

Zitat von Delphi.Narium:

Nö, es scheint immer nur ein Leerzeichen da zu sein, ob es vorher mal viele waren oder Tabs oder 'ne beliebige Kombination aus Leerzeichen und/oder Tabs, kann man den Screenshots nicht entnehmen.

Da im ersten Bild die Beträge jeweils ohne Versatz aufgelistet werden, müssen eigentlich Tabs im Spiel sein.

[Schokohase]

Zitat von blawen:

Zitat von Delphi.Narium:

Nö, es scheint immer nur ein Leerzeichen da zu sein, ob es vorher mal viele waren oder Tabs oder 'ne beliebige Kombination aus Leerzeichen und/oder Tabs, kann man den Screenshots nicht entnehmen.

Da im ersten Bild die Beträge jeweils ohne Versatz aufgelistet werden, müssen eigentlich Tabs im Spiel sein.

Sieht für mich nach Courier New aus und nur mit Leerzeichen (so hat es der OP auch gesagt)

[Dalai]

Vermutlich ist im Thunderbird HTML eingestellt für das Verfassen neuer Mails. Im Textmodus können auch mehrere aufeinanderfolgende Leerzeichen und vermutlich auch Tabs eingefügt werden.

Grüße
Dalai

[oldmann]

Hallo,

erst mal Danke für das rege Interesse an meinem Problem.
Erst mal ein paar Hinweise zu Euren Fragen.
Thunderbird war zum Senden in HMTL und Reintext eingestellt.
Auch wenn ich nur Reintext einstelle ist das Problem das gleiche.
Im Memo ist "Courier New" eingestellt.
Die Zwischenräume sind mit Leerzeichen aufgefüllt.
Memo1 enthält den Text.
Memo1 wird gefülllt mit:
Form17.Memo1.Lines.Add(FilterGrid1.cells[0,2]+' '+zahl+' '+preis);
Der Datentransport sieht folgendermassen aus:

var
MMessage : TMapiMessage;
Fehler : Integer;
Empfaenger : Array[0..1] of TMapiRecipDesc;
Absender : TMapiRecipDesc;
m_text:string;
begin
If CheckBox1.checked = true Then m_text:=Memo2.Text;
with MMessage do begin
ulReserved := 0;
lpszNoteText := PAnsiChar(AnsiString(Memo1.text+#10+m_Text));
lpszSubject := PAnsiChar(AnsiString(Edit11.text));

lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;

// Absender festlegen
Absender.ulReserved:=0;
Absender.ulRecipClass:=MAPI_ORIG;
Absender.lpszName:= PAnsiChar('Absender');
Absender.lpszAddress:='';//PAnsiChar(AnsiString(Memo1.text)); //Emailadresse Absender
Absender.ulEIDSize:=0;
Absender.lpEntryID:=nil;

lpOriginator := @Absender;

//Empfänger festlegen ... hier ein Empfänger
nRecipCount := 1;
Empfaenger[0].ulReserved:=0;
Empfaenger[0].ulRecipClass:=MAPI_TO;
Empfaenger[0].lpszName:= PAnsiChar('');//Empfängername
if RadioButton1.Checked=True then
Empfaenger[0].lpszAddress:= PAnsiChar(AnsiString(Edit8.Text));//Emailadresse
if RadioButton2.Checked=True then
Empfaenger[0].lpszAddress:= PAnsiChar(AnsiString(Edit9.Text));//Emailadresse

// Empfaenger[0].lpszName:= PChar('');//Empfängername
// Empfaenger[0].lpszAddress:= PChar('');//Emailadresse
Empfaenger[0].ulEIDSize:=0;
Empfaenger[0].lpEntryID:=nil;

lpRecips := @Empfaenger;

nFileCount := 0;
lpFiles := nil;
end;
Fehler := MapiSendMail(0, 0, MMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
case fehler of
0 : ;
MAPI_E_USER_ABORT : showmessage('Nutzerabbruch');
else
showmessage('Fehler');
end;
Close;
Copy1;
end;

gruß Oldmann

[ConnorMcLeod]

Kannst Du vllt mal zu Fuß einfach Stringliterale einfügen, ohne das Ganze drumherum? Und beobachten, was drüben ankommt?
lpszNoteText := PAnsiChar(AnsiString('testblah')); usw...

[oldmann]

Hallo,

das sieht auch nicht besser aus.
Eingegeben habe ich:
'teststring abc'
Im Mailprogramm angekommen ist:
teststring abc

oldmann

[oldmann]

Hallo,

zu meiner Antwort von eben.
Auch hier werden die Leerzeichen aus meiner Antwort entfernt.
Eingegeben habe ich:
'teststring abc'mit 6 Leerzeichen zwischen den Worten.
Es wird aber nur 1 Leerzeichen angezeigt.
Eigentlich das gleiche Problem wie meins.

oldmann

[mjustin]

Mit der Jedi Code Library und Outlook getestet funktioniert dieser Code, der die Property "HtmlBody" setzt.
Der HTML Body wird von JclMapi dann in ein HTML Attachment umgewandelt.

Delphi-Quellcode:

uses
  JclMapi;

procedure TForm1.Button1Click(Sender: TObject);
var
  Msg: TJclEmail;
begin
  Msg := TJclEmail.Create;
  try
    Msg.HtmlBody := True;
    Msg.Body := '<html><pre>123 (hier weitere Leerzeichen...) 456</pre></html>';
    Msg.Send(True);
  finally
    Msg.Free;
  end;
end;

(getestet mit Delphi 2009)