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

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

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

Автоматическая отправка E-mail... [D7]

Max.66RUS © (2006-06-10 20:43:00)
Всем привет. Не могли бы вы мне дать ссылку на исходник процедуры автоматической отправки E-mail на фиксированный адрес почты по нажатию кнопки без использования почтовой программы по умолчанию. В сети нашёл один такой исходник, но там перменные не задекларированы. Или быть может кто-нибудь напишет к какому типу относятся переменные. Вот исходник процедуры:

-----
procedure TForm1.Button1Click(Sender: TObject);

begin
NMSMTP1.Host := 'smtp.mailserver.com';
NMSMTP1.UserID := 'h.abdullah';
NMSMTP1.Connect;

NMSMTP1.PostMessage.FromAddress := 'hasan@excite.com';
NMSMTP1.PostMessage.ToAddress.Text := 'someone@xmail.com';
NMSMTP1.PostMessage.Body.Text := 'Текст письма';
NMSMTP1.PostMessage.Subject := 'Тема письма';
NMSMTP1.SendMail;
end;
-----

При испоьзовании данной процедуры в таком виде Delphi выдает ошибку "Undeclared Indentifier <NMSMTP1>".

И ещё, подксажите, за что отвечают перменные, т.е. что в них нужно вписывать:

NMSMTP1.Host := 'smtp.mailserver.com';
NMSMTP1.UserID := 'h.abdullah';

NMSMTP1.PostMessage.FromAddress := 'hasan@excite.com';
NMSMTP1.PostMessage.ToAddress.Text := 'someone@xmail.com';

E-mail, на который будут отправляться письма, находится на Яндексе.

Заранее спасибо.

Мой ICQ: 727704.

Out (2006-07-31 15:26:00) [1]
Надо подключить в uses модуль, в котором описан этот тип (это в Help`e можно посмотреть)

Aksenov (2006-06-11 07:02:00) [2]
Тоже интересует этот вопрос.
У меня установлен "Delphi 7.

Max.66RUS (2006-06-10 21:32:00) [3]
brother ©, спасибо огромное. Но при использовании твоей процедуры почему то появляется ошибка ""Undeclared Indentifier <TidAttachment>". Что это может быть? У меня установлен "Delphi 7.0 Enterprise". Помоги пожалуйста.

brother (2006-06-10 20:57:00) [4]
Вот пример для 6 делфи используется Инди, может пригодится:

procedure TForm1.Button1Click(Sender: TObject);
var f:TidAttachment;
n:integer;
begin
IdSmtp1.Host:='smtp.mail.ru';
IdSmtp1.Port:=25;
IdSmtp1.AuthenticationType:=atLogin;
IdSmtp1.UserId:='от кого';
IdSmtp1.Password:='пароль отправителя';
IdMessage1.Body.Text:='текст';
IdMessage1.From.Text:='от кого@mail.ru'; // должно совпадать с от кого(только без@mail.ru)
IdMessage1.Recipients.EMailAddresses:='кому@mail.ru';
IdMessage1.Subject:='заголовок письма';
F:=TIdAttachment.Create(IdMessage1.MessageParts,'C:\WINDOWS\win.ini');
try
IdSmtp1.Connect{()};
except
showmessage('Error connection!');
end;
if IdSmtp1.Connected then
begin
IdSmtp1.Disconnect;
end;
f.Destroy;

Наверх

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