ソフト開発塾　ＶＢでメールソフトを作成

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim strData As String Winsock1.GetData strData, vbString Debug.Print strData End Sub

ここでは、Debug.Printで、イミディエイトに内容を表示しています。

次に、メール受信処理のＰＯＰサーバーにコマンドを送信するコードを記述します。
（ＰＯＰサーバーのコマンドは、専門サイト等で、お調べ願います。抜粋）

1. USERコマンドで、ユーザー名を送信します。
2. PASSコマンドで、パスワードを送信します。
3. RETRコマンドで、保管されているメール番号を送信します。

たとえば、こんな感じです。

Private Sub Command1_Click() Winsock1.SendData "USER userid" + vbLf wait Winsock1.SendData "PASS password" + vbLf wait Winsock1.SendData "RETR 1" + vbLf End Sub

解説

Winsock1.SendData "USER userid" + vbLf

useridは、pop3に、ログインするＩＤ

Winsock1.SendData "PASS password" + vbLf

passwordは、ログインＩＤに対するパスワード

Winsock1.SendData "RETR 1" + vbLf

１は、メッセージ番号です。

waitは、メッセージ受信のための待ち処理を行ってください。

送信処理も同じ感じで行えます。
ＳＭＴＰサーバーにコマンドを送信すれば、簡単に送信できます。
送信プログラムは、ソフトライブラリにあります。