dMail("192.168.1.19", sendadd, resvAdd, subject, content, "")
End Sub
Public Shared Sub checkmail(ByVal tesadd As String, ByVal password As String)
Dim basptest As New BASP21Lib.Basp21
Dim test As String
Dim resvAdd As String
Dim arrFile As Object
Dim eachF As Object
Dim strMailInfo As String
Dim strLast As Object
Dim thePath As String
Dim mes As Object
Dim message As String
thePath = GetCurrentDirectory() & CStr("\Mail")
strM页码：[1] [2] [3] [4] [5] 第2页、共5页 |
