// Получаем в качестве параметра имя сервера

Sub sendmail(server)

// Инициализируем переменные

Dim iMsg

Dim iConf

Dim Flds

Dim str

Const cdoSendUsingPickup = 1

Set iMsg = CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

// Подготавливаем поля для отправки по SMTP

Set Flds = iConf.Fields

With Flds

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup

    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:inetpubmailrootpickup"

    .Update

End With

// Непосредственно текст сообщения

str= "Уважаемый администратор. Сервер  " & server & " был отключен "& Now &" в связи с потерей электропитания. "

// заполоняем все поля сообщения

With iMsg

    Set .Configuration = iConf

    .To = "admin@server.com"  // Поле «Кому»

    .From = "ups@example.com" // Поле «От кого»

    // Тема письма

    .Subject = "Отключение питания на сервере " & server