Установка CDO 1.2.1 для отправки писем через SMTP в Delphi на Windows XP SP2

Delphi , Программа и Интерфейс , Инсталяция

Заголовок:

Вопрос: При создании приложения с использованием CreateOLEObject("CDO.Message") все работает нормально на моем компьютере, но на другом ПК с Windows XP SP2 я получаю сообщение об ошибке "Érvénytelen osztályú karakterlánc." с кодами ошибки -2147221005 (800401F3). Как установить CDO на этом ПК, чтобы отправлять письма через SMTP, не устанавливая Outlook?

Ответ: Для решения этой проблемы необходимо установить пакет CDO 1.2.1 на целевом ПК с Windows XP SP2. Вот шаги, которые необходимо выполнить:

1. Загрузите пакет CDO 1.2.1 с веб-сайта Microsoft по ссылке: https://www.microsoft.com/en-us/download/details.aspx?id=17657
2. Установите пакет на целевом ПК, следуя инструкциям мастера установки.
3. После установки откройте ваше Delphi-приложение и убедитесь, что компонент CDO.Message работает правильно.

Пример кода на Object Pascal (Delphi) для отправки письма через SMTP с использованием CDO:

procedure SendEmail(const Subject, Body, SMTPServer, SMTPPort, Sender, Recipient: string);
var
  Msg: OleVariant;
  Conf: OleVariant;
begin
  Msg := CreateOleObject('CDO.Message');
  Conf := CreateOLEObject('CDO.Configuration');

  Msg['Subject'] := Subject;
  Msg['Body'] := Body;

  Conf['http://schemas.microsoft.com/cdo/configuration/sendusing'] := 2; // SMTP
  Conf['http://schemas.microsoft.com/cdo/configuration/smtpserver'] := SMTPServer;
  Conf['http://schemas.microsoft.com/cdo/configuration/smtpserverport'] := SMTPPort;
  Conf['http://schemas.microsoft.com/cdo/configuration/smtpauthenticate'] := 1; // Basic authentication
  Conf['http://schemas.microsoft.com/cdo/configuration/sendusername'] := Sender;
  Conf['http://schemas.microsoft.com/cdo/configuration/sendpassword'] := 'your_password';
  Conf['http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout'] := 5;

  Msg['Configuration'] := Conf;
  Msg['From'] := Sender;
  Msg['To'] := Recipient;

  Msg.Send;
  Msg := Unassigned;
  Conf := Unassigned;
end;

Этот пример демонстрирует отправку письма через SMTP с указанием сервера, порта, имени пользователя и пароля для аутентификации. Не забудьте заменить 'your_password' на фактический пароль.

После установки CDO 1.2.1 на целевом ПК вы сможете отправлять письма через SMTP в своем Delphi-приложении, даже если Outlook не установлен. Убедитесь, что все компоненты CDO правильно зарегистрированы в системе, и проверьте настройки сервера и аутентификации в коде.

Создано по материалам из источника по ссылке.

Пользователь спрашивает, как установить пакет CDO 1.2.1 для отправки писем через SMTP в Delphi на компьютере с Windows XP SP2, не устанавливая Outlook, и получает ошибку 'Érvénytelen osztályú karakterlánc.' с кодом -2147221005 (800401F3) при исп

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

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

:: Главная :: Инсталяция ::