exc.2000 de yeni açılan kullanıcılara oto mail gönderilmesi

[alper_kaynak]

exchange 2000 kullanmaktayız ve yeni açılan kullanıcılara otomatik mail gitmesini gerekiyor. (hotmaildeki hoşgeldiniz maili gibi) Bunu nasıl yapabilirim fikirlerinizi bekliyorum. İyi Çalışmalar...

[emreaydin]

Merhaba,

Asagidaki script bir kac ufak degisiklikten sonra isinize yarayacaktir,

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&quot
Set oCommand1 = CreateObject("ADODB.Command&quot
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

oCommand1.CommandText = "select mail from 'LDAP://DC=Fabrikam, DC=com' WHERE objectCategory='Person' AND objectClass='user'AND msExchHideFromAddressLists<>'True' AND whenCreated>='" & strDate & "'"

oCommand1.Properties("Page Size&quot = 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&quot
objEmail.From = "Admin@fabrikam.com"
objEmail.To = rs.Fields("mail&quot
'Optional BCC field
'objEmail.BCC = "Admin@fabrikam.com"
objEmail.Subject = "A welcome message from Exchange"
objEmail.HTMLbody = "Welcome to Fabrikam. Please click on the attached file for a message."

'Optional Add an attachment
objEmail.AddAttachment "C:\new_hire_audio_message.wav"


objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/con...tion/sendusing &quot = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/con...ion/smtpserver &quot = _
"ExchangeServer" 'Replace ExchangeServer with server IP or name
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/con...smtpserverport &quot = 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

Emre AYDIN