GINPRO / SQLの窓と銀プログラマ

Const SMTP As String = "xxxxxxxx.sakura.ne.jp:587"
Const POP As String = "xxxxxxxx.sakura.ne.jp"
Const RCVDIR As String = ">C:\temp\rcvmail"
Dim Basp21 As Object

Private Sub ボタン_Click()


    MsgBox ("OK")
    
    Set Basp21 = CreateObject("Basp21")
    
    Dim ErrMessage As Variant
    ErrMessage = Basp21.SendMail( _
        SMTP, _
        Worksheets("Sheet1").Cells(3, 5).Value, _
        Worksheets("Sheet1").Cells(3, 8).Value & vbTab & Worksheets("Sheet1").Cells(4, 8).Value & ":" & Worksheets("Sheet1").Cells(5, 8).Value, _
        Worksheets("Sheet1").Cells(1, 5).Value, _
        Worksheets("Sheet1").Cells(2, 5).Value, _
        "" _
    )
    
    If ErrMessage <> "" Then
        MsgBox (ErrMessage)
    Else
        MsgBox ("メール送信が終了しました｡")
    End If

    
    Dim output As Variant
    Dim I As Integer
    
    output = Basp21.RcvMail(POP, _
                Worksheets("Sheet1").Cells(4, 8).Value, _
                Worksheets("Sheet1").Cells(5, 8).Value, _
                "LIST", _
                RCVDIR)
                
    If IsArray(output) Then
    
        For I = 0 To UBound(output)
        
            Worksheets("Sheet1").Cells(I + 6, 4).Value = output(I)
    
        Next
        
    Else
    
        MsgBox (output)
        
    End If

    Set Basp21 = Nothing

End Sub