Как с помощью программы отправить письмо???? Я нашёл способ, но о

← →
Александр (2004-01-31 18:54) [0]

Как с помощью программы отправить письмо???? Я нашёл способ, но он не работает. Помогите разобраться????????
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
{Åñëè ìû ïîäêëþ÷åíû ê ñåðâåðó òî ðàçîðâåì ñîåäèíåíèå}
if NMSMTP1.Connected then NMSMTP1.Disconnect;

{Çàïîëíÿåì âñå íåîáõîäèìûå ïîëÿ äëÿ ïîäêëþ÷åíèÿ ê ñåðâåðó}
NMSMTP1.UserID := "1";
NMSMTP1.Host :="Òåìà ïðîâåðêà"; {Òåìà ïèñüìà}
{Êîíåêòèìñÿ ê ñåðâåðó}
NMSMTP1.Connect;
{Åñëè êîíåêò óäà÷íûé òî çàïîëíÿåì äàííûå äëÿ ñîîáùåíèÿ}
if NMSMTP1.Connected then
begin
NMSMTP1.PostMessage.FromAddress := "winsmike@rambler.ru";
NMSMTP1.PostMessage.FromName :="Àëåêñàíäð";
NMSMTP1.PostMessage.ToAddress.Text :="sashadon@rambler.ru";{Àäðåñ ïîëó÷àòåëÿ}
NMSMTP1.PostMessage.Subject := "Òåìà ïðîâåðêà";
NMSMTP1.PostMessage.ToCarbonCopy.Text := "1";{èìÿ ïîëüçîâàòåëÿ smtp ñåðâåðà}
NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := "www.rambler.ru";{äëÿ àäðåñà smtp ñåðâåðà}
NMSMTP1.PostMessage.Body.Text := "Òåêñò Ïèñüìà";

{À ñäåñü ìîæíî óêàçàòü èìåíà ïðèàòà÷åíûõ ôàéëîâ
äëÿ ýòîãî íóæíî íàïðèìåð
NMSMTP1.PostMessage.Attachments.Text:="c:\autoexec.bat";}
NMSMTP1.PostMessage.Attachments.Text := "";
NMSMTP1.PostMessage.LocalProgram := "";
NMSMTP1.PostMessage.Date:="";
NMSMTP1.PostMessage.ReplyTo:="";
{Îòñûëàåì ïèñüìî}
NMSMTP1.SendMail;
{Îòñîåäåíÿåìñÿ}
NMSMTP1.Disconnect;
{Âûäàåì ñîîáùåíèå î òîì ÷òî âñå ïðîøëî îòëè÷íî}
ShowMessage("Message send ok!");
end
else
{Âûäàåì ñîîáùåíèå î òîì ÷òî ìû íå ïðèêîíåêòèëèñü ê ñåðâåðó}
ShowMessage("You need to connect before you can send your message");
end;

← →
Djon007 © (2004-01-31 20:23) [1]

NMSMTP1.Host :="";
NMSMTP1.Port :=;
NMSMTP1.Connect;

NMSMTP1.PostMessage.FromAddress :="";
NMSMTP1.PostMessage.FromName :="";
NMSMTP1.PostMessage.Subject :="";
NMSMTP1.PostMessage.ToAddress.Add("");
NMSMTP1.PostMessage.Attachments.AddStrings("");
NMSMTP1.PostMessage.Body.Assign("");
NMSMTP1.SendMail;

← →
DillerXX © (2004-01-31 21:31) [2]

Слушайте, объясните ламеру где взять NMSMTP????

← →
Djon007 © (2004-01-31 21:33) [3]

это компонент в вкладке FastNet

← →
DillerXX © (2004-01-31 21:36) [4]

У меня такой нет.. По крайней мере в 7д
По моему это в 5д есть...

← →
Djon007 © (2004-01-31 21:55) [5]

и в 6

← →
Александр (2004-02-01 12:34) [6]

Я писал эту прогу на delphi 5, я знаю где находится компонент NMSMTP.

← →
Александр (2004-02-01 12:40) [7]

Там просто указан не павильный DELPHI!

← →
Александр (2004-02-01 12:43) [8]

Программа помоему почемуто не соединяется с сервером?????

Как с помощью программы отправить письмо???? Я нашёл способ, но о Найти похожие ветки