用 Delphi 寫 Notes Mail 的請進(100分)

To every DFW:
因我的電腦系統出 BUG 一時無法恢復正常工作, 我想把有關用 Delphi 發 Notes EMail 的
元件的例子拿出來讓各位大俠看一看, 想要的請留下你們的 EMail.

to uedit:
给我一份！

chyw123@163.com

To every:
我的問題已經解決, 分數已經發出, 另外還有一個小的想法, 怎樣屏蔽 Notes 的密碼輸入.
以下是我寫的 function , 供大家參考
function TfrmMain.Send_EMail(sAddr, sCc, sSubj, sBody: string;
var sDatabase: TNotesDatabase;
sFile : Array of string): string;
var
Doc : TNotesDocument;
I, J : Integer;
begin
//*******************************************
result := '';

if sDatabase = nil then
begin
sDatabase := TNotesDatabase.Create;
sDatabase.OpenMail;
end;

try

Doc := sDatabase.CreateDocument;
with Doc do
begin
SendTo := sAddr;
Subject := sSubj;
CopyTo := sCc;
BodyAsString := sBody;

J := Length(sFile);

if J > 0 then
begin
for i := 0 to J - 1 do
begin
Attach(sFile); //附加檔案
end;
end;

CheckAddress;
Sign;
Send(false, '');
Free;
end;
// Doc.Free;
// Doc := nil;

except
on e:exception do
begin
sDatabase.Free;
result := e.Message; //傳回錯誤信息
end;
end;
end;