Определить SMTP сервер по умолчанию

Советы » E-mail » Определить SMTP сервер по умолчанию

{ 
  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('softwaremicrosoftinternet account manager', False

) then

{} begin

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

(AccountStr <> '') then

if

Registry.OpenKey('softwaremicrosoftinternet account manageraccounts' + 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com