Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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

 
Александр   (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]

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



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.039 c
3-1079440364
Максим
2004-03-16 15:32
2004.04.11
ADO и Ms OLE DB Provaiders - как работать с dBase IV базами?


1-1079708935
INTAARI
2004-03-19 18:08
2004.04.11
Перевод из десятичной системы в восмеричную.


1-1082468933
nv_
2004-04-20 17:48
2004.04.11
Создание объектов в РанТайме...


4-1079006624
KADAN
2004-03-11 15:03
2004.04.11
передача строки другому приложению


3-1082006367
turich
2004-04-15 09:19
2004.04.11
Помогите с DBGrid