Форум: "Сети";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

ICS SMTP клиент   Найти похожие ветки 

← →
stas ©   (2009-11-13 15:21) [0]

Разъясните пожалуйста как отправить почту с использованием ICS.
1. Я взял их пример, который расписан по кнопкам на этом сайте и собрал в    одну процедуру, но в таком случае на строке выполнения Helo ошибка "SMTP component not ready."

2.Там у них раздельно отправляется вложение и текст, как это все собрать.
или я чего- то там непонял вот собственно сам код:
procedure SendMail (SmtpServer,MailTo,MailFrom,Subj:String;MMessage,MFiles:TStrings);
Var SmtpClient:TSmtpCli;   i:Integer;

procedure BuildRcptList;
var
   Buf : String;
   I   : Integer;
begin
   SmtpClient.RcptName.Clear;
   Buf := MailTo;
   while TRUE do begin
       I := Pos(";", Buf);
       if I <= 0 then begin
           SmtpClient.RcptName.Add(Trim(Buf));
           break;
       end
       else begin
           SmtpClient.RcptName.Add(Trim(Copy(Buf, 1, I - 1)));
           Delete(Buf, 1, I);
       end;
   end;
end;

begin
SmtpClient:=TSmtpCli.Create(nil);
//С каким SMTP сервером будем работать.
SmtpClient.Host := SmtpServer;
//Порт SMTP серера (например 25)
SmtpClient.Port := "smtp";
//Приступить к соединению с SMTP сервером
SmtpClient.Connect;

//Название сервера, которого будем приветствовать
i:=Pos("@",MailTo)+1;

SmtpClient.SignOn := Copy (MailTo,i,Length(MailTo)-i+1);
//Поздороваться с сервером
SmtpClient.Helo;

//Почтовый адрес на который при возникновении ошибки сервер
//вышлет уведомление о ошибке, также используется в письме, как
//обратный адрес.
SmtpClient.FromName := MailFrom;
SmtpClient.MailFrom;
//Процедура для обработки адреса получателя
BuildRcptList;
//Информируем сервер кому мы хотим послать письмо
SmtpClient.RcptTo;
//Приступаем непосредственно к передаче данных на почтовый ящик.
BuildRcptList;
SmtpClient.HdrFrom         := MailFrom;
SmtpClient.HdrTo           := MailTo;
//Здесь определяем тему письма
SmtpClient.HdrSubject      := Subj;
//Если необходимо с письмом передать файл с данными (например картинку)
//то в параметр EmailFile записываем локальный путь на диске, где она лежит.
//SmtpClient.MailMessage:=MMessage;
SmtpClient.EmailFiles := MFiles;
SmtpClient.Data;
//Закрываем почтовую сессию
SmtpClient.Quit;
//Обрываем соединение с сервером.
SmtpClient.Abort;
SmtpClient.Free;
end;


---

← →
stas ©   (2009-11-13 16:02) [1]

Вопрос снят, разобрался.

---

← →
имя   (2009-11-15 03:00) [2]

Удалено модератором

---

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

Форум: "Сети";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.086 c