メール処理

メール送信

Basp21 をインストールする必要があります

オブジェクト変数の定義

LboxBasp *Basp;

インスタンス作成と、SMTPサーバ名(またはIPアドレス) の設定

Basp = new LboxBasp();
Basp->SMTPServer.operator = ("サーバー名");

送信処理

LboxString LMailTo;
LboxString LMailFrom;
LboxString LSubject;
LboxString LBody;

Dlg->EditGetText( IDC_TO, &LMailTo );
Dlg->EditGetText( IDC_FROM, &LMailFrom );
Dlg->EditGetText( IDC_SUBJECT, &LSubject );
Dlg->EditGetText( IDC_BODY, &LBody );

BOOL bRet;
bRet = Basp->SendMail( &LMailTo, &LMailFrom, &LSubject, &LBody );
if ( !bRet ) {
	Dlg->MsgOk( &(Basp->ErrorDescription) );
}

オブジェクトが不要になったら delete Basp を実行します

メール受信

オブジェクト変数の定義

LboxBasp *Basp;

インスタンス作成と、POP3サーバ名(またはIPアドレス) の設定
ユーザ名、パスワードの設定

Basp = new LboxBasp();
Basp->POP3Server.operator = ("サーバー名");
Basp->User.operator = ( "ユーザ" );
Basp->Password.operator = ("パスワード");

受信処理

Dlg->StatusSetText( "メールを受信しています" );
Dlg->Disable();
if ( !(Basp->RcvData( Lview )) ) {
	Dlg->MsgOk( &(Basp->ErrorDescription) );
}
Dlg->Enable();
Dlg->StatusSetText( "" );

オブジェクトが不要になったら delete Basp を実行します

メール本文の取得

	case WM_NOTIFY:
		if ( Lview != NULL ) {
			Lview->Notify( hDlg, lParam );
		}
		break;

	case LBOX_LV_DBLCLK:
		Lview->GetColumnText( 4, Item );
		Basp->GetBody( Item, Buff );
		Dlg->EditSetText( IDC_BODY, Buff );
		break;