| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Кто знает!!!!! Как отправить письмо.....только не через почтовую [WinME, WinXP]

k-sergey ©   (2002-11-15 12:57:00) 

Кто знает!!!!! Как отправить письмо.....только не через почтовую прогу...я скачал Indy, посмотрел Demo но там пример тоже не работает!!!! скиньте на мыло кому не трудно примерчик....который умеет отправлять почту....! K-Sergey@mail.ru

---

Sergey V. Shadrin   (2002-11-15 18:16:00) [1]

учим smtp, пишим собственного клиента. это если не ищешь легких путей :) если ищешь - используй mail клиентов :)

---

Maksss   (2002-11-15 18:14:00) [2]

Mail это ClientSocket,m_State : integer;
запускается
m_state := 1;
Mail.Port := 25;
Mail.Host := SMTPAddress;
Mail.Active := True;

procedure TForm.MailRead(Sender: TObject;
Socket: TCustomWinSocket);
var otvet :string;
begin
otvet := Mail.Socket.ReceiveText;
otvet := copy(otvet,1, 3);
If (otvet = "250") Or (otvet = "221") Or (otvet = "354") Then begin
Case m_State of
1:begin m_State := 2;
Mail.Socket.SendText ("HELO "+ server.Socket.LocalAddress + #13#10);
end;
2: begin m_State := 3;
Mail.Socket.SendText("MAIL FROM: server@home.net"+ #13#10);
end;
3:begin m_State := 4;
Mail.Socket.SendText("RCPT TO: " + MailSett + #13#10);
end;
4: begin m_State :=5;
Mail.Socket.SendText("DATA" + #13#10);
end;
5: begin m_State := 6;
Mail.Socket.SendText("Subject: " + LocalIP1 + #13 + #13#10 + text писма + #13#10 + #13+ "." + #13#10);
end;
6: begin m_State := 7;
Mail.Socket.SendText("QUIT" +#13#10);
end;
7: begin
//if otvet = "221" then
Mail.Active :=False;
end;
end;
end else begin
Mail.Active :=False;
ERROR
end;
end;


---

Song   (2002-11-15 13:35:00) [3]

TNMSMTP

---

Наверх