|
' ****************************************************
' 一覧取得ボタン
' ****************************************************
Private Sub btnGetList_Click()
Dim output As Variant
Dim I As Integer
output = Basp21.RcvMail(POP, _
txtUser.Text, _
txtPassword.Text, _
"LIST", _
RCVDIR)
If IsArray(output) Then
With flxGrid
.Rows = UBound(output) + 2
For I = 0 To UBound(output)
.Row = I + 1
.TextMatrix(I + 1, 0) = I + 1
.Col = 2: .ColSel = 4
.Clip = output(I)
Next
.Row = 1
.Col = 1: .ColSel = 4
End With
Else
MsgBox (output)
End If
End Sub
| |