请问如何列出并修改Outlook中的帐户信息？(200分)

请问如何列出并修改Outlook中的帐户信息？据说MAPI可以做到这点，但我没找到
相应信息，如果哪位富翁有此方面资料，请不吝赐教！谢谢。

请注意：是Outlook而不是Outlook Express。OE我已解决，其帐户信息都在注册表中。

我也在找呀！
GZ

哈哈﹗我也想知道﹗

以下代码给你参考下.

...get all the outlook contacts?


{$IFDEF SYN_COMPILER_6}
uses
ComObj, Outlook2000;
{$ELSE}

uses
ComObj, Outlook8;
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
var
Outlook: TOutlookApplication;
DefNamespace: NameSpace;
Contacts: MAPIFolder;
Contact: ContactItem;
iCnt: Integer;
begin
// Instancing Outlook's main object
Outlook := TOutlookApplication.Create(Self);
// Getting the Namespace (always MAPI)
DefNameSpace := Outlook.GetNamespace('MAPI');
// Getting the default folder for contactitems
Contacts := DefNameSpace.GetDefaultFolder(olFolderContacts);
// Iterating through all items withing the folder
for iCnt := 1 to Contacts.Items.Count do
begin
// Getting a single Item
Contact := Contacts.Items.Item(iCnt) as ContactItem;
// Display Name & eMail
ShowMessage(Contact.FirstName + ' ' + Contact.Email1Address);
end;
// Free the instance
Outlook.Free;
end;

这段代码应该得到是联系人的信息，而不是帐户信息。

非常感谢楼主,看了你的贴子我也在注册表中找到了OE帐户信息,但密码是密文,能不能告诉小弟是怎么读取?我的信箱是oiwin@263.net

密码我也不知道怎么读取，不过，我的程序中不需要得到密码。