Компоненты для отправки файла по почте

← →
Alex Ford (2008-05-28 11:54) [0]

День добрый! Мир дому сему!

Какие в Delphi7 имеются компоненты для отправки файла (как вложение) по электронной почте?

Подскажите пожалуйста.

← →
Palladin © (2008-05-28 11:56) [1]

если страницу форума попытаешься до конца дочитать - найдешь один, на где то на других страницах есть еще упоминания... считаешь ты первый в России этим вопросом озадачился?

← →
Alex Ford (2008-05-28 12:09) [2]

на этой станице нет той ветки, где упоминается про компонент для прикрепления файла к сообщению.
Может ссылку дадите? Не вижу.

← →
Умище (2008-05-28 12:55) [3]

> Какие в Delphi7 имеются компоненты для отправки файла (как
> вложение) по электронной почте?

TidSMTP

← →
Alex Ford (2008-05-28 13:25) [4]

Спасибо! Именно с этим компонентом я сейчас и работаю - т.е. TidSMTP.
Но мне не понятно, какое свойство отвечает за эту операцию, т.е. за отправку файла.
Если не сложно покажите пожалуйста маленький пример работы с этим свойством.

← →
Palladin © (2008-05-28 13:28) [5]

ах, ты оказывается не про компоненты спрашивал, а о том как ими пользоваться, а я то, дуралей, так сразу и не понял... звиняй, телепатор дома оставил...

← →
Alex Ford (2008-05-28 13:32) [6]

Palladin, ты не виноват. Извиняться должен я. Поскольку видимо, вопрос немного не так сформировал.

Подскажите пожалйста про свойство.

в 7ке же инди есть, оно удобнее, вроде
uses
IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP,
IdMessage,

var
idSmtp1:tidSmtp;
IDMessage1:tIdMessage;

begin
IDMessage1:=tIdMessage.Create(nil);
with IDMessage1 do
begin
CharSet:="charset=windows-1251";
Subject:="-= Error in program =-";
Recipients.EMailAddresses:=mail; //указываем адрес получателя
From.Address:=CurrentUserName; //указываем автора письма
Body.Add("-------- PC info ---------");
TIdAttachment.Create(MessageParts,TmpPath+"screen.jpg");
end;
idSmtp1:=tidSmtp.Create(nil);
IdSMTP1.Host := "mail4.ppt.ru";
IdSMTP1.Connect(5000);
if IdSMTP1.Connected then IdSMTP1.Send(idMessage1);
IdSMTP1.Disconnect;
FreeAndNil(IDMessage1);
FreeAndNil(idSmtp1);

← →
Alex Ford (2008-05-28 15:09) [8]

Не пашет. Ваш код ошибку выдает. Или я че-нить не так сделал.... запутался уже.

Вот мой код.

procedure SendMail; var ff: integer; begin form1.IdSMTP1.Host:="smtp.rambler.ru"; form1.IdSMTP1.Port:=25; form1.IdSMTP1.AuthenticationType:=atLogin; form1.IdSMTP1.Username:=form3.edit1.Text; form1.IdSMTP1.Password:=form3.edit2.Text; form1.IdSMTP1.Connect; if form1.IdSMTP1.Connected then form1.Report_ListBox.Items.Add("Соединение с сервером установлено!")else form1.Report_ListBox.Items.Add("Ошибка соединения с сервером!"); begin Msg:=TIdMessage.Create(nil); form1.Report_ListBox.Items.Add("Подготовка сообщения к отправке..."); Msg.Date:=strtodate(datetostr(now)); if form1.Address_ListBox.Items.Count=1 then msg.Recipients.EMailAddresses:= pchar(form1.Address_ListBox.Items.Text)else Msg.Recipients.EMailAddresses:=pcha(form1.Address_ListBox.Items.DelimitedText); Msg.From.Address:=form3.MailTo_Edit.Text; if form1.IdSMTP1.Connected then form1.IdSMTP1.Send(Msg); form1.Report_ListBox.Items.Add("Отправка сообщения..."); TIdAttachment.Create(Msg.MessageParts, form1.Edit1.Text); form1.IdSMTP1.Disconnect; form1.Report_ListBox.Items.Add("Сообщение было успешно отправлено!"); end; end;

form1.IdSMTP1.Disconnect;
form1.Report_ListBox.Items.Add("Сообщение было успешно отправлено!");
end;

Вообще интересная мысль.

Компоненты для отправки файла по почте Найти похожие ветки