-
Jul 7th, 2011, 07:39 AM
#1
Thread Starter
New Member
Help with Outlook Sinature in a Table
I'm one step away from completing this vbscript. Currently the border colour of this table is black but i need it to be RGB(194,214,155). Please help
See below:
Code:
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
SPACE = ""
strName = objUser.displayName
strAccr = objUser.title
strTitle = objUser.Description
strCred = objUser.info
strCompany = objUser.Company
strLocation = objUser.l
strPostCode = objUser.PostalCode
strPhone = objUser.TelephoneNumber
strDDI = objUser.otherTelephone
strMobile = objUser.Mobile
strFax = objUser.FacsimileTelephoneNumber
strURL = objUser.wWWHomePage
strInfoMail = "info@company.com"
strlogo = "c:\logo.bmp"
intLen = Len(strFax) + Len(strInfoMail)
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objRange = objDoc.Range()
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
objSelection.Font.Name = "Calibri"
objSelection.Font.Size = 11
objSelection.Font.Bold = True
objSelection.Font.Color = RGB(194,214,155)
objDoc.Tables.Add objRange, 1, 2
Set objTable = objDoc.Tables(1)
objTable.Borders.OutsideLineStyle = 1
objTable.Cell(1, 1).select
objTable.Columns(1).Width = objWord.InchesToPoints(6.1)
objSelection.TypeParagraph()
objSelection.TypeText strName & " " & "|" & " "
if (strAccr) Then objSelection.TypeText strAccr
objSelection.Font.Bold = True
objSelection.TypeText strTitle
objSelection.TypeText Chr(11)
objSelection.Font.Bold = False
objSelection.Font.Color = vbBlack
if (strDDI) Then objSelection.TypeText "DDI: " & Chr(9) & strDDI & Chr(11)
objSelection.TypeText "Tel: " & Chr(9) & strPhone & Chr(11)
objSelection.TypeText "Fax: " & Chr(9) & strFax & Chr(11)
objSelection.Font.Color = RGB(194,214,155)
objSelection.TypeText "www.company.com"
objSelection.TypeText Chr(11)
objSelection.TypeText Chr(11)
objSelection.TypeText strCompany & " " & "|" & " "
objSelection.Font.Color = vbBlack
objSelection.TypeText "Building" & " "
objSelection.Font.Color = RGB(194,214,155)
objSelection.TypeText "|" & " "
objSelection.Font.Color = vbBlack
objSelection.TypeText "Road" & " "
objSelection.Font.Color = RGB(194,214,155)
objSelection.TypeText "|" & " "
objSelection.Font.Color = vbBlack
objSelection.TypeText "Town" & " "
objSelection.Font.Color = RGB(194,214,155)
objSelection.TypeText "|" & " "
objSelection.Font.Color = vbBlack
objSelection.TypeText "County" & " "
objSelection.Font.Color = RGB(194,214,155)
objSelection.TypeText "|" & " "
objSelection.Font.Color = vbBlack
objSelection.TypeText "Post Code"
objSelection.TypeParagraph()
objSelection.TypeText strMail
objTable.Cell(1, 2).Range.Select
objTable.Columns(2).Width = objWord.InchesToPoints(1)
objSelection.TypeParagraph()
Set objShape = objSelection.InlineShapes.AddPicture(strlogo)
objSelection.EndKey 6
objSignatureEntries.Add "New Company Signature", objRange
objSignatureObject.NewMessageSignature = "Company"
objSignatureObject.ReplyMessageSignature = "Company"
objWord.EmailOptions.ComposeStyle.Font.Name = "Calibri"
objWord.EmailOptions.ComposeStyle.Font.Size = 11
objWord.EmailOptions.ComposeStyle.Font.Color = vbBlack
objWord.EmailOptions.ReplyStyle.Font.Name = "Calibri"
objWord.EmailOptions.ReplyStyle.Font.Color = vbBlack
objWord.EmailOptions.ReplyStyle.Font.Size = 11
objWord.EmailOptions.PlainTextStyle.Font.Name = "Courier New"
objWord.EmailOptions.PlainTextStyle.Font.Size = 11
objDoc.Saved = True
objWord.Quit
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|