Imports CDO Imports ADODB Public Class MHTML Public cMHTMLUrl As String = "" Public cSaveFile As String = "" ' CDO message object Private oMessage As CDO.Message = New CDO.Message ' Get the MHTML file Public Function GetMHTML() As Boolean Dim llSuccess As Boolean = False Dim loStream As ADODB.Stream ' Go get the page oMessage.CreateMHTMLBody(cMHTMLUrl, CDO.CdoMHTMLFlags.cdoSuppressNone, "", "") loStream = oMessage.GetStream() ' Save to file loStream.SaveToFile(cSaveFile, SaveOptionsEnum.adSaveCreateOverWrite) llSuccess = True Return llSuccess End Function End Class