Some of the files in this Web page aren't in the expected location

SHampton · Feb 21, 2010

SkipVought (Programmer) 21 Feb 10 17:11

Please post VB Script in forum329: VBScript
Skip,

Not sure what you mean to post VB Script in this forum since this is more related to Outlook then VBScript, but here it is:

Option Explicit

Dim objFSO, objDir, objFile, objShell, objTextFile
Dim strData, strLine, arrLines, sQuote, ctr, max, objRandom, strText, strFile1, strFile2
CONST ForReading = 1, ForWriting = 2, ForAppending = 8

'name of the text files
strFile1 = "C:\Documents and Settings\sjhampton1026\Application Data\Microsoft\Signatures\Quotes.txt"
strFile2 = "C:\Documents and Settings\sjhampton1026\Application Data\Microsoft\Signatures\Fancy2.htm"
ctr = 0

'Create a File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strFile1) Then
'Open the text file - strData now contains the whole file
objFile = objFSO.OpenTextFile(strFile1,ForReading).ReadAll
Else
msgBox "File does not exist. Exiting script!!!"
wScript.Quit
End If

'Split the text file into lines
arrLines = Split(objFile,vbCrLf)

'Step through the lines
For Each strLine in arrLines
ctr = ctr + 1
Next

max = ctr
ctr = 1

'Read random line from array
Randomize
objRandom = Int( ( max - 1 + 1 ) * Rnd + 1 )
sQuote = arrLines(objRandom)
'Wscript.Echo sQuote

Set objFSO = CreateObject("Scripting.FileSystemObject")
set objTextFile = objFSO.OpenTextFile(strFile2,ForWriting)

strText="<html xmlns:v=" & Chr(34) & "urn:schemas-microsoft-com:vml" & Chr(34) & vbCrLf _
& "xmlns

=" & chr(34) & "urn:schemas-microsoft-com

ffice

ffice" & chr(34) & vbCrLf _
& "xmlns:w=" & chr(34) & "urn:schemas-microsoft-com

ffice:word" & chr(34) & vbCrLf _
& "xmlns:m=" & chr(34) & "

http://schemas.microsoft.com/office/2004/12/omml"

& chr(34) & vbCrLf _
& "xmlns=" & chr(34) & "

http://www.w3.org/TR/REC-html40"

& chr(34) & ">" & vbCrLf _
& vbCrLf _
& "<head>" & vbCrLf _
& "<meta http-equiv=Content-Type content=" & chr(34) & "text/html; charset=windows-1252" & chr(34) & ">" & vbCrLf _
& "<meta name=ProgId content=Word.Document>" & vbCrLf _
& "<meta name=Generator content=" & chr(34) & "Microsoft Word 12" & chr(34) & ">" & vbCrLf _
& "<meta name=Originator content=" & chr(34) & "Microsoft Word 12" & chr(34) & ">" & vbCrLf _
& "<link rel=File-List href=" & chr(34) & "Fancy2_files/filelist.xml" & chr(34) & ">" & vbCrLf _
& "<link rel=Edit-Time-Data href=" & chr(34) & "Fancy2_files/editdata.mso" & chr(34) & ">" & vbCrLf _
& "<!--[if gte mso 9]><xml>" & vbCrLf _
& " <o

ocumentProperties>" & vbCrLf _
& " <o:Template>NormalEmail.dotm</o:Template>" & vbCrLf _
& " <o:Revision>0</o:Revision>" & vbCrLf _
& " <o:TotalTime>1</o:TotalTime>" & vbCrLf _
& " <o

ages>1</o

ages>" & vbCrLf _
& " <o:Words>55</o:Words>" & vbCrLf _
& " <o:Characters>319</o:Characters>" & vbCrLf _
& " <o:Company>HampTek</o:Company>" & vbCrLf _
& " <o:Lines>2</o:Lines>" & vbCrLf _
& " <o

aragraphs>1</o

aragraphs>" & vbCrLf _
& " <o:CharactersWithSpaces>373</o:CharactersWithSpaces>" & vbCrLf _
& " <o:Version>12.00</o:Version>" & vbCrLf _
& " </o

ocumentProperties>" & vbCrLf _
& "</xml><![endif]-->" & vbCrLf _
& "<link rel=themeData href=" & Chr(34) & "Fancy2_files/themedata.thmx" & Chr(34) & ">" & vbCrLf _
& "<link rel=colorSchemeMapping href=" & Chr(34) & "Fancy2_files/colorschememapping.xml" & Chr(34) & ">" & vbCrLf _
& "<!--[if gte mso 9]><xml>" & vbCrLf _
& " <w:WordDocument>" & vbCrLf _
& " <w:View>Normal</w:View>" & vbCrLf _
& " <w:Zoom>0</w:Zoom>" & vbCrLf _
& " <w:TrackMoves/>" & vbCrLf _
& " <w:TrackFormatting/>" & vbCrLf _
& " <w

