Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

СРОЧНО!!!!

Hewlping © (2002-03-01 17:57:00)
Я уже запарился это искать. Может кто-нибудь даст пример отправки почты при помощи вин апи.

Song (2002-03-02 16:58:00) [1]
Слушай а разве не для тебя это писали? Или не подходит?

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

Hewlping (2002-03-01 22:07:00) [2]
БООЛЬШОЕ СПАСИБО ВАМ!!!!!!!!!!!!!!!!

oleg1 (2002-03-01 21:45:00) [3]
Посмотри может подойдет , заточиш под себя и все ОК
Для начало пропингуй сервак на который мылить будеш
например (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.

Nikolay (2002-03-01 20:35:00) [4]
FAQ посмотри.

Hewlping (2002-03-01 19:24:00) [5]
А?

Hewlping (2002-03-01 18:06:00) [6]
Ну всетаки пример есть у кого-нибудь?

Леха (2002-03-01 18:00:00) [7]
может быть все таки simple MAPI или MAPI

Наверх

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