Помогите пожалуйста.

← →
HDD © (2002-02-05 16:23) [0]

var
i: integer;
s : string;
begin
for i:=0 to RichEdit1.Lines.Count - 1 do
ShellExecute(handle,"open",PChar("mailto:ctapik-net@inbox.ru?subject=Report a bug&body="+ RichEdit1.Lines.Strings[i]), NIL, NIL, SW_SHOWNORMAL);
Хочу чтобы текст с моего редактора попадал в почтовую программу.
Но получается что каждая строка открывается в новом письме?
И ещё вопросик:
if RichEdit1.SelLength >0 then
RichEdit1.Lines.Text:= AnsiUpperCase(PChar(RichEdit1.SelText));
Чё-то не догоню как сделать чтобы в Большие буквы переходил только выделенный текст
Заранее благодарен Кирилл

← →
Basilio © (2002-02-05 16:34) [1]

1) ShellExecute(handle,"open",PChar("mailto:ctapik-net@inbox.ru?subject=Report a bug&body="
+ RichEdit1.Text), NIL, NIL,SW_SHOWNORMAL);
2) RichEdit1.SelText:=AnsiUpperCase(RichEdit1.SelText);

← →
MBo © (2002-02-05 16:34) [2]

1)
a bug&body="+ RichEdit1.Lines.Text),
и без цикла
2)
RichEdit1.SelText:= AnsiUpperCase(RichEdit1.SelText);

← →
HDD © (2002-02-05 16:40) [3]

Благодарю вас

← →
HDD © (2002-02-05 16:44) [4]

А с почтой получается такая беда. У меня в редакторе 3 строчки а в почтовом клиенте всё в одну

Помогите плиз

← →
Donal_Graeme (2002-02-06 03:00) [6]

хм...возможно, надо символы переноса строки заменить на тэги BR

Помогите пожалуйста. Найти похожие ветки