請問 OLEVariant 元件有哪些 屬性 和 方法 可用 ? 我輸入 MailItem. 後 , 不會跳出東西讓我選

<textarea class="delphi" rows="10" cols="60" name="code">
uses
  ComObj;    procedure TForm1.Button1Click(Sender: TObject);
const
  olMailItem = 0;
var
  X,K: integer;
  Outlooker, MailItem: OLEVariant;
begin
  try
    Outlooker := GetActiveOleObject('Outlook.Application');
  except
    Outlooker := CreateOleObject('Outlook.Application');
  end;      K:= 0;
  repeat
  K:= K 1;
  X:= random(100000);      MailItem := Outlooker.CreateItem(olMailItem);
  MailItem.Recipients.Add('shauronglu@mail2000.com.tw');
  MailItem.Subject := 'No. ' inttostr(X) ' of 1,000,000' ;
  MailItem.Body := 'So I dont send u enough e-mails huh well heres one :) David';
  // MailItem.Attachments.Add('C:\Windows\Win.ini');
  MailItem.Send;
  until K= 10;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
end;</textarea> 

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

本來就不會跳出東西讓你選的.... 想要可以選的話，就要用去找 OutLook COM 的 TypeLibrary {$Delphi7}\Ocx\Servers 這裡有 OutLook8、OutlookXP、Outlook2000 理論上，是直接 uses outlook8; (or uses Outlookxp;...) 然後再用裡面的型別來宣告物件 弄得出來的話，就有東西讓你選了 不過，我實驗的結果，是蠻麻煩的...