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

  • Вопрос

  • Есть АД с Ексч 2003 на основе SBS 2003
    Как сделать чтобы при заведении нового юзера ему автоматически на ящик падало письмо определенного содержания, по типу “Уважаемий %username%, приветствуем Тебя ….. ” и тд и тп.??
    • Перемещено Tina_Tian 19 марта 2012 г. 1:47 forum merge (От:Exchange Server 2003/2000/5.5)
    13 июня 2008 г. 7:45

Ответы

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

    вот код скрипта
    [code]'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[/code]
    18 июня 2008 г. 6:56

Все ответы

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

     

    Писать свою настройку для создания пользователя с почтовыми атрибутами

    16 июня 2008 г. 9:20
  • Не подскажете в какую сторону копать/читать по этому поводу??
    17 июня 2008 г. 8:02
  • RFC по LDAP, Visual Basic Script, Windows Script Host. Или можете сразу на PowerShell

    17 июня 2008 г. 8:54
    Модератор
  •  

    Возможно этот способ вам поможет.

     

    http://www.msexchange.ru/articles/detail.php?ID=42992

     

    Особенно если наладить создание юзверей скриптом, а не через GUI!

    17 июня 2008 г. 9:00
    Модератор
  • Решил свою проблему через скрипты.
    Спасибо пользователю Vlad77 с сисадминс.ру
    Скрипт работает вот только 1 проблема - не могу подружить его с кирилицей Sad
    Кто может помочь ??

    вот код скрипта
    [code]'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[/code]
    18 июня 2008 г. 6:56
  • Это вам в скриптовый раздел форума!

     

    18 июня 2008 г. 7:45
    Модератор