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

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

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

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

Александр © (2004-01-31 18:54:00)
Как с помощью программы отправить письмо???? Я нашёл способ, но он не работает. Помогите разобраться????????
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;

Александр (2004-02-01 12:43:00) [1]
Программа помоему почемуто не соединяется с сервером?????

Александр (2004-02-01 12:40:00) [2]
Там просто указан не павильный DELPHI!

Александр (2004-02-01 12:34:00) [3]
Я писал эту прогу на delphi 5, я знаю где находится компонент NMSMTP.

Djon007 (2004-01-31 21:55:00) [4]
и в 6

DillerXX (2004-01-31 21:36:00) [5]
У меня такой нет.. По крайней мере в 7д
По моему это в 5д есть...

Djon007 (2004-01-31 21:33:00) [6]
это компонент в вкладке FastNet

DillerXX (2004-01-31 21:31:00) [7]
Слушайте, объясните ламеру где взять NMSMTP????

Djon007 (2004-01-31 20:23:00) [8]
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;

Наверх

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