Trying to standardize email signatures using .OpenTextFile and .CreateTextFile

• Question

• 

  

  0

  Sign in to vote

  I am attempting to standardize signature files throughout the company by taking an existing signature and changing it to incorporate active directory information.  I finished the html file with no issues - works great - but the text file portion breaks.  Can someone please help me figure out what is wrong with the below code? 

  I've tried changing some of the lines to figure out where the problem lies and it appears to fail either when it's opening the .txt file or when it tries to read the contents of that file into a variable.  I also tried hard coding the path and that didn't help.  The code is identical to the .htm version which works great so I don't know why the .txt version is failing.  Any help would be much
  appreciated
  
  By the way - some of the formatting and spacing got messed up in the copy/paste - I'll try to fix it but hopefully the terrible line-wrapping doesn't mess up the review.
  ----------------------
  'Option Explicit
  On Error Resume Next
     Dim filesys
     Dim strSigName, strFileTextOld, StrFileTextNew, strSigBlockOld, strSigBlockNew
     Dim strHTMFileDest, strRTFFileDest, strTXTFileDest, strSigFolder
     Dim strHTMFileOrig, strRTFFileOrig, strTXTFileOrig
     Dim strFullName, strTitle, strCompany, strCity, strTel, strCell, strFax, strWeb, strWebD, strDisc1, strDisc2
     Dim boolUpdateStyle
  
  '==========================================================================
  
  ' This script takes an existing signature and modifies it to include the company signature block
  ' This script requires the following in order to be successful:
  '    1.  Build a signature in Outlook with all the pictures/etc. laid out in the format this is desired
  '    2.  Place a unique string of text in the signature that can be read and replaced.  In this version, we use "XXXXXXXXXX" in all caps.  Put that text into the strSigBlockOld variable below

  '    3.  Make a note of the name and put that in the strSigName variable below.  In this version, we use Default (New)
  '    4.  Copy all files associated with that signature into the same directory as the vbs executable.  These will be copied
  to the user's Signature folder
  
  '==========================================================================
  
  
  '==========================================================================
  ' Some script variables
  '==========================================================================
  
     strSigName  = "Default (New)"
     strSigBlockOld = "XXXXXXXXXX"
  '  If signature exists, overwrite (true) or leave alone (false)?
     boolUpdateStyle = true
  
  '==========================================================================
  ' Read User's Active Directory information
  '==========================================================================
  
     Dim objSysInfo, objUser
     Set objSysInfo = CreateObject("ADSystemInfo")
     Set objUser    = GetObject("LDAP://" & objSysInfo.Username)
     strFullName = objUser.displayname
     strTitle    = objUser.title
     strCompany = "Company"
     strCity = objuser.l 
     strCell  = objuser.mobile
     strWeb      = "h_ttp:URL" (had to change these in order to post)
     strWebD   = "url" (had to change these in order to post)
  
     strTel = "111-111-1111"
     strFax = "111-111-1112"
  
     If Trim(strTitle) = "" Then strTitle = "_"
     Set objUser    = Nothing 
     Set objSysInfo = Nothing
  
  
  '==========================================================================
  ' Get Signature Folder
  '==========================================================================
  
     Dim objShell
     Set objShell = CreateObject("WScript.Shell")
  
     strSigFolder = ObjShell.ExpandEnvironmentStrings("%appdata%") & "\Microsoft\Signatures\"
     Set objShell = Nothing
  
  
  '==========================================================================
  ' Copy Files to Destination and Set Signature File Variables
  '==========================================================================
  
     Dim objFSO, objFile
     Set objFSO   = CreateObject("Scripting.FileSystemObject")

  ' Create signature folder if it doesn't exist
     If Not (objFSO.FolderExists(strSigFolder)) Then
        Call objFSO.CreateFolder(strSigFolder)
     End If
   'set variables for original files
     strHTMFileOrig = strSigName & ".htm"
     strRTFFileOrig = strSigName & ".rtf"
     strTXTFileOrig = strSigName & ".txt"
     strSigFilesOrig = strSigName & "_files"
  

  ' set variables for destination files
     strHTMFileDest = strSigFolder & strSigName & ".htm"
     strRTFFileDest = strSigFolder & strSigName & ".rtf"
     strTXTFileDest = strSigFolder & strSigName & ".txt"
  
  ' copy folder for html stuff
     Set filesys=CreateObject("Scripting.FileSystemObject")
     objFSO.CopyFolder strSigFilesOrig, strSigFolder
  
  '==========================================================================
  ' Modify HTM File and create at destination
  '==========================================================================
  'chr(47) = /
  ' Build Signature block (check for Cell Phone)
     If strCell <> "" then 

       strSigBlockNew = strFullName & "<br/>"&vbCrLf & strTitle & "<br />"&vbCrLf & strCompany & "<br />"&vbCrLf & "<br />"&vbCrLf & strCity & "<br />"&vbCrLf & strTel& "<br/>"&vbCrLf & strCell & " Cell <br />"&vbCrLf & strFax & " Fax <br />"&vbCrLf & "<a href=""" &strWeb & """ style=""FONT-SIZE: 12pt; COLOR:#000080; FONT-FAMILY: Garamond""" &
  ">" & strWebD & "<" & Chr(47) & "a>"&bCrLf & "<br />"&vbCrLf
     else
        strSigBlockNew = strFullName & "<br />"&vbCrLf & strTitle & "<br />"&vbCrLf & strCompany & "<br />"&vbCrLf & "<br />"&vbCrLf & strCity & "<br />"&vbCrLf & strTel& "<br/>"&vbCrLf & strFax & " Fax <br />"&vbCrLf & "<a
  href=""" &strWeb & """ style=""FONT-SIZE: 12pt; COLOR:#000080; FONT-FAMILY: Garamond""" & ">" & strWebD & "<" & Chr(47) & "a>"&vbCrLf & "<br />"&vbCrLf
     end if

  ' Open Original file
     Err.Clear
     Set objFile = objFSO.OpenTextFile(strHTMFileOrig, 1)
     strFileTextOld = objFile.ReadAll 

     objFile.Close
  

  '  Replace signature block with new block
     strFileTextNew = Replace (strFileTextOld, strSigBlockOld, strSigBlockNew)

  ' Create new file with new block
     Set objFile = objFSO.CreateTextFile(strHTMFileDest, boolUpdateStyle, False) 
     objFile.WriteLine strFileTextNew
     objFile.Close
  
  '==========================================================================
  ' Modify TXT File and create at destination
  '========================================================================== 
  
     If strCell <> "" then
  '         strSigBlockNew = strFullName & vbCrLf & strTitle & vbCrLf & strCompany & vbCrLf & vbCrLf & strCity & vbCrLf & strTel & vbCrLf & strCell & " Cell" & vbCrLf & strFax & " Fax" & vbCrLf & strWeb & vbCrLf 

     else 
           strSigBlockNew = strFullName & vbCrLf & strTitle & vbCrLf & strCompany & vbCrLf & vbCrLf & strCity & vbCrLf & strTel & vbCrLf & strFax & " Fax" & vbCrLf & strWeb & vbCrLf 
  

     end if
  

  ' Open Original file
     Err.Clear
     Set objFile = objFSO.OpenTextFile(strTXTFileOrig, 1)
     strFileTextOld = objFile.ReadAll 
     objFile.Close
  ' Replace signature block with new block
     strFileTextNew = Replace (strFileTextOld, strSigBlockOld, strSigBlockNew)
  ' Create new file with new block
     Set objFile = objFSO.CreateTextFile(strTXTFileDest, boolUpdateStyle, False)
     objFile.WriteLine strFileTextNew
     objFile.Close
  
  '==========================================================================
  ' Tidy-up
  '==========================================================================
  
     set objFile = Nothing
     set objFSO  = Nothing

                                           

  • Moved by Bill_Stewart Wednesday, January 20, 2016 7:52 PM This is not "fix script I found on the Internet for me" forum

  Friday, December 18, 2015 9:54 PM