トップ  >  サンプルソース  >  メール送信!!(VBS/VBA)

メール送信!!(VBS/VBA)

2011年01月09日

メールを送信するサンプル(C#/VB.NET)に続き、今回はVBS/VBA(EXCEL等)のサンプル(ソース/コード)です。BASP21を使用しています。メール関係のプログラムを作るならBASP21が一番簡単だと思います。

メール送信時のSMTP認証(POP BEFORE SMTP認証等)はしていません。

前回のサンプルは メール送信!!(C#/VB.NET) です。
次回のサンプルは メール受信!!(VBS/VBA) です。
メール関係のツールやサンプルはこちら「メール関係」です。

' --------------------------------------------------------
' メールを送信するサンプル(VBS)
' Basp21.dllとBsmtp.dllをC:\Windowsにコピーしています
' [Regsvr32.exe Basp21.dll]を実行しています

' メール送受信APIの宣言
Set BASP21 = CreateObject("Basp21")
    
' メール送信
msg2 = BASP21.SendMail("smtp.xxx.co.jp", _
    "to@xxx.co.jp", "from@xxx.co.jp", _
        "メールタイトル", "メール本文", "")
    
' 送信結果チェック
If msg2 = "" Then
    MsgBox "メール送信OK"
Else
    MsgBox "メール送信NG"
End If
' --------------------------------------------------------

' --------------------------------------------------------
' メールを送信するサンプル(VBA)
' Basp21.dllとBsmtp.dllをC:\Windowsにコピーしています
' [Regsvr32.exe Basp21.dll]を実行しています
Private Sub CommandButton1_Click()
    ' メール送受信APIの宣言
    Set BASP21 = CreateObject("Basp21")
    
    ' メール送信
    msg2 = BASP21.SendMail("smtp.xxx.co.jp", _
        "to@xxx.co.jp", "from@xxx.co.jp", _
        "メールタイトル", "メール本文", "")
    
    ' 送信結果チェック
    If msg2 = "" Then
        MsgBox "メール送信OK"
    Else
        MsgBox "メール送信NG"
    End If
End Sub
' --------------------------------------------------------
スポンサーサイト

ZIPパスワード解析(ツール) | トップページへ戻る | 忘れたパスワード確認(ツール)

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

コメント

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

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

トラックバック

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