如何在郵件中實現自動增加附加文件

Question

为什么不搜索呢？
说过了：
const olMailItem = 0; 
var Outlook: OLEVariant; 
     MailItem: Variant; 
begin 
  try 
    Outlook := GetActiveOleObject('Outlook.Application'); 
  except 
    Outlook := CreateOleObject('Outlook.Application'); 
  end;   MailItem := Outlook.CreateItem(olMailItem); 
  MailItem.Recipients.Add('[email protected]'); 
  MailItem.Subject := 'your subject'; 
  MailItem.Body := 'Welcome to my homepage: 
http://www.geocities.com/mshkolnik'; 
  MailItem.Attachments.Add('C:\Windows\Win.ini'); 
  MailItem.Send; 
   
  Oulook := Unassigned; 
end;

Answer 1

        _.~._
     ,~'.~@~.`~.
    / : _..._ :    { :,"''\\`".: }
    `C) 9 _ 9 (--.._,-"""-.__
     (  )(@)(  )             `.
      `-.___.-'                      ,' \ /    ,`             ;`-._,-.
    ,'  ,'/   ,'           `---t.,-.   \_
  ,--.,','  ,'----.__\         _(   \----'
'///,`,--.,'          `-.__.--'  `.  )
    '///,'                         `-`