Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.027 c