_INetGetMHT function error

[tmabell]

Hi, I'm attempting to use the script below, which others have confirmed works in prior posts but keep getting an error "Error Unknown function name".

Any ideas as to what I'm doing wrong?

#include <GUIConstants.au3>
#include <Date.au3>
AutoItSetOption("TrayIconDebug", 1);0-off
Sleep(3000)
_INetGetMHT( "<a href='http://www.pollen.com/oneday_media.asp?affiliateid=10050&zip=46544' class='bbc_url' title='Pollen' rel='nofollow external'>http://www.pollen.com/oneday_media.asp?affiliateid=10050&zip=46544"</a>, "C:\Temp\test.MHT" )
Func _INetGetMHT( $url, $file )
    Local $msg = ObjCreate("CDO.Message")
    If @error Then Return False
    Local $ado = ObjCreate("ADODB.Stream")
    If @error Then Return False

    With $ado
        .Type = 2
        .Charset = "US-ASCII"
        .Open
    EndWith
    $msg.CreateMHTMLBody($url, 0)
    $msg.DataSource.SaveToObject($ado, "_Stream")
    FileDelete($file)
    $ado.SaveToFile($file, 1)
    $msg = ""
    $ado = ""
    Return True
EndFunc

[JohnOne]

Show full error

[tmabell]

[BrewManNH]

You're missing a closing quote after the </a> and before the comma.

[tmabell]

Thanks!  That cleared the error but the result is a blank MHT file.  I suspect it has to do with what that web site is doing.  Any chance you could try it from your end & see what is saved?

[JohnOne]

Probably should be

#include <GUIConstants.au3>
#include <Date.au3>
AutoItSetOption("TrayIconDebug", 1);0-off
Sleep(3000)
_INetGetMHT( "http://www.pollen.com/oneday_media.asp?affiliateid=10050&zip=46544", "C:\Temp\test.MHT" )
Func _INetGetMHT( $url, $file )
    Local $msg = ObjCreate("CDO.Message")
    If @error Then Return False
    Local $ado = ObjCreate("ADODB.Stream")
    If @error Then Return False

    With $ado
        .Type = 2
        .Charset = "US-ASCII"
        .Open
    EndWith
    $msg.CreateMHTMLBody($url, 0)
    $msg.DataSource.SaveToObject($ado, "_Stream")
    FileDelete($file)
    $ado.SaveToFile($file, 1)
    $msg = ""
    $ado = ""
    Return True
EndFunc

Looks like the url got messed up.

[tmabell]

That works!!  You have no idea how long I've been trying to get this done before I remembered the old reliable Autoit and the great, skilled people who use it.  Thank you so very much!

[JohnOne]

Ace.