Скачать: CL | DM;

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

← →
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 строчки а в почтовом клиенте всё в одну

---

← →
HDD ©   (2002-02-06 00:41) [5]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c