如何用API发邮件~~~~~!(100分)

我看过别人写的不过看不明白,谁能给我一下带有说明的!(中文)

function SendEmail(Handle: THandle; Mail: TStrings): Cardinal;
//调用MAPI发送Email
type
TAttachAccessArray = array [0..0] of TMapiFileDesc;
PAttachAccessArray = ^TAttachAccessArray;
var
MapiMessage : TMapiMessage;
Receip : TMapiRecipDesc;
Attachments : PAttachAccessArray;
AttachCount : Integer;
iCount : Integer;
FileName : string;
begin
FillChar(MapiMessage, SizeOf(MapiMessage), #0);
Attachments := nil;
FillChar(Receip,SizeOf(Receip), #0);
if Mail.Values['to'] <> '' then begin
Receip.ulReserved := 0;
Receip.ulRecipClass := MAPI_TO;
Receip.lpszName := StrNew(PChar(Mail.Values['to']));
Receip.lpszAddress := StrNew(PChar('SMTP:' + Mail.Values['to']));
Receip.ulEIDSize := 0;
MapiMessage.nRecipCount := 1;
MapiMessage.lpRecips := @Receip;
end;

AttachCount := 0;
for iCount := 0 to MaxInt do begin
if Mail.Values['attachment' + IntToStr(iCount)] = '' then Break;
AttachCount := AttachCount + 1;
end;

if AttachCount > 0 then begin
GetMem(Attachments,SizeOf(TMapiFileDesc) * AttachCount);
for iCount := 0 to (AttachCount - 1) do begin
FileName := Mail.Values['attachment' + IntToStr(iCount)];
Attachments[iCount].ulReserved := 0;
Attachments[iCount].flFlags := 0;
Attachments[iCount].nPosition := ULONG($FFFFFFFF);
Attachments[iCount].lpszPathName := StrNew(PChar(FileName));
Attachments[iCount].lpszFileName := StrNew(PChar(ExtractFileName(FileName)));
Attachments[iCount].lpFileType := nil;
end;
MapiMessage.nFileCount := AttachCount;
MapiMessage.lpFiles := @Attachments^;
end;

if Mail.Values['subject'] <> '' then
MapiMessage.lpszSubject := StrNew(PChar(Mail.Values['subject']));
if Mail.Values['body'] <> '' then
MapiMessage.lpszNoteText := StrNew(PChar(Mail.Values['body']));

Result := MapiSendMail(0, Handle, MapiMessage, MAPI_DIALOG*Ord(Handle <> 0) OR MAPI_LOGON_UI OR MAPI_NEW_SESSION, 0);

for iCount := 0 to (AttachCount - 1) do begin
strDispose(Attachments[iCount].lpszPathName);
strDispose(Attachments[iCount].lpszFileName);
end;

if assigned(MapiMessage.lpszSubject) then
strDispose(MapiMessage.lpszSubject);
if assigned(MapiMessage.lpszNoteText) then
strDispose(MapiMessage.lpszNoteText);
if assigned(Receip.lpszAddress) then
strDispose(Receip.lpszAddress);
if assigned(Receip.lpszName) then
strDispose(Receip.lpszName);
end;

procedure TFrmPrintReport.FlatButton3Click(Sender: TObject);
var
mail : TStringList;
begin
mail := TStringList.Create;
try
//以下邮箱
mail.Values['to'] := EmailAdderss;
//以下主题
mail.Values['subject'] := '主题...';
//以下内容
mail.Values['body'] := '内容.....';
//以下附件
mail.Values['attachment0'] :='c:/test.txt' ;

SendEmail(Application.Handle, mail);
finally
mail.Free;
end;


end;

不行,

还没有中文呢!

1

用ShellExecute来发送邮件就可以了
use ShellApi
procedure shndmail;
var s:string;
begin
s:='mailto abc2com.cn?subject=Hello&Body=你好';
ShellExecute(0,'open',pchar(s),nil,nil,WS_SHOWNORMAL;
end;

procedure shndmail;
var s:string;
begin
s:='mailto abc2com.cn?subject=Hello&Body=你好';
ShellExecute(0,'open',pchar(s),nil,nil,SW_SHOWNORMAL;
end;

用控件的我就有，现在的，一个商业软件在用，和发短信的，要找我。对了发短信的要用硬件，同件用控件就行。