VBScript

Add an External Style Sheet for MHT Conversion

Demonstrates Mht.AddExternalStyleSheet, which adds a style-sheet URL to the list of external CSS resources downloaded and embedded during conversion.

Background. This is normally unnecessary because Chilkat automatically discovers references present in the static HTML. It is useful when a stylesheet is applied by means Chilkat cannot detect from the static markup.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set mht = CreateObject("Chilkat.Mht")

'  Add an external style-sheet URL to the list of CSS resources downloaded and embedded during
'  conversion.  This is normally unnecessary because Chilkat automatically discovers
'  <link rel="stylesheet"> references in the static HTML.
mht.AddExternalStyleSheet "https://example-code.com/crumb/style.css"

'  Create the MHT web archive.  The external style sheet is downloaded and embedded.
mhtText = mht.GetMHT("https://example-code.com/crumb/index.html")
If (mht.LastMethodSuccess = 0) Then
    outFile.WriteLine(mht.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(mhtText)

outFile.Close