Форум: "Сети";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];

Вниз

Кто знает!!!!! Как отправить письмо.....только не через почтовую   Найти похожие ветки 

← →
k-sergey   (2002-11-15 12:57) [0]

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

---

← →
Song   (2002-11-15 13:35) [1]

TNMSMTP

---

← →
Maksss   (2002-11-15 18:14) [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;


---

← →
Sergey V. Shadrin   (2002-11-15 18:16) [3]

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

---

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

Форум: "Сети";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c