• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 424
  • Last Modified:

How to convert html page to mhtml

Does anyone have any thoughts on converting html to mhtml?

I have a html page that I need to get converted into mhtml.  This is be
be done through code dynamically.

Thanks :)
0
swansonplace
Asked:
swansonplace
  • 7
  • 2
1 Solution
 
iscodeCommented:
0
 
swansonplaceAuthor Commented:
Thanks.  I am not up on asp.net, and I am in a bit of a time crunch.  Do
you know of anything in classic asp.
0
 
iscodeCommented:
you cant do it in asp I belive
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
iscodeCommented:
If you need a converter exe file to run on you computer
then download from here
http://www.mirrorservice.org/sites/download.sourceforge.net/pub/sourceforge/h/ht/html2mht/
 
0
 
iscodeCommented:
but you can also do that in your browser save as
0
 
iscodeCommented:
after a thought I think you can do this with CDO CreateMHTMLBody Method
I have not tried it
0
 
iscodeCommented:

<%
    SMTPServer = "server.mysite.com"  
    cdoURL = "http://schemas.microsoft.com/cdo/configuration/
 
    MHTMLBody = "http://www.mysite.com/yourhtml.html" 
 
    Set cdoM = CreateObject("CDO.Message")  
    Set cdoC = CreateObject("CDO.Configuration")  
    Set cdoF = cdoC.Fields  
 
    With cdoF  
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
      .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False  
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60  
        .Update  
    End With  
 
    With cdoM  
        Set .Configuration = cdoC  
         
        .CreateMHTMLBody MHTMLBody
        .From = Request("sender")  
        .To = Request("receiver")  
        .Subject = Request("subject")  
        .TextBody = Request("body")
        .Send  
    End With  
 
    Set cdoM = Nothing  
    Set cdoS = Nothing  
    Set cdoF = Nothing  
%>


0
 
swansonplaceAuthor Commented:
THANK YOU.  I will take a look at it.
0
 
iscodeCommented:
Your welcome swansonplace
glad I could help

iscode
0

Featured Post

Receive 1:1 tech help

Solve your biggest tech problems alongside global tech experts with 1:1 help.

  • 7
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now