unctuationKerning/>" & vbCrLf _
& " <w:ValidateAgainstSchemas/>" & vbCrLf _
& " <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>" & vbCrLf _
& " <w:IgnoreMixedContent>false</w:IgnoreMixedContent>" & vbCrLf _
& " <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>" & vbCrLf _
& " <w

oNotPromoteQF/>" & vbCrLf _
& " <w:LidThemeOther>EN-US</w:LidThemeOther>" & vbCrLf _
& " <w:LidThemeAsian>X-NONE</w:LidThemeAsian>" & vbCrLf _
& " <w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>" & vbCrLf _
& " <w

oNotShadeFormData/>" & vbCrLf _
& " <w:Compatibility>" & vbCrLf _
& " <w:BreakWrappedTables/>" & vbCrLf _
& " <w:SnapToGridInCell/>" & vbCrLf _
& " <w:WrapTextWithPunct/>" & vbCrLf _
& " <w:UseAsianBreakRules/>" & vbCrLf _
& " <w

ontGrowAutofit/>" & vbCrLf _
& " <w:SplitPgBreakAndParaMark/>" & vbCrLf _
& " <w

ontVertAlignCellWithSp/>" & vbCrLf _
& " <w

ontBreakConstrainedForcedTables/>" & vbCrLf _
& " <w

ontVertAlignInTxbx/>" & vbCrLf _
& " <w:Word11KerningPairs/>" & vbCrLf _
& " <w:CachedColBalance/>" & vbCrLf _
& " <w:UseFELayout/>" & vbCrLf _
& " </w:Compatibility>" & vbCrLf _
& " <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>" & vbCrLf _
& " <m:mathPr>" & vbCrLf _
& " <m:mathFont m:val=" & Chr(34) & "Cambria Math" & Chr(34) & "/>" & vbCrLf _
& " <m:brkBin m:val=" & Chr(34) & "before" & Chr(34) & "/>" & vbCrLf _
& " <m:brkBinSub m:val=" & Chr(34) & "--" & Chr(34) & "/>" & vbCrLf _
& " <m:smallFrac m:val=" & Chr(34) & "off" & Chr(34) & "/>" & vbCrLf _
& " <m:dispDef/>" & vbCrLf _
& " <m:lMargin m:val=" & Chr(34) & "0" & Chr(34) & "/>" & vbCrLf _
& " <m:rMargin m:val=" & Chr(34) & "0" & Chr(34) & "/>" & vbCrLf _
& " <m:defJc m:val=" & Chr(34) & "centerGroup" & Chr(34) & "/>" & vbCrLf _
& " <m:wrapIndent m:val=" & Chr(34) & "1440" & Chr(34) & "/>" & vbCrLf _
& " <m:intLim m:val=" & Chr(34) & "subSup" & Chr(34) & "/>" & vbCrLf _
& " <m:naryLim m:val=" & Chr(34) & "undOvr" & Chr(34) & "/>" & vbCrLf _
& " </m:mathPr></w:WordDocument>" & vbCrLf _
& "</xml><![endif]-->" & vbCrLf _
& "<style>" & vbCrLf _
& "<!--" & vbCrLf _
& " /* Font Definitions */" & vbCrLf _
& " @font-face" & vbCrLf _
& " {font-family:" & Chr(34) & "Cambria Math" & Chr(34) & ";" & vbCrLf _
& " panose-1:0 0 0 0 0 0 0 0 0 0;" & vbCrLf _
& " mso-font-charset:1;" & vbCrLf _
& " mso-generic-font-family:roman;" & vbCrLf _
& " mso-font-format

