| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отправка e-mail из программы.... [D6, Win2k, WinXP]

Razorblade ©   (2003-11-17 12:30:00) 

Мастера! Есть такой вопрос. Мне из программы надо запустить почтовый клиент используемый по умолчанию, подставить атрибуты (from, to и т.д) + !САМ ВОПРОС! НЕОБХОДИМО ДОБАВИТЬ ТЕКСТ В ТЕЛО ПИСЬМА!

Пробую ShellExecute. mailto:......

Всё работает но небозможно в письме задать возврат каретки, т.е. весь текст изёт одной строкой.

Если кто делал нечто подобное или есть какие идеи - ответьте.

---

Плохиш_   (2004-01-12 10:47:00) [1]

>AlexVas   (08.01.04 20:36) [14]

&file=

---

Alibaba   (2004-01-12 10:41:00) [2]

А как получить email?
С помощью Indy это можно сделать?

---

AlexVas   (2004-01-08 20:36:00) [3]

Fay   (17.11.03 14:34) [10]

Как файл приатачить

---

dataMaster   (2003-11-17 16:43:00) [4]

Имя сервера

---

Александр из Минска   (2003-11-17 16:24:00) [5]

to dataMaster:
 а что в host писать?

---

Александр из Минска   (2003-11-17 15:56:00) [6]

to Razorblade:
и что Вы сделали? (у меня тоже самое)

---

Fay   (2003-11-17 14:34:00) [7]

ShellExecute(handle,'OPEN',pcHar('mailto:mail@mail.ru?subject=Тема&body="вот тут и вся%0D%0A проблема"'),'','',1);

http://lattice.itep.ru/UNIX/RFC/rfc2368.html

---

Razorblade   (2003-11-17 14:22:00) [8]

ВСЁ !!! Разобрался. Всем спасибо...  :)

---

Razorblade   (2003-11-17 14:07:00) [9]

to Fay:

ShellExecute(handle,'OPEN',pcHar('mailto:mail@mail.ru?subject=Тема&body="вот тут и вся проблема"'),'','',1);

---

Fay   (2003-11-17 13:32:00) [10]

Можно весь ShellExecute. mailto:......?

---

Razorblade   (2003-11-17 13:23:00) [11]

типа 'line1'#13#10' - Не помогает! Вообще символы перевода строки как бы изчезают. Пробовал наверное все варианты.

---

dataMaster   (2003-11-17 13:20:00) [12]

>Fay
я бы переставил местами

Согласен.

---

Fay   (2003-11-17 13:12:00) [13]

А чё-нибудь типа 'line1'#13#10'line2' не помогает?

---

Razorblade   (2003-11-17 13:01:00) [14]

Спасибо dataMaster.

Но мне не надо отправлять письмо, а надо просто создать его и вывести на редактирование...

---

Fay   (2003-11-17 12:44:00) [15]

я бы переставил местами
ShowMessage('письмо отправлено');
и
Disconnect;

8)

---

dataMaster   (2003-11-17 12:40:00) [16]

Пример на Indy:

uses IdMessage, IdSMTP

var
 LSMTP: TIdSMTP;
 LMsg: TIdMessage;
 s:string;
begin
LSMTP := TIdSMTP.Create(nil);
LMsg := TIdMessage.Create(LSMTP);
with LMsg do
 begin
   {  так присоединяется какой-нибудь аттач
   if opendialog1.Execute then
   begin
     s := opendialog1.FileName;
     TIdAttachment.Create(LMsg.MessageParts, s);
   end;
   }
   Subject := 'тема';
   Recipients.EMailAddresses := 'адрес получателя';
   From.Text := 'адрес от кого';
   Body.Text := 'текст письма';
 end;
with LSMTP do
 begin
   AuthenticationType:=atNone;
   Host := 'host';
   Connect;
   Send(LMsg);
   ShowMessage('письмо отправлено');
   Disconnect;
 end;
 FreeAndNil(LMsg);
 FreeAndNil(LSMTP);
end;


---

Наверх