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

← →
Max.66RUS © (2006-06-10 20:43) [0]

Всем привет. Не могли бы вы мне дать ссылку на исходник процедуры автоматической отправки 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.

← →
brother © (2006-06-10 20:57) [1]

Вот пример для 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;

← →
Max.66RUS © (2006-06-10 21:32) [2]

brother ©, спасибо огромное. Но при использовании твоей процедуры почему то появляется ошибка ""Undeclared Indentifier <TidAttachment>". Что это может быть? У меня установлен "Delphi 7.0 Enterprise". Помоги пожалуйста.

← →
Aksenov © (2006-06-11 07:02) [3]

Тоже интересует этот вопрос.
У меня установлен "Delphi 7.

Надо подключить в uses модуль, в котором описан этот тип (это в Help`e можно посмотреть)

Автоматическая отправка E-mail... Найти похожие ветки