ther;" & vbCrLf _
& " mso-font-pitch:variable;" & vbCrLf _
& " mso-font-signature:0 0 0 0 0 0;}" & vbCrLf _
& "@font-face" & vbCrLf _
& " {font-family:Calibri;" & vbCrLf _
& " panose-1:2 15 5 2 2 2 4 3 2 4;" & vbCrLf _
& " mso-font-charset:0;" & vbCrLf _
& " mso-generic-font-family:swiss;" & vbCrLf _
& " mso-font-pitch:variable;" & vbCrLf _
& " mso-font-signature:-1610611985 1073750139 0 0 159 0;}" & vbCrLf _
& " /* Style Definitions */" & vbCrLf _
& " p.MsoNormal, li.MsoNormal, div.MsoNormal" & vbCrLf _
& " {mso-style-unhide:no;" & vbCrLf _
& " mso-style-qformat:yes;" & vbCrLf _
& " mso-style-parent:" & chr(34) & chr(34) & ";" & vbCrLf _
& " margin:0in;" & vbCrLf _
& " margin-bottom:.0001pt;" & vbCrLf _
& " mso-pagination:widow-orphan;" & vbCrLf _
& " font-size:11.0pt;" & vbCrLf _
& " font-family:" & Chr(34) & "Calibri" & Chr(34) & "," & Chr(34) & "sans-serif" & Chr(34) & ";" & vbCrLf _
& " mso-ascii-font-family:Calibri;" & vbCrLf _
& " mso-ascii-theme-font:minor-latin;" & vbCrLf _
& " mso-fareast-font-family:" & Chr(34) & "Times New Roman" & Chr(34) & ";" & vbCrLf _
& " mso-fareast-theme-font:minor-fareast;" & vbCrLf _
& " mso-hansi-font-family:Calibri;" & vbCrLf _
& " mso-hansi-theme-font:minor-latin;" & vbCrLf _
& " mso-bidi-font-family:" & Chr(34) & "Times New Roman" & Chr(34) & ";" & vbCrLf _
& " mso-bidi-theme-font:minor-bidi;}" & vbCrLf _
& ".MsoChpDefault" & vbCrLf _
& " {mso-style-type:export-only;" & vbCrLf _
& " mso-default-props:yes;" & vbCrLf _
& " font-size:11.0pt;" & vbCrLf _
& " mso-ansi-font-size:11.0pt;" & vbCrLf _
& " mso-bidi-font-size:11.0pt;" & vbCrLf _
& " mso-ascii-font-family:Calibri;" & vbCrLf _
& " mso-ascii-theme-font:minor-latin;" & vbCrLf _
& " mso-fareast-font-family:" & Chr(34) & "Times New Roman" & Chr(34) & ";" & vbCrLf _
& " mso-fareast-theme-font:minor-fareast;" & vbCrLf _
& " mso-hansi-font-family:Calibri;" & vbCrLf _
& " mso-hansi-theme-font:minor-latin;" & vbCrLf _
& " mso-bidi-font-family:" & Chr(34) & "Times New Roman" & Chr(34) & ";" & vbCrLf _
& " mso-bidi-theme-font:minor-bidi;}" & vbCrLf _
& "@page Section1" & vbCrLf _
& " {size:8.5in 11.0in;" & vbCrLf _
& " margin:1.0in 1.0in 1.0in 1.0in;" & vbCrLf _
& " mso-header-margin:.5in;" & vbCrLf _
& " mso-footer-margin:.5in;" & vbCrLf _
& " mso-paper-source:0;}" & vbCrLf _
& "div.Section1" & vbCrLf _
& " {page:Section1;}" & vbCrLf _
& "-->" & vbCrLf _
& "</style>" & vbCrLf _
& "" & vbCrLf _
& "</head>" & vbCrLf _
& vbCrLf _
& "<body lang=EN-US style='tab-interval:.5in'>" & vbCrLf _
& vbCrLf _
& "<div class=Section1>" & vbCrLf _
& vbCrLf _
& "<a name=" & chr(34) & "_MailAutoSig" & chr(34) & ">" & vbCrLf _
& vbCrLf _
& "<v:shape id=" & chr(34) & "Picture_x005f_x0020_2" & chr(34) & vbCrLf _
& " o:spid=" & chr(34) & "_x0000_i1025" & chr(34) & " type=" & chr(34) & "#_x0000_t75" & chr(34) & vbCrLf _
& " alt=" & chr(34) & chr(34) & " style='width:215.25pt;height:33pt'>" & chr(34) & vbCrLf _
& " <v:imagedata src=" & chr(34) & "C:\Documents and Settings\sjhampton1026\Application Data\Microsoft\Signatures\Fancy1_files\image001.png" & chr(34) & " o:href=" & chr(34) & "cid:image006.png@01C9A973.E194FA60" & chr(34) & vbCrLf _
& " cropleft=" & chr(34) & "1759f" & chr(34) & "/>" & vbCrLf _
& "</v:shape>" & vbCrLf _
& vbCrLf _
& " Steve Hampton" & vbCrLf _
& vbCrLf _
& " Technical " & vbCrLf _
& "Support" & vbCrLf _
& vbCrLf _
& " 636-946-6525 " & vbCrLf _
& "x1269" & vbCrLf _
& vbCrLf _
& "<v:shape id=" & chr(34) & "Picture_x005f_x0020_1" & chr(34) & vbCrLf _
& " o:spid=" & chr(34) & "_x0000_i1026" & chr(34) & " type=" & chr(34) & "#_x0000_t75" & chr(34) & " alt=" & chr(34) & "LMI Graphic Logo 001 Cut" & chr(34) & vbCrLf _
& " style='width:213pt;height:45pt'>" & vbCrLf _
& " <v:imagedata src=" & chr(34) & "C:\Documents and Settings\sjhampton1026\Application Data\Microsoft\Signatures\Fancy1_files\image003.png" & chr(34) & " o:href=" & chr(34) & "cid:image005.png@01C9A973.E194FA60" & chr(34) & "/>" & vbCrLf _
& "</v:shape>" & vbCrLf _
& vbCrLf _
& " " & vbCrLf _
& vbCrLf _
& "" & sQuote & vbCrLf _
& "" & vbCrLf _
& vbCrLf _
& " " & vbCrLf _
& vbCrLf _
& "</div>" & vbCrLf _
& vbCrLf _
& "</body>" & vbCrLf _
& vbCrLf _
& "</html>"

