Thanks for all the help... Here is what I have managed to do so far... It may be a little messy but it has got me lots further than I had ever hoped!!!!

Could you help me hyperlink the website please.... I did try a few thing but it didnt work out...

Thanks,


$objSysInfo = CreateObject("ADSystemInfo")
$strUser = $objSysInfo.UserName
$objUser = GetObject("LDAP://" + $strUser)

$strName = $objUser.FullName
$strSN = $objUser.sn
$strmobile = $objUser.mobile
$strTitle = $objUser.Title
$strDepartment = $objUser.Department
$strCompany = $objUser.Company
$strPhone = $objUser.telephoneNumber
$strGivenName = $objUser.givenname
$strMail = $objUser.mail
$strFax = $objuser.facsimileTelephoneNumber
$strWeb = $objUser.wWWHomePage

$objWord = CreateObject("Word.Application")

$objDoc = $objWord.Documents.Add()
$objSelection = $objWord.Selection

$objEmailOptions = $objWord.EmailOptions
$objSignatureObject = $objEmailOptions.EmailSignature
$objSignatureEntries = $objSignatureObject.EmailSignatureEntries

$objSelection.Font.Name = "Arial"
$objSelection.Font.Size = "12"
$objSelection.Font.Color = "8421504"
$objSelection.Font.Bold = "1"
$objSelection.TypeText($strGivenName + " " + $strSN)


$objSelection.Font.Name = "Arial"
$objSelection.Font.Size = "12"
$objSelection.Font.Color = "8421504"
$objSelection.Font.Bold = "0"
$objSelection.TypeText(Chr(11))
$objSelection.TypeText($strTitle)


$objSelection.TypeText(Chr(11))
$objSelection.TypeText(Chr(11))


$objSelection.Font.Name = "Arial"
$objSelection.Font.Size = "14"
$objSelection.Font.Color = "8421504"
$objSelection.Font.Bold = "0"
$objSelection.TypeText(Company Name)
$objSelection.TypeText(Chr(11))


$objSelection.Font.Name = "Arial"
$objSelection.Font.Size = "7.5"
$objSelection.Font.Color = "8421504"
$objSelection.Font.Bold = "0"
$objSelection.TypeText("Design Architecture Masterplanning Interiors Graphics")
$objSelection.TypeText(Chr(11))

$objSelection.TypeText(Chr(11))

$objSelection.Font.Name = "Arial"
$objSelection.Font.Size = "8"
$objSelection.Font.Color = "8421504"
$objSelection.Font.Bold = "0"
$objSelection.TypeText("Winner - Queen's Award for Enterprise 2008")
$objSelection.TypeText(Chr(11))
$objSelection.TypeText(Chr(11))


$objSelection.TypeText("T: " + $strPhone)
$objSelection.TypeText(Chr(11))


$objSelection.TypeText("F: " + $strfax)
$objSelection.TypeText(Chr(11))
$objSelection.TypeText(Chr(11))


$objSelection.TypeText($strWeb)
$objSelection.TypeText(Chr(11))
$objSelection.TypeText(Chr(11))


$objSelection.Font.Name = "Arial"
$objSelection.Font.Size = "8"
$objSelection.Font.Color = "13421619"
$objSelection.Font.Bold = "0"
$objSelection.TypeText("Please consider the environment - only print this e-mail if absolutely necessary")


$objSelection = $objDoc.Range()


$objSignature=$objSignatureEntries.Add("Signature", $objSelection)
$objSignatureObject.NewMessageSignature = "Signature"
$objSignatureObject.ReplyMessageSignature = "Signature"

$objDoc.Saved = 1
$objWord.Quit