...detect the default smtp mailserver?

Author: jpc

Homepage: http://vision2000.pavell.com

1 Comment to this tip [Write new comment]

[ Print tip ]

Tip Rating (8):

Skill:

Useful:

Overall:

{

Here is some code I successfully used te determine

the DEFAULT mailaccount, which is used in

Outlook Express, to send outgoing mail via SMTP.

}

procedure TForm1.ReadRegistryDefaults;

var

Registry: TRegistry;

AccountStr: string;

begin

Registry := TRegistry.Create;

try

Registry.RootKey := hkey_CURRENT_USER;

if Registry.OpenKey('software\microsoft\internet account manager', False) then {}

begin

AccountStr := Registry.ReadString('default mail account');

Registry.CloseKey;

if (AccountStr <> '') then

if Registry.OpenKey('software\microsoft\internet account manager\accounts\' +

AccountStr, False) then {}

begin

Edit_Server.Text := Registry.ReadString('SMTP Server');

Edit_Account.Text := Registry.ReadString('SMTP Email Address');

Registry.CloseKey;

end;

end;

finally

Registry.Free;

end;

end;