AD üzerinden outlook'a imza ekleme

http://www.cozumpark.com.tr/forums/thread/72558.aspx

http://www.cozumpark.com/forums/thread/272760.aspx

Merhaba çözümpark ailesi, 

Yukarı da soracağım soru ile ilgili iki adet konu açılmış ancak tam olarak çözüm bulamadığımız bir konu.AD üzerinden bilgileri çekerek yollanacak maillerin altına otomatik olarak herkes de standart olabilecek imza nasıl ekleyebiliriz? Çözüm önerisi olarak 3.party ürünler önerilmiş bunların en göze batanı sanırım codetwo.Buna benzer free olarak kullanabileceğimiz bir program yokmu acaba?Önerilenlerin hepsi ücretli çünkü.Bunun için script buldum bir tane ama tam olarak işimizi görür mü acaba dediğim mantığa göre? Yada çalışma mantığı tam olarak nedir.Belki bunun için bir yazılım yapılabilir.

Şimdiden cevaplar için teşekkür ederim. 

 

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName

Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.FullName

strTitle = objUser.Title

strDepartment = objUser.Department

strCompany = objUser.Company

strPhone = objUser.telephoneNumber

Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Add()

Set objSelection = objWord.Selection

Set objEmailOptions = objWord.EmailOptions

Set objSignatureObject = objEmailOptions.EmailSignature

Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

objSelection.TypeText strName & ", " & strTitle

objSelection.TypeParagraph()

objSelection.TypeText strDepartment

objSelection.TypeParagraph()

objSelection.TypeText strCompany

objSelection.TypeParagraph()

objSelection.TypeText strPhone

Set objSelection = objDoc.Range()

objSignatureEntries.Add "AD Signature", objSelection

objSignatureObject.NewMessageSignature = "AD Signature"

objSignatureObject.ReplyMessageSignature = "AD Signature"

objDoc.Saved = True

objWord.Quit