" & strAddress &" "& strpobox &" "& strCity & ", " & strState & " " & strZip & "
")
htmlfile.WriteLine("Please consider the environment before printing this. ")
htmlfile.WriteLine("")
htmlfile.Write("")
htmlFile.Close
'Create Plain Reply Text Signature
plainTextFilePath = pathToCopyTo & "Reply.txt"
Set plainTextFile = objFSO.CreateTextFile(plainTextFilePath, TRUE)
plainTextFile.WriteLine(strName)
plainTextFile.WriteLine(strTitle)
plainTextFile.WriteLine(strAddress &" "& strpobox &" "& strCity & ", " & strState & " " & strZip)
plainTextFile.WriteLine("T: " & strPhone & " | " & "F: " & strFax)
plainTextFile.WriteLine("")
plainTextFile.WriteLine("Company Name Inc")
plainTextFile.WriteLine("Company Slogan")
plainTextFile.WriteLine("Company Slogan line two")
plainTextFile.WriteLine("Please consider the environment before printing this email.")
plainTextFile.Close
'Create reply Rich Text Signature
richTextFilePath = pathToCopyTo & "Reply.rtf"
Set richTextFile = objFSO.CreateTextFile(richTextFilePath, TRUE)
richTextFile.WriteLine("{\rtf1\ansi\ansicpg1252\deff0\deflang2057{\fonttbl{\f0\fswiss\fcharset0Century Gothic;}}")
richTextFile.WriteLine("\viewkind4\uc1\pard\f0\fs20 \par")
richTextFile.WriteLine(strName & "\par")
richTextFile.WriteLine(strTitle & "\par")
richTextFile.WriteLine(strAddress &" "& strpobox &" "& strCity & ", " & strState & " " & strZip &"\par")
richTextFile.WriteLine("T: " & strPhone & " | " & "F: " & strFax & "\par")
richTextFile.WriteLine("\par")
richTextFile.WriteLine("Company Name Inc")
richTextFile.WriteLine("Company Slogan""\par")
richTextFile.WriteLine("Company Slogan line two""\par")
richTextFile.WriteLine("Please consider the environment before printing this.")
richTextFile.WriteLine("\par")
richTextFile.Close
'Create HTML Relpy Signature
htmlFilePath = pathToCopyTo & "Reply.htm"
Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE)
htmlfile.WriteLine("")
htmlfile.WriteLine("")
htmlfile.WriteLine("")
htmlfile.WriteLine("
" & strName & "
")
htmlfile.WriteLine("
" & strTitle & "
")
htmlfile.WriteLine("
" & strAddress &" "& strpobox &" "& strCity & ", " & strState & " " & strZip & "
")
htmlfile.WriteLine("
T: " & strPhone & " | " & "F: " & strFax & "
")
htmlfile.WriteLine("
")
htmlfile.WriteLine("
Company Name Inc
")
htmlFile.WriteLine("
Company Slogan
")
htmlFile.WriteLine("
Company Slogan line two
")
htmlFile.WriteLine("
Please consider the environment before printing this. ")
htmlfile.WriteLine("")
htmlfile.Write("")
htmlFile.Close
Set objFSO = Nothing
Set objWsh = Nothing
'Connect to Registry
Dim objShell, RegKey
Set objShell = CreateObject("WScript.Shell")
'Disable Change of Signature for the User
Set objOutlook = CreateObject("Outlook.Application")
strOutlookVersion = Left(objOutlook.Version, 2)
objOutlook.Quit
Set objOutlook = Nothing
If Right(strOutlookVersion, 1) <> "." Then
strOutlookVersion = strOutlookVersion & ".0"
Else
strOutlookVersion = strOutlookVersion & "0"
End If
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & strOutlookVersion & "\Common\MailSettings\NewSignature" , "Default"
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & strOutlookVersion & "\Common\MailSettings\ReplySignature" , "Reply"
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & strOutlookVersion & "\Outlook\Options\Mail\EnableLogging" , "0", "REG_DWORD"
Set objShell = Nothing