»áÔ±£º ÃÜÂ룺 ¡¡Ãâ·Ñ×¢²á | Íü¼ÇÃÜÂë | »áÔ±µÇ¼ ÍøÒ³¹¦ÄÜ£º ¼ÓÈëÊÕ²Ø ÉèΪÊ×Ò³ ÍøÕ¾ËÑË÷  
 °²È«¼¼Êõ¼¼ÊõÎĵµ
  ¡¤ °²È«ÅäÖÆ
  ¡¤ ¹¤¾ß½éÉÜ
  ¡¤ ºÚ¿Í½Ìѧ
  ¡¤ ·À»ðǽ
  ¡¤ Â©¶´·ÖÎö
  ¡¤ ÆƽâרÌâ
  ¡¤ ºÚ¿Í±à³Ì
  ¡¤ ÈëÇÖ¼ì²â
 °²È«¼¼ÊõÂÛ̳
  ¡¤ °²È«ÅäÖÆ
  ¡¤ ¹¤¾ß½éÉÜ
  ¡¤ ·À»ðǽ
  ¡¤ ºÚ¿ÍÈëÇÖ
  ¡¤ Â©¶´¼ì²â
  ¡¤ Æƽⷽ·¨
  ¡¤ É±¶¾×¨Çø
 °²È«¼¼Êõ¹¤¾ßÏÂÔØ
  ¡¤ É¨Ã蹤¾ß
  ¡¤ ¹¥»÷³ÌÐò
  ¡¤ ºóÃÅľÂí
  ¡¤ ¾Ü¾ø·þÎñ
  ¡¤ ¿ÚÁîÆƽâ
  ¡¤ ´úÀí³ÌÐò
  ¡¤ ·À»ðǽ
  ¡¤ ¼ÓÃܽâÃÜ
  ¡¤ ÈëÇÖ¼ì²â
  ¡¤ ¹¥·ÀÑÝʾ
¼¼ÊõÎĵµ > VBÎĵµ > ÍøÂç±à³Ì
±£´æÒ³ÃæΪMHTµÄ´úÂë
·¢±íÈÕÆÚ£º2005-02-24 14:18:24×÷ÕߣºÀ ³ö´¦£ºÁ¢»ªÈí¼þÔ°  

       ÓÐÊÇÎÒÃÇ´ò¿ªÒ»¸öÍøÒ³£¬ÀïÃæÓÐͼƬµÈºÃ¶àÄÚÈÝ£¬ÓÃIE¿ÉÒÔÖ±½Ó´æΪ¡°Web µµ°¸£¬µ¥Ò»Îļþ(*.mht)¡±£¬IEËäÈ»ÓÐÕâ¸ö¹¦ÄÜ£¬ÄÇôÎÒÃǵijÌÐòÄܲ»ÄÜÒ²ÓÐÕâ¸ö¹¦ÄÜ£¿

       ´ð°¸Êǿ϶¨µÄ£¬ÕâÐèÒªÎÒÃÇÒýÓá°Microsoft CDO for Windows 2000 Library¡±¡£ºÃ£¬ÏÂÃæÎÒÃǾͿªÊ¼ÕâÒ»¹¦ÄÜ¡£

       Ê×ÏÈ£¬Ð½¨Ò»¹¤³Ì£¬µã[¹¤³Ì]-[ÒýÓÃ]£¬Ñ¡Ôñ¡°Microsoft CDO for Windows 2000 Library¡±¡£

       ÔÚ´°ÌåÉÏÌí¼ÓÒ»¸ö°´Å¥¡ª¡ª¡°Command1¡±£¬Ë«»÷°´Å¥£¬ÔÚCommand1_ClickÖÐÌí¼ÓÈçÏ´úÂ룺

    Dim a As New CDO.Message
    a.CreateMHTMLBody "http://www.lihuasoft.net", cdoSuppressAll, "", ""

    '´ò¿ªÁ¢»ªÈí¼þÔ°£¬²¢±£´æ³ÉMHTML¸ñʽ
    Set b = a.GetStream
    b.SaveToFile "c:\1.mht" '±£´æµ½CÅÌ
    MsgBox "OK"

       Ìí¼ÓÍê³Éºó£¬°´F5£¬ÔËÐУ¬È»ºóµã»÷°´Å¥£¬µ±³öÏÖOKµÄʱºò£¬ÔÚCÅÌ¿´¿´£¬ÊDz»ÊǶàÁËÒ»¸ö1.mhtÎļþ£¿Ë«»÷´ò¿ª£¬ÊDz»ÊÇÁ¢»ªÈí¼þÔ°Ê×ҳѽ£¿

ÓüÇʱ¾´ò¿ªÕâ¸öÎļþ£¬ÒѾ­ÊDZê×¼µÄMHTÎļþÁË¡£

      ͨ¹ýÉÏÃæµÄ·½·¨£¬Äú¿ÉÒÔʵÏÖ±£´æMHTÎļþµÄ¹¦ÄÜ£¬Ï£ÍûÕâ¸ö¶«Î÷¶ÔÄúÓÐÓá£

¡¾·µ»Ø¶¥²¿¡¿ ¡¾´òÓ¡±¾Ò³¡¿ ¡¾¹Ø±Õ´°¿Ú¡¿

¹ØÓÚÎÒÃÇ / ¸øÎÒÁôÑÔ / °æȨ¾Ù±¨ / Òâ¼û½¨Òé / ÍøÕ¾±à³ÌQQȺ   
Copyright ©2003- 2024 Lihuasoft.net webmaster(at)lihuasoft.net ¼ÓÔØʱ¼ä 0.00154