veramente no... però se mi vuoi dare tutti questi soldi io accetto volentieri 
ci sono vari modi
METODOLOGIA NUMERO 1 [ il template ]
ti fai una pagina html semplice, e nei punti dove vuoi inserire le parti dinamiche ci scrivi (ad esempio) [$TITOLO$], [$MESSAGGIO$]
poi carichi di volta in volta il template in una variabile con una funzione semplice semplice come
codice:
function loadFile(argFile)
Dim objFSO, objFile, strFileName, strOutput
strFileName = Server.MapPath(argFile)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFileName, 1, True)
If Not objFile.AtEndOfStream Then
loadFile = objFile.ReadAll
Else
loadFile = ""
End If
set objFile = nothing
set objFSO = nothing
end function
e elabori la variabile
codice:
dim template, titolo, messaggio
titolo = "offerta del mese!"
messaggio = "bla bla bla"
template = loadFile("template.htm")
template = replace(template,"[$TITOLO$]",titolo)
template = replace(template,"[$MESSAGGIO$]",messaggio )
'INVII COME TESTO DELL'EMAIL LA VARIABILE TEMPLATE
inoltre questa soluzione ti permette di modificare l'html come e quando vuoi
se non ti servono parti dinamiche nell'email (la lasci fissa) puoi evitare le righe con i replace
----------------------
se la cosa non ti va bene, e mi aiuti a capire meglio la problematica ti posso indicare altre strade
le vie della programmazione sono molteplici...