- Код: Выделить всё
Private Sub Command11_Click()
For Each testlink In WebBrowser1.Document.links
If InStr(1, testlink.href, "index.php?cf=pmail-readm&uid=1034038&mid=", vbTextCompare) Then
Text5 = testlink.innerText
testlink.Click
Exit For
End If
Next testlink
End Sub