Calling details from Active Directory and changing what is displayed

Hi all,
First post here, so hello. I had a look around and couldn't find what I was looking for, hopefully someone can assist.
I'm using a vBscript to pull information from AD and insert into an Outlook Signature, which works fine.
 
What I want to do is change some of the information before it's planted. I'm using this command to insert my Direct Dial
 
if (strPhone) Then objSelection.TypeText "DD: " & strPhone & Chr(11) which displays for example
 
01111 111111 and I need it to change it to +44 111 111111
 
I've had a play around with the' if left', etc but can't get it to change anything
 
Could anyone help?
 
Many thanks
 
Mark
 
 
 
 
 

Once you posted your code: perhaps.

Here you go.
 
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
Set WshShell = CreateObject("WScript.Shell")
strUser = objSysInfo.UserNameSet objUser = GetObject("LDAP://" & strUser)
'map Active Directory objUser to str names'strName = objUser.FullNamestrTitle = objUser.TitlestrPhone = objUser.TelephoneNumberstrMobile = objUser.MobilestrEmail = objUser.mail
'Use Word (required) to create the format'Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()Set objSelection = objWord.SelectionobjSelection.Style = "No Spacing"
Set objEmailOptions = objWord.EmailOptionsSet objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
'If you get problems with line spacing, use vbNewline instead of Chr(11)'
'Select what is displayed in the Signature based upon the str to ObjUser mappings above'objSelection.Font.Bold = True objSelection.Font.Name = "Arial"objSelection.Font.Size = 11if (strCred) Then objSelection.TypeText strName & ", " & strCred Else objSelection.TypeText strName & Chr(11)objSelection.Font.Bold = FalseobjSelection.TypeText strTitle & Chr(11)objSelection.TypeText "DD: " & strPhone & Chr(11)
if (strMobile) Then objSelection.TypeText "Mobile: " & strMobile & Chr(11)
objSelection.TypeParagraph()objSelection.TypeParagraph()
'add the entire range of what you want displayed and set the font'Set objSelection = objDoc.Range()objSelection.Font.Name = "Arial"
'Add a siganture entry, name it and assign to new message'objSignatureEntries.Add "Full Signature", objSelectionobjSignatureObject.NewMessageSignature = "Full Signature"
'Save the content and exit'objDoc.Saved = TrueobjWord.Quit
 
Any help would be appreciated

sparkymarcopolo

On Error Resume Next

Remove this line and see what errors you get.

I'm not getting errors, I wanted to change what was planted in the signature.
Sorted now.