Главная страница
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.031 c
1-1082713218
mikeflat
2004-04-23 13:40
2004.04.11
Сохранение объекта в dfm


14-1082106240
nikitos
2004-04-16 13:04
2004.04.11
Кому не лень...


7-1075446884
NetKnight
2004-01-30 10:14
2004.04.11
Hiddern tray in XP & Default mail


3-1081939231
31512
2004-04-14 14:40
2004.04.11
TClientDataSet.ApplyUpdates(0) & TClientDataSet.Refresh


1-1079749153
Артем К.
2004-03-20 05:19
2004.04.11
Отрисовка пункта меню шрифтом красного цвета