[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1

Модератор форума: Волк-1024

delfcode » Delphi » Windows API в Delphi » WinSock: Отправка почты (Отправка почты)

WinSock: Отправка почты

gravitas

Дата: Воскресенье, 22.01.2012, 15:48 | Сообщение # 1

Авторитетный

Зарегистрирован: 01.05.2010

Группа: Пользователи

Сообщений: 385

Статус: Offline

Отправка почты через smtp.mail.ru

Code

program SMTP;
{$APPTYPE CONSOLE}
uses
Windows, WinSock;

function EncodeBase64(const inStr: string): string;
   function Encode_Byte(b: Byte): char;
   const
     Base64Code: string[64] =
       'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
   begin
     Result := Base64Code[(b and $3F)+1];
   end;
var
   i: Integer;
begin
   i := 1;
   Result := '';
   while i <= Length(InStr) do
   begin
     Result := Result + Encode_Byte(Byte(inStr[i]) shr 2);
     Result := Result + Encode_Byte((Byte(inStr[i]) shl 4) or (Byte(inStr[i+1]) shr 4));
     if i+1 <= Length(inStr) then
       Result := Result + Encode_Byte((Byte(inStr[i+1]) shl 2) or (Byte(inStr[i+2]) shr 6))
     else
       Result := Result + '=';
     if i+2 <= Length(inStr) then
       Result := Result + Encode_Byte(Byte(inStr[i+2]))
     else
       Result := Result + '=';
     Inc(i, 3);
   end;
end;

var
MyLogin, MyPass, DestMail, MailText, MailSub: String;
WSA: TWSAData;
S: TSocket;
Addr: TSockAddr;
SendBuf: String;
RecvBuf: array[0..255] of char;
begin
MyLogin:='uwner';
MyPass:='pass';
DestMail:='[email protected]';
MailSub:='By gravitas';
MailText:='Test mail';
WSAStartup($101, WSA);
Addr.sin_family:=AF_INET;
Addr.sin_port:=htons(25);
Addr.sin_addr.S_addr:=inet_addr('94.100.177.1');   // smtp.mail.ru
S:=Socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
Connect(S, Addr, SizeOf(Addr));
Recv(S, RecvBuf, 255, 0);
SendBuf:='EHLO server'#13#10;
Send(S, SendBuf[1], Length(SendBuf), 0);
Recv(S, RecvBuf, 255, 0);

SendBuf:='AUTH LOGIN'#13#10;
Send(S, SendBuf[1], Length(SendBuf), 0);
Recv(S, RecvBuf, 255, 0);

SendBuf:=EncodeBase64(MyLogin) + #13#10;
Send(S, SendBuf[1], Length(SendBuf), 0);
Recv(S, RecvBuf, 255, 0);

SendBuf:=EncodeBase64(MyPass) + #13#10;
Send(S, SendBuf[1], Length(SendBuf), 0);
Recv(S, RecvBuf, 255, 0);

SendBuf:='MAIL FROM:<' + MyLogin + '@mail.ru>'#13#10;
Send(S, SendBuf[1], Length(SendBuf), 0);
Recv(S, RecvBuf, 255, 0);

SendBuf:='RCPT TO:<' + DestMail + '>'#13#10;
Send(S, SendBuf[1], Length(SendBuf), 0);
Recv(S, RecvBuf, 255, 0);

SendBuf:='DATA'#13#10;
Send(S, SendBuf[1], Length(SendBuf), 0);
Recv(S, RecvBuf, 255, 0);

SendBuf:='From: ' + MyLogin + '@mail.ru'#13#10 +
'To: ' + DestMail + #13#10 +
'Subject: ' + MailSub + #13#10 +
MailText + #13#10 + '.' + #13#10;
Send(S, SendBuf[1], Length(SendBuf), 0);
Recv(S, RecvBuf, 255, 0);
CloseSocket(S);
end.

TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)

dolphin

Дата: Понедельник, 23.01.2012, 17:59 | Сообщение # 2

Администратор

Сообщений: 897

Статус: Offline

У меня не вышло отправить, скорее всего из-за отсутствия маршрутизации на роутере.

Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик

gravitas

Дата: Понедельник, 23.01.2012, 18:52 | Сообщение # 3

Авторитетный

Зарегистрирован: 01.05.2010

Группа: Пользователи

Сообщений: 385

Статус: Offline

Я проверял код...

TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)

dolphin

Дата: Понедельник, 23.01.2012, 19:59 | Сообщение # 4

Администратор

Сообщений: 897

Статус: Offline

Нет, всё-таки это не маршрутизация. Меня антиспам не пропускает почему то. gravitas, ты новый ящик регал для тестирования?

gravitas

Дата: Понедельник, 23.01.2012, 20:13 | Сообщение # 5

Авторитетный

Зарегистрирован: 01.05.2010

Группа: Пользователи

Сообщений: 385

Статус: Offline

dolphin, нет, у меня [email protected] - первый ящик, который я зарегал в интернете. Мб текст какой-нить спамерский (с ссылками) у вас? Снифайте ответ и смотрите коды ошибок.

TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)

vvova15

Дата: Четверг, 26.01.2012, 16:50 | Сообщение # 6

Участник

Зарегистрирован: 24.04.2010

Группа: Пользователи

Сообщений: 83

Статус: Offline

вывод лога сделайте. я когда писал такой же код на си++, у меня поначалу не работало на xp - не определялось имя компа для ehlo, потом поставил константное(оно все равно нужно для обратной совместимости) заработало, а на зверь винде такое не работало вообще т.к. не приходили ответы от сервера...
P.S. недавно делал отправку файл по почте,но так и не доделал. скорей всего проблемы с разделителями метода multipart/formdata. если кому надо, у кого прямые руки - могу выложить. допилите как надо...

ICQ 185-398