devops,sysadmin

''''''''''''''''''''''''''''''''''''''''''''''''''''
'  Скрипт: SendMail.vbs        
'  Описание: отправка сообщения по электронной почте
'  Язык: VBScript      
''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Dim objEmail  'CDO объект для отправки сообщения
Dim MessText  'Текст сообщения
Dim AttFile   'Файл вложения.

'Формируем текст сообщения


MessText = "Уважаемые сотрудники!" & vbCRLF & _  
" В целях проведения плановых антивирусных проверок, просьба не выключать свои персональные компьютеры по окончании рабочего дня по понедельникам (или в 1-ый рабочий день после выходных).  " & vbCRLF & _
" Оставляя включенным компьютер завершать сеанс. Для этого используется комбинация клавиш Crl + Alt + Del и выбор поля “Завершение сеанса или Выйти из системы”." & vbCRLF
MessText = MessText + "Для дополнительной информации просьба обращаться к вн. номер 0000 Управление информационных технологий" & VbCrLf



'AttFile = "C:\Temp\1.txt"        'Указываем путь к файлу, который необходимо вложить в сообщение
Set objEmail = WScript.CreateObject("CDO.Message")  'Создаем объект CDO и получаем на него ссылку в переменную objEmail

''''''''''''''''''''''''''''''''''''''''''''''''''''
' Указание необходимых параметров объекта CDO  
''''''''''''''''''''''''''''''''''''''''''''''''''''
objEmail.From = "script@firma.ru"   'параметры отправителя (имя и адрес электронной почты)   
objEmail.To = "all users@firma.ru"       'адрес электронной почты получателя



objEmail.Subject = "Просьба не выключать компьютеры в понедельник!"       'тема сообщения   
'objEmail.AddAttachment(AttFile)        'файла вложения
objEmail.Textbody = MessText        'текст сообщения
objEmail.Bodypart.Charset = "windows-1251"

'Отправить сообщение используя сетевую SMTP-службу (1 - используется для отправки через локальную SMTP-службу)
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USERNAME"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") =  "PASSWORD"
        
                
'Указание имени SMTP-сервера  
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "outlook.firma.ru"
'Указание SMPT-порта на сервере
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Обновить конфигурацию CDO-объекта
objEmail.Configuration.Fields.Update
'Послать сообщение с помощью метода Send
objEmail.Send

Сегодня захотел перенести ящик в другую базу и получил ошибку:
Назначен неверный сервер службы обновления получателей
Служба сервера списка адресов Exchange не отвечает. Это может быть вызвано ошибкой в списке адресов или настройке политики адресов электронной почты.
http://support.microsoft.com/kb/935636/

Причина 1

Объект CN=Public Folders отсутствует в разделе CN=All Address Lists службы каталогов Active Directory.

До этого, для красоты, переименовал
All Contacts
All Groups
Public Folders
в русские аналоги.

решение - вновь оставить эти списки на английском языке и перезагрузить сервер.