objTextFile.WriteLine(strText)

I have been working on creating an email signature with a random quote. What I have found out is that there appears to be no easy way to go about this.

After working on this for over 4 days, the best way I have found to get around this is to rebuilt or re-create the signature file by running a vbscript.

This script re-writes the entire signature file, but upon running the script and opening a new email, I get the following message:

Some of the files aren't in the expected location. Do you want to download them anyway? If you're sure the Web page is from a trusted source, click Yes.

After clicking Yes several times the signature appears correctly with the updated Quote.

I am not sure if there is something in the registry that is updated causing the popup or if there is an Outlook setting that could resolve this issue.

Not sure how to attach script so here it is:

Sorry for the extensive text, but that is the way MS does it. This was a tedious process and just a personal issue with me, but once I started, I couldn't quit.

Any suggestions would be helpful. Thanks in advance...

SHampton · Feb 21, 2010

Just as an update to moving to another forum:

I have been working on creating an email signature with a random quote. What I have found out is that there appears to be no easy way to go about this.

After working on this for over 4 days, the best way I have found to get around this is to rebuilt or re-create the signature file by running a vbscript.

This script re-writes the entire signature file, but upon running the script and opening a new email, I get the following message:

Some of the files aren't in the expected location. Do you want to download them anyway? If you're sure the Web page is from a trusted source, click Yes.

After clicking Yes several times the signature appears correctly with the updated Quote.

I am not sure if there is something in the registry that is updated causing the popup or if there is an Outlook setting that could resolve this issue.

tsuji · Feb 22, 2010

[0] As to which forum the post should be sent, I am of the general position that the forum of outlook as an application with all its contributing technologies linked to it should be standing to answer to question related to the application including coding issues (language-specific or platform (os)-specific). If the issue is also language-specific, the language-specific forum should _also_ be standing to face the challenge of the problem. If by chance you posted to an application/technology forum, and that you're sent to another language forum by the veterans there, I would only trust their judgement in this precise sense, namely, the portion of members frequenting that application forum competent in the specific language is so thin to the degree the post risks to get insufficient or inadequate care. In your case, I would give the person who send you here all the benefit of the doubt and trust his good judgment.

[1] I have not read all your message (as it is long and that there seems missing the highlight of the location where the problem is probably lies; and in this case, even the problem is not clearly layout). Nevertheless, from the starting part of the script, I see already there is some problems.

[1.1]
>'Step through the lines
>For Each strLine in arrLines
> ctr = ctr + 1
>Next

>max = ctr

You can simplify it like this to one line and it makes the sense more clearly. I do not need to put more control just in case the file is empty in this part because, and mind you, it would error out at the line readall() already. So it is there you have to be more careful.
[tt]
max=ubound(arrLines)+1 'it is one-base
[/tt]
[1.2] And then it entailis a problem when you select an entry randomly. The random number you script is in the range of [1, max]. _And_, it is one-base instead of zero-base array indexing. Hence the problem.

>sQuote = arrLines(objRandom)
[tt]sQuote = arrLines(objRandom[red]-1[/red])[/tt]

[1.3] A very minor point is that either you let yourself more freedom to naming variable or you keep slightly more sense to it, like, objFile is a string, objRandom is an integer...

[2] If the above [1] is not the origin of your core problem, you've to highlight the other plausible trouble spots. In any case, you've to correct [1] for sure.

SHampton · Feb 22, 2010

Thanks for the changes I will take those into consideration, but the script works as is. It is after writing the signature file when I get the error opening a new email:

Some of the files aren't in the expected location. Do you want to download them anyway? If you're sure the Web page is from a
trusted source, click Yes.

The problem is embeding the images in the file with being prompted to download the files everytime the signature file is re-written.

I am not sure if this is a registry entry or a security setting in Outlook itself. I have checked both and change the Outlook security settings for Macros and file downloads, but nothing has helped avoid being prompted to download the files after running the script.

Any help on how or where to find information on this error message would be helpful.

tsuji · Feb 22, 2010

>but the script works as is
My point is that it wouldn't one day. It would be "subscript out of range".

The rest, I can only look when I have time to look into the html string with office xml model!

SHampton · Feb 22, 2010

I put this script on my computer at work which runs a corporate version of MS Office 2007. The version on my home computer runs a MSHUP (Employee Purchase Version) version of Office 2007. Upon running the script on my work computer, the error message does not display.

I believe this is directly related to the different versions since I have built unattended install with our corporate version which does not work with the MSHUP version.

I have now tried several different ways of manipulating the signature file, which on my home computer with the employee version prompts to download the files whether I change the file manually or using the script, but this does not happen on my work computer with the corporate version.

If there is a solution to this, I would appreciate hearing it, but I can suffer this issue on my home computer since this was actually something I wanted to do with my work computer.

SHampton · Feb 28, 2010

I made the changes posted and worked like a charm. Running the script in an endless loop to produce a random quote did indeed produce the error "Subscript out of range".

