送分！今天开心！

Question

我想问一下，在DELPHI中取得OUTLOOK中的帐号和它的POP3,SMTP的地址，并且取得后可以任意修改，请问如何做？

Answer 1

我只知道怎么用OUTLOOK发送邮件：）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 := 'http://kingron.myetang.com'; 
  MailItem.Attachments.Add('C:\Windows\system.dat'); 
  MailItem.Send; 
   
  Oulook := Unassigned; 
end;