Скачать: CL | DM;

Как послать файл на e-mail посредством delphi?   Найти похожие ветки 

← →
Lomaster   (2004-09-22 16:54) [0]

Как послать файл на e-mail посредством delphi?

---

← →
anonymous   (2004-09-25 10:59) [1]

Привет! В Delphi 6 существует закладка FastNet. В ней есть компонени ТNMSMTP и TNMPOP3, соответственно для отправки и приёма писем. К ним есть хороший help, там можно всё подробно узнать.
А если хочешь без компонентов, то есть модуль отправки писем, но я лично его непроверял.

unit Email;

interface

uses Windows, SysUtils, 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
     ulReserved:= 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: TRASConns;
   dwSize,dwCount: DWORD;
begin
 {//RASConns.dwSize:=SizeOf(TRASConn);
 //dwSize:= SizeOf(RASConns);
 Res:=RASEnumConnectionsA(@RASConns, @dwSize, @dwCount);
 Result:= (Res = 0) and (dwCount > 0); }
end;

end.

---

← →
Никита ©   (2004-09-27 08:31) [2]

Поищи в статьях "Работа с протоколом SMTP" там это точно было
Если не нашел тогда зайди на www.delphiworld.narod.ru
там море таких статей

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c