Найти smtp mailserver по умолчанию

Delphi , Интернет и Сети , E-mail

Автор: http://www.swissdelphicenter.ch

{
  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;

Перевод контента на русский язык:

Код, который я предоставил, написан на Delphi и предназначен для чтения по умолчанию настроек почтового аккаунта из реестра Windows, конкретно для Outlook Express. Цель - определить используемый по умолчанию SMTP-сервер почты.

Распределение кода:

1. Процедура ReadRegistryDefaults: эта процедура читает настройки почтового аккаунта по умолчанию из реестра Windows.
2. Объект TRegistry: создается объект TRegistry для взаимодействия с реестром.
3. Свойство RootKey: устанавливается в hkey_CURRENT_USER, что означает, что код будет читать ключи реестра для текущего пользователя.
4. Метод OpenKey: код открывает подключение к ключу "software\microsoft\internet account manager" и проверяет, существует ли он.
5. Метод ReadString: если ключ найден, код читает значение строки "default mail account" из реестра.
6. Метод CloseKey: код закрывает подключение после чтения его значения.
7. Если почтовый аккаунт по умолчанию не пуст, код открывает еще одно подключение к ключу "accounts\" и читает значения SMTP-сервера и адреса электронной почты с помощью метода ReadString.

Альтернативное решение - использовать библиотеку или API, предоставляющую доступ к реестру Windows, например, API Windows Registry. Этот подход может быть более надежным и платформо-независимым, чем полагаться на конкретные библиотеки Delphi и ключи реестра.

Пример использования Windows Registry API:

uses
  Windows;

procedure TForm1.ReadRegistryDefaults;
var
  RegKey: HKEY;
  AccountStr, SMTPServer, EmailAddress: string;
begin
   // Открываем подключение к реестру для текущего пользователя
  RegKey := HKEY_CURRENT_USER;

   // Читаем почтовый аккаунт по умолчанию
  AccountStr := 'default mail account';
  RegQueryStringValue(RegKey, 'software\microsoft\internet account manager', PChar(AccountStr));

  if (AccountStr <> '') then
  begin
     // Открываем подключение к ключу для выбранного аккаунта
    RegKey := HKEY_CURRENT_USER;
    RegOpenKeyEx(RegKey, 'software\microsoft\internet account manager\accounts\' + AccountStr, 0, KEY_READ);

     // Читаем значения SMTP-сервера и адреса электронной почты
    SMTPServer := 'SMTP Server';
    EmailAddress := 'SMTP Email Address';
    RegQueryStringValue(RegKey, PChar(SMTPServer), PChar(Edit_Server.Text));
    RegQueryStringValue(RegKey, PChar(EmailAddress), PChar(Edit_Account.Text));

     // Закрываем подключение
    RegCloseKey(RegKey);
  end;
end;

Обратите внимание, что этот код не тестировался и может требовать модификаций для соответствия вашим конкретным потребностям.

В статье описывается процедура, позволяющая найти SMTP-маилсервер по умолчанию в Outlook Express, используя код на Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: E-mail ::