Мастерам Delphi и Cи..

← →
madcap © (2002-08-17 12:53) [0]

Привет.
Недавно задавал вопрос "Как отправить Е-Mail?", но та и не получил ответа. Вот нашел пример на Cи, но сам перевести не могу:(
Помагитк пожайлуста...
void SendMail(void) { SOCKET nSMTPServerSocket; struct sockaddr_in smtp_address; int nConnect; int iLength; int iMsg = 0; int iEnd = 0; BYTE sBuf[4096]; char *MailMessage[] = { "HELO axel.ru\r\n", "MAIL FROM:<vasya_pupkin@cool_mail.ru>\r\n", // адрес отправителя "RCPT TO:<purpe@usa.net>\r\n", // адресок получателя "DATA\r\n", "Самое крутое сообщение!!!\r\n\r\n.\r\n", // тело сообщения "QUIT\r\n", NULL }; nSMTPServerSocket = socket(PF_INET, SOCK_STREAM, 0); if(nSMTPServerSocket != INVALID_SOCKET) { smtp_address.sin_family = AF_INET; // далее вносим в структуру IP-адрес сервера, через который пойдёт письмо smtp_address.sin_addr.s_addr = inet_addr("212.96.192.1"); smtp_address.sin_port = htons(25); nConnect = connect(nSMTPServerSocket, (PSOCKADDR)&smtp_address, sizeof(smtp_address)); if(nConnect) { } else { do { iLength = recv(nSMTPServerSocket, (LPSTR)sBuf+iEnd, sizeof(sBuf)-iEnd, 0); iEnd += iLength; sBuf[iEnd] = "\0! "; send(nSMTPServerSocket, (LPSTR)MailMessage[iMsg], strlen(MailMessage[iMsg]), 0); iMsg++; } while(MailMessage[iMsg]); } closesocket(nSMTPServerSocket); } }

← →
MARcoDEN © (2002-08-17 15:56) [1]

unit Email;
interface
uses Windows, SusUtils, Classes;

function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean;

function IsOnline: Boolean;

implementation
uses Mapi;

function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean;
var
MapiMessage: TMapiMessage;
MapiFileDesc: TMapiFileDesc;
MapiRecipDesc: TMapiRecipDesc;
i: integer;
s: string;
begin
with MapiRecipDesc do begin
ulRecerved:= 0;
ulRecipClass:= MAPI_TO;
lpszName:= PChar(RecipName);
lpszAddress:= PChar(RecipAddress);
ulEIDSize:= 0;
lpEntryID:= nil;
end;

with MapiFileDesc do begin
ulReserved:= 0;
flFlags:= 0;
nPosition:= 0;
lpszPathName:= PChar(Attachment);
lpszFileName:= nil;
lpFileType:= nil;
end;

with MapiMessage do begin
ulReserved := 0;
lpszSubject := nil;
lpszNoteText := PChar(Subject);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 1;
lpRecips := @MapiRecipDesc;
if length(Attachment) > 0 then begin
nFileCount:= 1;
lpFiles := @MapiFileDesc;
end else begin
nFileCount:= 0;
lpFiles:= nil;
end;
end;

Result:= MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG
or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) = SUCCESS_SUCCESS;
end;

function IsOnline: Boolean;
var
RASConn: TRASConn;
dwSize,dwCount: DWORD;
begin
RASConns.dwSize:= SizeOf(TRASConn);
dwSize:= SizeOf(RASConns);
Res:=RASEnumConnectionsA(@RASConns, @dwSize, @dwCount);
Result:= (Res = 0) and (dwCount > 0);
end;

end.

← →
Михаил Пайсон (2002-08-17 22:27) [2]

Та там же стандартный компонентик есть TMNSMTP все ясно, как день!

← →
Михаил Пайсон (2002-08-17 22:28) [3]

Так там же стандартный компонентик есть TMNSMTP, с ним разобраться мгновенно можно!

Нужно отправить письмо используя только WinApi

Мастерам Delphi и Cи.. Найти похожие ветки