web1.Navigate ("http://" & txttype.Text & ".zzn.com")
Do Until web1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
With web1.Document
.All("loginname").Value = lstDwnUsers.Text
.All("loginpassword").Value = lstDwnPass.Text
.Forms(1).submit
End With
Do Until web1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
web1.Navigate ("http://" & txttype.Text & ".zzn.com/email/english/noframes/mailer/t_baseform.asp?whattodo=showfolder&toolbar=y&FolderID=Inbox")
Do Until web1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
txtHTML.Text = web1.Document.documentelement.outerHTML
sSrchLeft = "totalretard"
sSrchRight = lstDwnemail.Text
iPos1 = InStr(1, txtHTML.Text, sSrchLeft)
iPos2 = InStr(iPos1, txtHTML.Text, sSrchRight)
txtHTML.Text = Mid(txtHTML.Text, iPos1 + Len(sSrchLeft), iPos2 - (iPos1 + Len(sSrchLeft)))
txtHTML.Text = Right$(txtHTML.Text, 170)
sSrchLeft = "MessageID"
sSrchRight = "CurrentChunk"
iPos1 = InStr(1, txtHTML.Text, sSrchLeft)
iPos2 = InStr(iPos1, txtHTML.Text, sSrchRight)
txtHTML.Text = Mid(txtHTML.Text, iPos1 + Len(sSrchLeft), iPos2 - (iPos1 + Len(sSrchLeft)))
web1.Navigate ("http://" & txttype.Text & ".zzn.com/email/english/noframes/view/t_view.asp?MessageID" & txtHTML.Text & "CurrentChunk=1"), "C:\temp.html"
Do Until web1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
txtHTML.Text = web1.Document.documentelement.outerHTML
sSrchLeft = "p_download"
sSrchRight = lstDownload.Text
iPos1 = InStr(1, txtHTML.Text, sSrchLeft)
iPos2 = InStr(iPos1, txtHTML.Text, sSrchRight)
txtHTML.Text = Mid(txtHTML.Text, iPos1 + Len(sSrchLeft), iPos2 - (iPos1 + Len(sSrchLeft)))
txtHTML.Text = Replace(txtHTML.Text, "amp;", "")
Inet1.URL = ("http://" & txttype.Text & ".zzn.com/email/english/noframes/view/p_download" & txtHTML.Text & lstDownload.Text)