トップ  >  サンプルソース  >  メール受信!!(C#/VB.NET)

メール受信!!(C#/VB.NET)

2010年01月21日

メールが来ているかどうかを確認するサンプルに続き、今回は実際にメールを受信しそのメールをメールボックスから削除するサンプル(ソース/コード)です。BASP21を使用しています。メール関係のプログラムを作るならBASP21が一番簡単だと思います。

ちなみにフリーのBASP21は32ビット版なので64ビットのマシンで実行する場合はx86モードでコンパイルする必要があります。([プロジェクト]の[プロパティ]の[コンパイル]の[詳細コンパイルオプション]の[ターゲットCPU]を[x86]に設定)

前回のサンプルは メール受信チェック(C#/VB.NET) です。
次回のサンプルは メール送信!!(C#/VB.NET) です。
SSL関係のサンプル SSLメール受信(C#/VB.NET) もあります。
メール関係のツールやサンプルはこちら「メール関係」です。

' --------------------------------------------------------
' メールを受信するサンプル(VB.NET/VS2005)
' Basp21.dllを参照設定しています
' Basp21.dllとBsmtp.dllを実行フォルダにコピーしています
Private Sub Button1_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) _
    Handles Button1.Click

    ' 起動フォルダ
    Dim AppPath As String = _
        System.AppDomain.CurrentDomain.BaseDirectory

    ' メール送受信APIの宣言
    Dim BASP21 As New BASP21Lib.Basp21Class

    ' メール受信およびメールボックスから削除
    Dim outary As Object = BASP21.RcvMail( _
        "pop.xxx.co.jp", "id", "psw", _
        "SAVD 1-1", AppPath)

    ' 受信メールチェック
    If IsArray(outary) Then
        Dim outary2 As Object = BASP21.ReadMail( _
            outary(0), "subject:from:date:", AppPath)
        MessageBox.Show("メール有り:" & outary2(1))
    Else
        MessageBox.Show("メール無し")
    End If
End Sub
' --------------------------------------------------------

// -------------------------------------------------------
// メールを受信するサンプル(C#.NET/VS2005)
// Basp21.dllを参照設定しています
// Basp21.dllとBsmtp.dllを実行フォルダにコピーしています
private void button1_Click(object sender, EventArgs e)
{
    // 起動フォルダ
    String AppPath =
        System.AppDomain.CurrentDomain.BaseDirectory;

    // メール送受信APIの宣言
    BASP21Lib.Basp21Class BASP21 =
        new BASP21Lib.Basp21Class();

    // メール受信およびメールボックスから削除
    object outary = BASP21.RcvMail(
        "pop.xxx.co.jp", "id", "psw",
        "SAVD 1-1", AppPath);

    // 受信メールチェック
    if (outary.GetType().IsArray)
    {
        object outary2 = BASP21.ReadMail(
            ((object[])outary)[0],
            "subject:from:date:", AppPath);
        MessageBox.Show("メール有り:" +
            ((object[])outary2)[1]);
    }
    else
    {
        MessageBox.Show("メール無し");
    }
}
// -------------------------------------------------------
スポンサーサイト

メール送信!!(C#/VB.NET) | トップページへ戻る | メール受信チェック(C#/VB.NET)

このページのトップに戻る

コメント

名前
題名
メールアドレス
WEBサイト
 
コメント
パスワード
  管理者にだけ表示を許可する

このページのトップに戻る

トラックバック

このページのトップに戻る