Galera montei um script para configura assinatura dos usuários automaticamente, estou montando a mesma conforme quero porem eu não estou conseguindo dar formato diferente a pare do testo que é uma variável, alguém sabe se é possível formar uma variável para que ela tenha um fonte especifica e cor e tal ? Segue o meu código. Este código busca informações do AD e gera uma assinatura no outlook do usuário ! arquivo.vbs ! Const END_OF_STORY = 6 On Error Resume Next Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser) With objUser strName = .FullName ' strTitle = .Description End With With objNomecomp strnome = objuser.CN .Name = "Tahoma" .Size = 11 .Bold = true .Color = RGB(0,0,128) End With strCompany = objUser.Company strAddress = objUser.streetAddress strpostalCode = objUser.postalCode strDep = objUser.Departamento strl = objUser.l strco = objUser.co strPhone = objUser.TelephoneNumber strFax = objUser.facsimileTelephoneNumber strMail = objuser.mail strWeb = objuser.wWWHomePage strnome = objuser.CN strDep = objuser.department strWeb = "www.santaclarasa.com.br" srtCel = objUser.mobile strTel = "Tel. 55" strnome.Bold = false Set objword = CreateObject("Word.Application") With objword Set objDoc = .Documents.Add() Set objSelection = .Selection Set objEmailOptions = .EmailOptions Set objRange = objDoc.Range() objDoc.Tables.Add objRange,1,2 Set objTable = objDoc.Tables(1) End With Set objSignatureObject = objEmailOptions.EmailSignature Set objSignatureEntries = objSignatureObject.EmailSignatureEntries With objSelection objTable.Rows.Add() objDoc.Hyperlinks.Add objSelection.InlineShapes.AddPicture("\\192.168.0.3\Pub\Tecnologia da Informação\Scripts\assinaturalogo.jpg"), strweb 'objTable.Cell(1, 1).Range.Text = objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura11.jpg") 'objTable.Cell(1, 1).Hyperlinks.Add = objSelection.InlineShapes.AddPicture("\\portoserver01\temp$\LogoAssinatura11.jpg") .ParagraphFormat.Alignment = wdAlignParagraphRight .TypeParagraph objSelection.Font.Color obje 'objTable.Cell(1, 2).Range.Font.Bold = true objTable.Cell(1, 2).Range.Font.Size = "10" objTable.Cell(1, 2).Range.Font.Name = "Tahoma" objTable.Cell(1, 2).Range.Font.Color = RGB(0,0,128) objTable.Columns(1).Width = objWord.InchesToPoints(1) objTable.Cell(1, 2).Range.Text = strnome & Chr(11) & strDep & Chr(11) & "Tel. 55 " & strPhone & Chr(11) & "Fax. 55 " & strFax & Chr(11) & strMail & Chr(11) & strWeb If Len(srtCel) <> 0 then objTable.Cell(1, 2).Range.Text = strnome & Chr(11) & strDep & Chr(11) & "Tel. 55 " & strPhone & " | " & srtCel & Chr(11) & "Fax. 55 " & strFax & Chr(11) & strMail & Chr(11) & strWeb end if objSelection.EndKey END_OF_STORY End With Set objSelection = objDoc.Range() objSignatureEntries.Add "Assinatura Porto", objSelection objSignatureObject.NewMessageSignature = "Assinatura Porto" objSignatureObject.ReplyMessageSignature = "Assinatura Porto" objDoc.Saved = True objword.Quit