Again the main issue was with Outlook prompting to download the files in question. After realizing that the problem was with the way Outlook configures the image files in a separate folder relying on the %signaturename%_files I was able to rewrite the script to the individual image files to resolve the issues.

Although I copied the files to the correct image folder, I also seemed to have edited the signature file to create the image in the filelist.xml file. The new file is attached in case anyone is interested.

Thanks for the help.

SHampton · Apr 30, 2010

I have found this is directly related to the folders that Outlook creates to house the image and other files to create the signature. After creating the folders in the specific format the script worked with no errors. The folder format is "Signature name" _files.

I have since modified the script with several helpful tips and some know how to limit system resourses and run smoother in case anyone wants to use:

' RandQuote.vbs - Re-Write HTML Signature file to produce Random Quote from Quotes file' © Stephen Hampton - lmiaerospace.com
' created 12 Feb 2010 (write Signature file.htm)
' revised 19 Feb 2010 (Loop to randomize quote)
' revised 28 Feb 2010 (added reply to randomize quote)
' revised 28 Feb 2010 (fixed pointer to Outlook image folder)
' revised 14 Mar 2010 (fix to include all similar data and include RTF and TXT Signature files)
' revised 18 Apr 2010 (unable to include RTF and TXT files. Need to identify RTF and TXT file patterns)

Option Explicit

Dim objFSO, objDir, objFile, objShell, objTextFile1, objTextFile2, bQuit, strLen, sFontSize
Dim strHead1, strHead2, strFPath1, strFPath2, strBody, strFFoot, strRPath1, strRPath2, strRFoot, strQuote
Dim strData, strLine, arrLines, sQuote, ctr, max, objRandom, strFancy1, strReply1, strFile1, strFile2, strFile3
CONST ForReading = 1, ForWriting = 2, ForAppending = 8
Dim oWS : Set oWS = CreateObject("WScript.Shell")

'name of the text files
strFile1 = "C:\Documents and Settings\shampton\Application Data\Microsoft\Signatures\Quotes.txt"
strFile2 = "C:\Documents and Settings\shampton\Application Data\Microsoft\Signatures\Fancy1.htm"
strFile3 = "C:\Documents and Settings\shampton\Application Data\Microsoft\Signatures\Reply1.htm"
'ctr = 0

'Create a File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strFile1) Then
'Open the text file - strData now contains the whole file
objFile = objFSO.OpenTextFile(strFile1,ForReading).ReadAll
Else
msgBox "File does not exist. Exiting script!!!"
wScript.Quit
End If

'Split the text file into lines
arrLines = Split(objFile,vbCrLf)

max=ubound(arrLines)+1
bQuit = 0

' Build Standard HTM File for All Emails
strHead1="<html xmlns:v=" & Chr(34) & "urn:schemas-microsoft-com:vml" & Chr(34) & vbCrLf _
& "xmlns

=" & chr(34) & "urn:schemas-microsoft-com

ffice

ffice" & chr(34) & vbCrLf _
& "xmlns:w=" & chr(34) & "urn:schemas-microsoft-com

ffice:word" & chr(34) & vbCrLf _
& "xmlns:m=" & chr(34) & "

http://schemas.microsoft.com/office/2004/12/omml"

& chr(34) & vbCrLf _
& "xmlns=" & chr(34) & "

http://www.w3.org/TR/REC-html40"

& chr(34) & ">" & vbCrLf _
& vbCrLf _
& "<head>" & vbCrLf _
& "<meta http-equiv=Content-Type content=" & chr(34) & "text/html; charset=windows-1252" & chr(34) & ">" & vbCrLf _
& "<meta name=ProgId content=Word.Document>" & vbCrLf _
& "<meta name=Generator content=" & chr(34) & "Microsoft Word 12" & chr(34) & ">" & vbCrLf _
& "<meta name=Originator content=" & chr(34) & "Microsoft Word 12" & chr(34) & ">" & vbCrLf

' Set Reply equal to Fancy (New Emails)
'strReply1=strFancy1
' Add data specific to New Emails only

strFPath1="<link rel=File-List href=" & chr(34) & "Fancy1_files/filelist.xml" & chr(34) & ">" & vbCrLf _
& "<link rel=Edit-Time-Data href=" & chr(34) & "Fancy1_files/editdata.mso" & chr(34) & ">" & vbCrLf

strHead2="<!--[if gte mso 9]><xml>" & vbCrLf _
& " <o

ocumentProperties>" & vbCrLf _
& " <o:Template>NormalEmail.dotm</o:Template>" & vbCrLf _
& " <o:Revision>0</o:Revision>" & vbCrLf _
& " <o:TotalTime>1</o:TotalTime>" & vbCrLf _
& " <o

ages>1</o

ages>" & vbCrLf _
& " <o:Words>55</o:Words>" & vbCrLf _
& " <o:Characters>319</o:Characters>" & vbCrLf _
& " <o:Company>HampTek</o:Company>" & vbCrLf _
& " <o:Lines>2</o:Lines>" & vbCrLf _
& " <o

