ProgsX
asked on
I want Default Mail Account of all of all the programs mail.
I use this fonction
function GetRegistryValue(KeyName: string;Value:String): string;
var
Registry: TRegistry;
begin
Registry := TRegistry.Create(KEY_READ) ;
try
Registry.RootKey := HKEY_CURRENT_USER;
Registry.OpenKey(KeyName, False);
Result := Registry.ReadString(Value) ;
finally
Registry.Free;
end;
end;
procedure TForm1.Button1Click(Sender : TObject);
var s:String;
begin
s:=GetRegistryValue('\Soft ware\Micro soft\Inter net Account Manager','Default Mail Account');
Edit1.Text := GetRegistryValue('\Softwar e\Microsof t\Internet Account Manager\Accounts\'+s,'SMTP Email Address');
end;
I want Default Mail Account of all of all the programs mail.
example: Outlook Express, Outlook, Netscape, AOL, fire fox, opera….and other
Thank you for assistance.
function GetRegistryValue(KeyName: string;Value:String): string;
var
Registry: TRegistry;
begin
Registry := TRegistry.Create(KEY_READ)
try
Registry.RootKey := HKEY_CURRENT_USER;
Registry.OpenKey(KeyName, False);
Result := Registry.ReadString(Value)
finally
Registry.Free;
end;
end;
procedure TForm1.Button1Click(Sender
var s:String;
begin
s:=GetRegistryValue('\Soft
Edit1.Text := GetRegistryValue('\Softwar
end;
I want Default Mail Account of all of all the programs mail.
example: Outlook Express, Outlook, Netscape, AOL, fire fox, opera….and other
Thank you for assistance.
Apart from the fact that this sounds like preparation for an email harvester, most of these programs store the requested bits of information in plain text configuration files, so the first step for doing this would be simply installing those programs and looking at their config files.
The correct way would be to ask the user to enter their mail settings.
Most email clients encrypt the account details so that 3rd party programs can not do this.
Most email clients encrypt the account details so that 3rd party programs can not do this.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I have the parameters for outlook express and msoutlook, and the others one must do it manually.
Progx
Progx