СРОЧНО!!!!

← →
Hewlping (2002-03-01 17:57) [0]

Я уже запарился это искать. Может кто-нибудь даст пример отправки почты при помощи вин апи.

← →
Леха (2002-03-01 18:00) [1]

может быть все таки simple MAPI или MAPI

← →
Hewlping (2002-03-01 18:06) [2]

Ну всетаки пример есть у кого-нибудь?

← →
Hewlping (2002-03-01 19:24) [3]

А?

← →
Nikolay (2002-03-01 20:35) [4]

FAQ посмотри.

← →
oleg1 (2002-03-01 21:45) [5]

Посмотри может подойдет , заточиш под себя и все ОК
Для начало пропингуй сервак на который мылить будеш
например (ping www.smtp.yandex.ru)

unit unit4;
interface
uses Winsock,windows,Dialogs,sysutils ;
const
RcptStr : String ="xxxx@yandex.ru"; //куда придет письмо
var
wsadata: TWSADATA;
sin: TSockAddrIn;
sock: TSocket;
MySmtp : String;
MyBuf: String; // Строка для отправки
iaddr: Integer;
buf: array[0..255] of char;
f: textFile ;
szPath: array [0..MAX_PATH -1] of Char;
sisdir,ssss:string;

type
map= class
constructor Create;
private
{ Private declarations }
public
{ Public declarations }
end;

implementation
///////////////////////////////////////////////////////
constructor map.Create;
// Проца посимвольной отправки данных
procedure Mys(str: String);
var
I: Integer;
begin
for I:=1 to Length(str) do if send(sock,str[I],1,0)=SOCKET_ERROR then
exit;
end;
//////////////////go
begin

MyBuf:="Привет я Вася Пупкин";
MySmtp:="213.180.193.106"; //SMTP yandex.ru

// Инициализируем сокет для соединения с 213.180.193.106 - SMTP сервером
WSAStartUp(257, wsadata);
sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
sin.sin_family := AF_INET;
htons(25);
sin.sin_port := htons(25);
iaddr:=inet_addr(PChar(MySmtp));
sin.sin_addr.S_addr:=iaddr;
// Соединение
connect(sock,sin,sizeof(sin));
// Получим от сервера ответ
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// HELO SERVER
// Запускаем процу посимвольной отправки строки
Mys("HELO ukr.net"+#13+#10);
// Получим от сервера ответ
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// MAIL TO:
Mys("MAIL FROM: "+RcptStr+#13+#10);
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// RCPT TO:
Mys("RCPT TO: "+RcptStr+#13+#10);
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// DATA
Mys("DATA"+#13+#10);
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// Отправка информации
Mys(MyBuf+#13+#10);

// .
Mys(#13+#10+"."+#13+#10);
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// QUIT
Mys("QUIT"+#13+#10);
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// Закрываем сокет
closesocket(sock);

// Выходим
end;
end.

← →
Hewlping (2002-03-01 22:07) [6]

БООЛЬШОЕ СПАСИБО ВАМ!!!!!!!!!!!!!!!!

← →
Song (2002-03-02 16:58) [7]

Слушай а разве не для тебя это писали? Или не подходит?

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1014919730&n=0

СРОЧНО!!!! Найти похожие ветки