aragraphs>1</o

aragraphs>" & vbCrLf _
& " <o:CharactersWithSpaces>373</o:CharactersWithSpaces>" & vbCrLf _
& " <o:Version>12.00</o:Version>" & vbCrLf _
& " </o

ocumentProperties>" & vbCrLf _
& "</xml><![endif]-->" & vbCrLf

strFPath2="<link rel=themeData href=" & Chr(34) & "Fancy1_files/themedata.thmx" & Chr(34) & ">" & vbCrLf _
& "<link rel=colorSchemeMapping href=" & Chr(34) & "Fancy1_files/colorschememapping.xml" & Chr(34) & ">" & vbCrLf

strBody="<!--[if gte mso 9]><xml>" & vbCrLf _
& " <w:WordDocument>" & vbCrLf _
& " <w:View>Normal</w:View>" & vbCrLf _
& " <w:Zoom>0</w:Zoom>" & vbCrLf _
& " <w:TrackMoves/>" & vbCrLf _
& " <w:TrackFormatting/>" & vbCrLf _
& " <w

unctuationKerning/>" & vbCrLf _
& " <w:ValidateAgainstSchemas/>" & vbCrLf _
& " <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>" & vbCrLf _
& " <w:IgnoreMixedContent>false</w:IgnoreMixedContent>" & vbCrLf _
& " <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>" & vbCrLf _
& " <w

oNotPromoteQF/>" & vbCrLf _
& " <w:LidThemeOther>EN-US</w:LidThemeOther>" & vbCrLf _
& " <w:LidThemeAsian>X-NONE</w:LidThemeAsian>" & vbCrLf _
& " <w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>" & vbCrLf _
& " <w

oNotShadeFormData/>" & vbCrLf _
& " <w:Compatibility>" & vbCrLf _
& " <w:BreakWrappedTables/>" & vbCrLf _
& " <w:SnapToGridInCell/>" & vbCrLf _
& " <w:WrapTextWithPunct/>" & vbCrLf _
& " <w:UseAsianBreakRules/>" & vbCrLf _
& " <w

ontGrowAutofit/>" & vbCrLf _
& " <w:SplitPgBreakAndParaMark/>" & vbCrLf _
& " <w

ontVertAlignCellWithSp/>" & vbCrLf _
& " <w

ontBreakConstrainedForcedTables/>" & vbCrLf _
& " <w

ontVertAlignInTxbx/>" & vbCrLf _
& " <w:Word11KerningPairs/>" & vbCrLf _
& " <w:CachedColBalance/>" & vbCrLf _
& " <w:UseFELayout/>" & vbCrLf _
& " </w:Compatibility>" & vbCrLf _
& " <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>" & vbCrLf _
& " <m:mathPr>" & vbCrLf _
& " <m:mathFont m:val=" & Chr(34) & "Cambria Math" & Chr(34) & "/>" & vbCrLf _
& " <m:brkBin m:val=" & Chr(34) & "before" & Chr(34) & "/>" & vbCrLf _
& " <m:brkBinSub m:val=" & Chr(34) & "--" & Chr(34) & "/>" & vbCrLf _
& " <m:smallFrac m:val=" & Chr(34) & "off" & Chr(34) & "/>" & vbCrLf _
& " <m:dispDef/>" & vbCrLf _
& " <m:lMargin m:val=" & Chr(34) & "0" & Chr(34) & "/>" & vbCrLf _
& " <m:rMargin m:val=" & Chr(34) & "0" & Chr(34) & "/>" & vbCrLf _
& " <m:defJc m:val=" & Chr(34) & "centerGroup" & Chr(34) & "/>" & vbCrLf _
& " <m:wrapIndent m:val=" & Chr(34) & "1440" & Chr(34) & "/>" & vbCrLf _
& " <m:intLim m:val=" & Chr(34) & "subSup" & Chr(34) & "/>" & vbCrLf _
& " <m:naryLim m:val=" & Chr(34) & "undOvr" & Chr(34) & "/>" & vbCrLf _
& " </m:mathPr></w:WordDocument>" & vbCrLf _
& "</xml><![endif]-->" & vbCrLf _
& "<style>" & vbCrLf _
& "<!--" & vbCrLf _
& " /* Font Definitions */" & vbCrLf _
& " @font-face" & vbCrLf _
& " {font-family:" & Chr(34) & "Cambria Math" & Chr(34) & ";" & vbCrLf _
& " panose-1:0 0 0 0 0 0 0 0 0 0;" & vbCrLf _
& " mso-font-charset:1;" & vbCrLf _
& " mso-generic-font-family:roman;" & vbCrLf _
& " mso-font-format

