Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Компоненты для отправки файла по почте [D7, XP]

Alex Ford © (2008-05-28 11:54:00)
День добрый! Мир дому сему!

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

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

Reindeer Moss Eater (2008-05-28 15:26:00) [1]
form1.IdSMTP1.Disconnect;
form1.Report_ListBox.Items.Add('Сообщение было успешно отправлено!');
end;

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

Alex Ford (2008-05-28 15:09:00) [2]
Не пашет. Ваш код ошибку выдает. Или я че-нить не так сделал.... запутался уже.

Вот мой код.

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;

Vlad Oshin (2008-05-28 14:13:00) [3]
в 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 13:32:00) [4]
Palladin, ты не виноват. Извиняться должен я. Поскольку видимо, вопрос немного не так сформировал.

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

Palladin (2008-05-28 13:28:00) [5]
ах, ты оказывается не про компоненты спрашивал, а о том как ими пользоваться, а я то, дуралей, так сразу и не понял... звиняй, телепатор дома оставил...

Alex Ford (2008-05-28 13:25:00) [6]
Спасибо! Именно с этим компонентом я сейчас и работаю - т.е. TidSMTP.
Но мне не понятно, какое свойство отвечает за эту операцию, т.е. за отправку файла.
Если не сложно покажите пожалуйста маленький пример работы с этим свойством.

Умище (2008-05-28 12:55:00) [7]

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

TidSMTP

Alex Ford (2008-05-28 12:09:00) [8]
на этой станице нет той ветки, где упоминается про компонент для прикрепления файла к сообщению.
Может ссылку дадите? Не вижу.

Palladin (2008-05-28 11:56:00) [9]
если страницу форума попытаешься до конца дочитать - найдешь один, на где то на других страницах есть еще упоминания... считаешь ты первый в России этим вопросом озадачился?

Наверх

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