Письмо при заведении нового юзера в AD

[Odarchuk]

Есть АД с Ексч 2003 на основе SBS 2003
Как сделать чтобы при заведении нового юзера ему автоматически на ящик падало письмо определенного содержания, по типу “Уважаемий %username%, приветствуем Тебя ….. ” и тд и тп.??

[Denis999]

При инициализации почтового ящика (когда пользователь первый раз в него заходит) такое письмо в нем уже есть. Если говорить о Small Business Server.

[Odarchuk]

Я уже около года юзаю Small Business Server но такого письма еще не встречал
А где можно настроить его содержимое??

[Denis999]

Я ставил лишь SBS 2003 Premium R2 SP2, где-то месяца 3 назад, проработал на СБСе 1месяц после чего сделал миграцию на 2008. Поэтому не могу тебе подсказать точно. После установки СБС, настроил SMTP коннекторы, WEB-access и все. Никаких шаблонов писем и т.д. я не настраивал. Письма приходили сами. Это фича Excnahge Server'а.

[Odarchuk]

Странно. ТОлько что поднял на виртуалке SBS 2003 Premium R2 SP2 Рус но никаких писем при заведении юзера так и не появилось

Странно всетаки

[Denis999]

Действительно странно. Это письмо эксчендж должен ложить автоматически в почтовый ящик при его создании.

[Odarchuk]

Может Вы путаете Microsoft Office Outlook который с ексченжем работает ( в ходив пакет оффиса) с Outlook Express который не работает с ексченжем ( входит в виндовс) ??
Во втором действительно при первом запуске появляеться письмо от "разработчиков" но мне нужно именно 1 сабж!

Добавлено через 1 час 38 минут
Решил свою проблему через скрипты.
Спасибо пользователю Vlad77 с сисадминс.ру
Скрипт работает вот только 1 проблема - не могу подружить его с кирилицей
Кто может помочь ??

вот код скрипта

'Created by Mike Ruman 8/13/05 
'Sends an email to accounts created today. 

Dim StrDate, CurrentUTC 
  
'Create the current date and time stamp for query for day before last 
CurrentUTC = DatePart("yyyy", Date) 
'now add Month in mm if only M add leading 0 
if DatePart("m" , Now) < 10 then 
   CurrentUTC = CurrentUTC & 0 & DatePart("m" , Now) 
  else 
   CurrentUTC = CurrentUTC & DatePart("m" , Now) 
end if 
'now add Day in dd if only d add leading 0 
if DatePart("d" , Now) < 10 then 
'OPTIONAL - FOR MANY DAYS, replace line below with CurrentUTC = CurrentUTC & 0 & DatePart("d" , Now - X)  where X = # of days 

   CurrentUTC = CurrentUTC & 0 & DatePart("d" , Now) 
  else 
'OPTIONAL - FOR MANY DAYS, replace line below with CurrentUTC = CurrentUTC & DatePart("d" , Now - X)  where X = # of days 
   CurrentUTC = CurrentUTC & DatePart("d" , Now) 
end if 
' Tag hour, minute, second on 
strDate = CurrentUTC&"000001.0Z" 
  
'Create AD Connection 
Set oConnection1 = CreateObject("ADODB.Connection") 
Set oCommand1 = CreateObject("ADODB.Command") 
oConnection1.Provider = "ADsDSOObject"  ' This is the ADSI OLE-DB provider name 
oConnection1.Open "Active Directory Provider" 
' Create a command object for this connection. 
Set oCommand1.ActiveConnection = oConnection1 
'Set Query definition 
' тут задаем доменные параметры берем из AD 
oCommand1.CommandText = "select mail from 'LDAP://DC=it, DC=local' WHERE objectCategory='Person' AND objectClass='user'AND msExchHideFromAddressLists<>'True' AND whenCreated>='" & strDate & "'" 

oCommand1.Properties("Page Size") = 30000 
' Execute the query. 
Set rs = oCommand1.Execute 
  

rs.movefirst 
'Create the loop of results 
Do Until rs.EOF = True 

  
'Create Email 
' настройки письма для пользователя 
Set objEmail = CreateObject("CDO.Message") 
objEmail.From = "Admin@mycantora.ua" 
objEmail.To = rs.Fields("mail") 
'Optional BCC field 
'objEmail.BCC = "Admin@mycantora.ua" 
objEmail.Subject = "A welcome message from Exchange" 
objEmail.HTMLbody = "Добро пожаловать в ........." 
  
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/languagecode") = 1049
'objMessage.BodyPart.CharSet = "windows-1251".
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext") = true


'Optional Add an attachment 
'objEmail.AddAttachment "C:\new_hire_audio_message.wav" 
 
objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/sendusing  ") = 2 
objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver  ") = _ 
        "ExchangeServer" 'Replace ExchangeServer with server IP or name 
objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport  ") = 25 
objEmail.Configuration.Fields.Update 
  
'Optional - Read the message before it's sent 
'MsgBox objEmail.GetStream.ReadText 
objEmail.Send 
rs.movenext 
Loop 
  
'Close AD Connection 
oConnection1.close