ther;" & vbCrLf _
& " mso-font-pitch:variable;" & vbCrLf _
& " mso-font-signature:0 0 0 0 0 0;}" & vbCrLf _
& "@font-face" & vbCrLf _
& " {font-family:Calibri;" & vbCrLf _
& " panose-1:2 15 5 2 2 2 4 3 2 4;" & vbCrLf _
& " mso-font-charset:0;" & vbCrLf _
& " mso-generic-font-family:swiss;" & vbCrLf _
& " mso-font-pitch:variable;" & vbCrLf _
& " mso-font-signature:-1610611985 1073750139 0 0 159 0;}" & vbCrLf _
& " /* Style Definitions */" & vbCrLf _
& " p.MsoNormal, li.MsoNormal, div.MsoNormal" & vbCrLf _
& " {mso-style-unhide:no;" & vbCrLf _
& " mso-style-qformat:yes;" & vbCrLf _
& " mso-style-parent:" & chr(34) & chr(34) & ";" & vbCrLf _
& " margin:0in;" & vbCrLf _
& " margin-bottom:.0001pt;" & vbCrLf _
& " mso-pagination:widow-orphan;" & vbCrLf _
& " font-size:11.0pt;" & vbCrLf _
& " font-family:" & Chr(34) & "Calibri" & Chr(34) & "," & Chr(34) & "sans-serif" & Chr(34) & ";" & vbCrLf _
& " mso-ascii-font-family:Calibri;" & vbCrLf _
& " mso-ascii-theme-font:minor-latin;" & vbCrLf _
& " mso-fareast-font-family:" & Chr(34) & "Times New Roman" & Chr(34) & ";" & vbCrLf _
& " mso-fareast-theme-font:minor-fareast;" & vbCrLf _
& " mso-hansi-font-family:Calibri;" & vbCrLf _
& " mso-hansi-theme-font:minor-latin;" & vbCrLf _
& " mso-bidi-font-family:" & Chr(34) & "Times New Roman" & Chr(34) & ";" & vbCrLf _
& " mso-bidi-theme-font:minor-bidi;}" & vbCrLf _
& ".MsoChpDefault" & vbCrLf _
& " {mso-style-type:export-only;" & vbCrLf _
& " mso-default-props:yes;" & vbCrLf _
& " font-size:11.0pt;" & vbCrLf _
& " mso-ansi-font-size:11.0pt;" & vbCrLf _
& " mso-bidi-font-size:11.0pt;" & vbCrLf _
& " mso-ascii-font-family:Calibri;" & vbCrLf _
& " mso-ascii-theme-font:minor-latin;" & vbCrLf _
& " mso-fareast-font-family:" & Chr(34) & "Times New Roman" & Chr(34) & ";" & vbCrLf _
& " mso-fareast-theme-font:minor-fareast;" & vbCrLf _
& " mso-hansi-font-family:Calibri;" & vbCrLf _
& " mso-hansi-theme-font:minor-latin;" & vbCrLf _
& " mso-bidi-font-family:" & Chr(34) & "Times New Roman" & Chr(34) & ";" & vbCrLf _
& " mso-bidi-theme-font:minor-bidi;}" & vbCrLf _
& "@page Section1" & vbCrLf _
& " {size:8.5in 11.0in;" & vbCrLf _
& " margin:1.0in 1.0in 1.0in 1.0in;" & vbCrLf _
& " mso-header-margin:.5in;" & vbCrLf _
& " mso-footer-margin:.5in;" & vbCrLf _
& " mso-paper-source:0;}" & vbCrLf _
& "div.Section1" & vbCrLf _
& " {page:Section1;}" & vbCrLf _
& "-->" & vbCrLf _
& "</style>" & vbCrLf _
& "" & vbCrLf _
& "</head>" & vbCrLf _
& vbCrLf _
& "<body lang=EN-US style='tab-interval:.5in'>" & vbCrLf _
& vbCrLf _
& "<div class=Section1>" & vbCrLf _
& vbCrLf

strFFoot="<a name=" & chr(34) & "_MailAutoSig" & chr(34) & ">" & vbCrLf _
& vbCrLf _
& "<v:shape id=" & chr(34) & "Picture_x005f_x0020_2" & chr(34) & vbCrLf _
& " o:spid=" & chr(34) & "_x0000_i1025" & chr(34) & " type=" & chr(34) & "#_x0000_t75" & chr(34) & vbCrLf _
& " alt=" & chr(34) & chr(34) & " style='width:215.25pt;height:33pt'>" & chr(34) & vbCrLf _
& " <v:imagedata src=" & chr(34) & "C:\Documents and Settings\shampton\Application Data\Microsoft\Signatures\Fancy1_files\Fancysign1.png" & chr(34) & " o:href=" & chr(34) & "cid:image006.png@01C9A973.E194FA60" & chr(34) & vbCrLf _
& " cropleft=" & chr(34) & "1759f" & chr(34) & "/>" & vbCrLf _
& "</v:shape>" & vbCrLf _
& vbCrLf _
& " Steve Hampton" & vbCrLf _
& vbCrLf _
& " Technical " & vbCrLf _
& "Support" & vbCrLf _
& vbCrLf _
& " 636-946-6525 " & vbCrLf _
& "x1269" & vbCrLf _
& vbCrLf _
& "<v:shape id=" & chr(34) & "Picture_x005f_x0020_1" & chr(34) & vbCrLf _
& " o:spid=" & chr(34) & "_x0000_i1026" & chr(34) & " type=" & chr(34) & "#_x0000_t75" & chr(34) & " alt=" & chr(34) & "LMI Graphic Logo 001 Cut" & chr(34) & vbCrLf _
& " style='width:213pt;height:45pt'>" & vbCrLf _
& " <v:imagedata src=" & chr(34) & "C:\Documents and Settings\shampton\Application Data\Microsoft\Signatures\Fancy1_files\logo.png" & chr(34) & " o:href=" & chr(34) & "cid:image005.png@01C9A973.E194FA60" & chr(34) & "/>" & vbCrLf _
& "</v:shape>" & vbCrLf _
& vbCrLf _
& " " & vbCrLf

