Solved

How to convert html page to mhtml

Posted on 2006-11-18
9
391 Views
Last Modified: 2008-01-09
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
Comment
Question by:swansonplace
  • 7
  • 2
9 Comments
 
LVL 6

Expert Comment

by:iscode
ID: 17972283
0
 

Author Comment

by:swansonplace
ID: 17972315
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
 
LVL 6

Expert Comment

by:iscode
ID: 17972356
you cant do it in asp I belive
0
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 
LVL 6

Expert Comment

by:iscode
ID: 17972369
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
 
LVL 6

Expert Comment

by:iscode
ID: 17972480
but you can also do that in your browser save as
0
 
LVL 6

Expert Comment

by:iscode
ID: 17972542
after a thought I think you can do this with CDO CreateMHTMLBody Method
I have not tried it
0
 
LVL 6

Accepted Solution

by:
iscode earned 500 total points
ID: 17972562

<%
    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
 

Author Comment

by:swansonplace
ID: 17972683
THANK YOU.  I will take a look at it.
0
 
LVL 6

Expert Comment

by:iscode
ID: 17972722
Your welcome swansonplace
glad I could help

iscode
0

Featured Post

Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
I was asked about the differences between classic ASP and ASP.NET, so let me put them down here, for reference: Let's make the introductions... Classic ASP was launched by Microsoft in 1998 and dynamically generate web pages upon user interact…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question