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