' Add data specific to Reply emails only
strRPath1="<link rel=File-List href=" & chr(34) & "Reply1_files/filelist.xml" & chr(34) & ">" & vbCrLf _
& "<link rel=Edit-Time-Data href=" & chr(34) & "Reply1_files/editdata.mso" & chr(34) & ">" & vbCrLf

strRPath2="<link rel=themeData href=" & Chr(34) & "Reply1_files/themedata.thmx" & Chr(34) & ">" & vbCrLf _
& "<link rel=colorSchemeMapping href=" & Chr(34) & "Reply1_files/colorschememapping.xml" & Chr(34) & ">" & vbCrLf

strRFoot="<v:shape id=" & chr(34) & "Picture_x005f_x0020_2" & chr(34) & vbCrLf _
& " o:spid=" & chr(34) & "_x0000_i1025" & chr(34) & " type=" & chr(34) & "#_x0000_t75" & chr(34) & vbCrLf _
& " alt=" & chr(34) & chr(34) & " style='width:215.25pt;height:33pt'>" & chr(34) & vbCrLf _
& " <v:imagedata src=" & chr(34) & "C:\Documents and Settings\shampton\Application Data\Microsoft\Signatures\Reply1_files\Replysign1.png" & chr(34) & " o:href=" & chr(34) & "cid:image006.png@01C9A973.E194FA60" & chr(34) & vbCrLf _
& " cropleft=" & chr(34) & "1759f" & chr(34) & "/>" & vbCrLf _
& "</v:shape>" & vbCrLf _
& vbCrLf

do while bQuit < 1
sFontSize=36.0
'Read random line from array
Randomize
objRandom = Int( ( max - 1 + 1 ) * Rnd + 1 )
sQuote = trim(arrLines(objRandom-1))
strLen=len(sQuote)
if strLen > 76 then
if strLen < 78 then
sFontSize = 35
elseif strLen < 81 then
sFontSize = 34
elseif strLen < 85 then
sFontSize = 33
' elseif strLen < 90 then
' sFontSize = 31
elseif strLen > 146 then
sFontSize=35.0
if strLen > 157 then
sFontSize = 32.0
if strLen > 173 then
sFontSize = 30.0
if strLen > 185 then
sFontSize = 29.0
if strLen > 193 then
sFontSize = 27.0
if strLen > 200 then
sFontSize = 26.0
if strLen > 211 then
sFontSize = 25.0
if strLen > 219 then
sFontSize = 24.0
if strLen > 223 then
sFontSize = 22.0
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if

strQuote="" & trim(sQuote) & vbCrLf _
& "" & vbCrLf _
& vbCrLf _
& "</div>" & vbCrLf _
& vbCrLf _
& "</body>" & vbCrLf _
& vbCrLf _
& "</html>"

strFancy1=strHead1 & strFPath1 & strHead2 & strFPath2 & strBody & strFFoot & strQuote
strReply1=strHead1 & strRPath1 & strHead2 & strRPath2 & strBody & strRFoot & strQuote

'Set objFSO = CreateObject("Scripting.FileSystemObject")
set objTextFile1 = objFSO.OpenTextFile(strFile2,ForWriting)
set objTextFile2 = objFSO.OpenTextFile(strFile3,ForWriting)

objTextFile1.WriteLine(strFancy1)
objTextFile2.WriteLine(strReply1)

objTextFile1.close
objTextFile2.close

'if strLen > 76 then
' if strLen < 88 then
' oWS.popup "Quote is " & strLen & " Characters long"
' end if
'end if
wScript.Sleep(30000) ' Sleep for 30 seconds
Loop

However this does only work for the HTML Signature files. Still looking for a way to include Rich Text and Text Signature files. Thanks for all the help!

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Some of the files in this Web page aren't in the expected location

SHampton

MIS

SHampton

MIS

tsuji

Technical User

SHampton

MIS

tsuji

Technical User

SHampton

MIS

SHampton

MIS

SHampton

MIS

Similar threads

Part and Inventory Search

Sponsor