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

Отправка e-mail из программы....   Найти похожие ветки 

← →
Razorblade   (2003-11-17 12:30) [0]

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

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

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

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

---

← →
dataMaster ©   (2003-11-17 12:40) [1]

Пример на 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;


---

← →
Fay   (2003-11-17 12:44) [2]

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

8)

---

← →
Razorblade   (2003-11-17 13:01) [3]

Спасибо dataMaster.

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

---

← →
Fay   (2003-11-17 13:12) [4]

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

---

← →
dataMaster ©   (2003-11-17 13:20) [5]

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

Согласен.

---

← →
Razorblade   (2003-11-17 13:23) [6]

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

---

← →
Fay   (2003-11-17 13:32) [7]

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

---

← →
Razorblade   (2003-11-17 14:07) [8]

to Fay:

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

---

← →
Razorblade   (2003-11-17 14:22) [9]

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

---

← →
Fay   (2003-11-17 14:34) [10]

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

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

---

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

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

---

← →
Александр из Минска ©   (2003-11-17 16:24) [12]

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

---

← →
dataMaster ©   (2003-11-17 16:43) [13]

Имя сервера

---

← →
AlexVas   (2004-01-08 20:36) [14]

Fay   (17.11.03 14:34) [10]

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

---

← →
Alibaba ©   (2004-01-12 10:41) [15]

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

---

← →
Плохиш_   (2004-01-12 10:47) [16]

>AlexVas   (08.01.04 20:36) [14]

&file=

---

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

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



Память: 0.48 MB
Время: 0.02 c