Lave signaturer med .vbs fra AD
Hej Experter.Jeg får snart grå hår af det her. Jeg vil gerne lave et vbs script som laver mine brugeres signaturer, så de ser helt rigtige ud efter firmaets standard. Jeg har nogle forskellige små problemer, som f.eks hvordan man laver noget skift fed, og hvordan man align´er billeder derhen hvor man vil have dem.
Ind til videre ser min kode sådan her ud:
_________________
'On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strName = objUser.FullName
strTitle = objUser.Title
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strEmail = objUser.mail
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "10"
Set objShape = objDoc.Shapes
objSelection.TypeText "Med venlig hilsen/Best regards"
objSelection.TypeParagraph()
objSelection.TypeText strName & objShape.AddPicture("X:\NETVÆRS-STI TIL BILLEDE.bmp") " & strTitle
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objShape.AddPicture("X:\NETVÆRS-STI TIL BILLEDE.bmp")
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.TypeText strEmail & " FIRKANT "
objSelection.TypeParagraph()
objSelection.TypeText strCompany
objSelection.TypeParagraph()
objSelection.TypeText strPhone
Set objSelection = objDoc.Range()
objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objDoc.Saved = True
objWord.Quit
____________________
Et af mine problemer er at der er mange små billeder i vores signatur. Der er sådan nogle små firkanter som vi bruger som mellemrums-grafik (sort of), og de er der hver gang der står noget nyt, det er lidt svært at forklare.
Så er der jo ting som vores navne, dem vil jeg gerne have at de står med fed. Hvordan gøres det?
Opsumering: Hvordan aligner jeg billeder, og sætter dem ind i en tekst, og hvordan laver jeg fed tekst?
Bonus spørgsmål: Jeg vil jo gerne have at man kan klikke på vores mail og webadresser, men jeg vil stadig gerne have at de står som sorte og u-understreget. Det gør lnks jo normalt ikke, kan dette lade sig gøre?
