Script automatico de firma de correo electornico

objTable.Rows.Add()
objTable.Cell(1, 1).Range.Text = objSelection.InlineShapes.AddPicture(Logo)
objTable.Cell(1, 2).Range.Font.Name = "Verdana"
objTable.Cell(1, 2).Range.Font.Color = 0
objTable.Cell(1, 2).Range.Font.Size = "11"
objTable.Cell(1, 2).Range.Text = strFName & " " & strLName
objTable.Rows.Add()
objTable.Cell(2, 2).Range.Font.Name = "Verdana"
objTable.Cell(2, 2).Range.Font.Color = 0
objTable.Cell(2, 2).Range.Font.Size = "11"
objTable.Cell(2, 2).Range.Font.Bold = false
objTable.Cell(2, 2).Range.Text = strDepartment
objTable.Rows.Add()

Yo agregue estas lineas para combinar las celdas de la tabla. Funciono muy bien.

objTable.Cell(1, 1).Merge objTable.Cell(3,1)



Mario wrote:

Script automatico de firma de correo electornico
08-oct-09

Hola todos, el script presentado a continuacion (.vbs) crea una firma d
correo electronico en outlook, consultando informacion del buzon del usuari
Exchange en Active Directory que esta activo en ese momento, esa informacio
se coloca en una tabla. Esa tabla tiene 2 columnas (C) y 3 filas (F) , e
C1F1 yo puedo colocar un archivo de imagen, en la C2F1 coloco el nombre, C2F
el departamento, C2F3 coloco los numeros de telefono. Bajo esto, las C1F2
C1F3 estan vacias de informacion
Mi pregunta es la siguiente: Con la intencion de que el logotipo no qued
tan arriba en la tabla y que quede centrado con las filas de la columna
Como puedo hacer un "combinar celdas" desde C1F1 hasta C1F3

<- Inicio del script
On Error Resume Nex

Set objSysInfo = CreateObject("ADSystemInfo"

strUser = objSysInfo.UserNam
Set objUser = GetObject("LDAP://" & strUser

strName = objUser.FullNam
strTitle = objUser.Titl
strFName = objUser.FirstNam
strLName = objUser.LastNam
strInfo = objUser.inf
strMobile = objUser.Mobil
strWebAddress = "www.mycompany.com
Logo = "C:\logo.jpg
strDepartment = objUser.Departmen
strAddress = objUser.StreetAddres
strCity = objUser.
strState = objUser.S
strPostalCode = objUser.PostalCod
strPhone = objUser.telephoneNumbe
strFax = objuser.faxnumbe
strEmail = objuser.mai

Set objWord = CreateObject("Word.Application"

Set objDoc = objWord.Documents.Add(
Set objSelection = objWord.Selectio
Set objRange = objDoc.Range(
objDoc.Tables.Add objRange,1,
Set objTable = objDoc.Tables(1
Set objEmailOptions = objWord.EmailOption
Set objSignatureObject = objEmailOptions.EmailSignatur
Set objSignatureEntries = objSignatureObject.EmailSignatureEntrie
objTable.Range.Font.Size = 1
objTable.Range.Style = "Table Contemporary
objTable.Range.Bold = tru
objTable.Range.Color = "000,000,000
objTable.Rows.Add(
objTable.Cell(1, 1).Range.Text = objSelection.InlineShapes.AddPicture(Logo
objTable.Cell(1,2).Range.Font.Name = "Arial
objTable.Cell(1,2).Range.Font.Color = 3276
objTable.Cell(1,2).Range.Font.Size = "8
objTable.Cell(1, 2).Range.Text = strFName & " " & strLNam
objTable.Rows.Add(
objTable.Cell(2, 2).Range.Text = strDepartmen
objTable.Rows.Add(
objTable.Cell(3, 2).Range.Text = "Tel: (506) " & strPhon
objTable.Cell(3, 2).Range.Text = objTable.Cell(3,2).Range.Text + "Fax: (506
" & strFa
objTable.Cell(3, 2).Range.Text = objTable.Cell(3,2).Range.Text + strEmai
objTable.Cell(3, 2).Range.Text = objTable.Cell(3,2).Range.Text + strWebAddres
Set objSelection = objDoc.Range(
objSignatureEntries.Add "company Signature", objSelectio
objSignatureObject.NewMessageSignature = "company Signature
objSignatureObject.ReplyMessageSignature = "
objDoc.Saved = Tru
objWord.Qui
<-- Fin del Script >

Previous Posts In This Thread:

On jueves, 08 de octubre de 2009 13:59
Mario wrote:

Script automatico de firma de correo electornico
Hola todos, el script presentado a continuacion (.vbs) crea una firma d
correo electronico en outlook, consultando informacion del buzon del usuari
Exchange en Active Directory que esta activo en ese momento, esa informacio
se coloca en una tabla. Esa tabla tiene 2 columnas (C) y 3 filas (F) , e
C1F1 yo puedo colocar un archivo de imagen, en la C2F1 coloco el nombre, C2F
el departamento, C2F3 coloco los numeros de telefono. Bajo esto, las C1F2
C1F3 estan vacias de informacion.
Mi pregunta es la siguiente: Con la intencion de que el logotipo no quede
tan arriba en la tabla y que quede centrado con las filas de la columna 2
Como puedo hacer un "combinar celdas" desde C1F1 hasta C1F3?

<- Inicio del script>
On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

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

strName = objUser.FullName
strTitle = objUser.Title
strFName = objUser.FirstName
strLName = objUser.LastName
strInfo = objUser.info
strMobile = objUser.Mobile
strWebAddress = "www.mycompany.com"
Logo = "C:\logo.jpg"
strDepartment = objUser.Department
strAddress = objUser.StreetAddress
strCity = objUser.l
strState = objUser.St
strPostalCode = objUser.PostalCode
strPhone = objUser.telephoneNumber
strFax = objuser.faxnumber
strEmail = objuser.mail

Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objRange = objDoc.Range()
objDoc.Tables.Add objRange,1,2
Set objTable = objDoc.Tables(1)
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
objTable.Range.Font.Size = 10
objTable.Range.Style = "Table Contemporary"
objTable.Range.Bold = true
objTable.Range.Color = "000,000,000"
objTable.Rows.Add()
objTable.Cell(1, 1).Range.Text = objSelection.InlineShapes.AddPicture(Logo)
objTable.Cell(1,2).Range.Font.Name = "Arial"
objTable.Cell(1,2).Range.Font.Color = 32768
objTable.Cell(1,2).Range.Font.Size = "8"
objTable.Cell(1, 2).Range.Text = strFName & " " & strLName
objTable.Rows.Add()
objTable.Cell(2, 2).Range.Text = strDepartment
objTable.Rows.Add()
objTable.Cell(3, 2).Range.Text = "Tel: (506) " & strPhone
objTable.Cell(3, 2).Range.Text = objTable.Cell(3,2).Range.Text + "Fax: (506)
" & strFax
objTable.Cell(3, 2).Range.Text = objTable.Cell(3,2).Range.Text + strEmail
objTable.Cell(3, 2).Range.Text = objTable.Cell(3,2).Range.Text + strWebAddress
Set objSelection = objDoc.Range()
objSignatureEntries.Add "company Signature", objSelection
objSignatureObject.NewMessageSignature = "company Signature"
objSignatureObject.ReplyMessageSignature = ""
objDoc.Saved = True
objWord.Quit
<-- Fin del Script >

EggHeadCafe - Software Developer Portal of Choice
build a Google Translation Service Web Scraper
http://www.eggheadcafe.com/tutorial...latio.aspx