2007年9月24日
【ACCESS/VBA】フォームからメールを送信する
せっかくテーブルにメールアドレスと名前、所属などの情報があるのならば、それを使って事務連絡等をした方が断然効率がいい。よく、メルマガ等で○○様という宛名でメールが送信される仕組みと似ている。OUTLOOKがインストールされていないと不発に終わる。問題解決に2時間くらい掛かった。(涙)
詳しくはこちら
Private Sub cmd_実行コマンド_Click()
On Error GoTo エラー
Dim db As DAO.Database 'DAOを用います。参照設定を確認して下さい。
Dim rs As DAO.Recordset
Dim strEmail As String '送信先のEmailアドレスです。
Dim strOwnEmail As String '送信元のEmailアドレスです。
Dim strSubject As String
Dim strText As StringSet db = CurrentDb
Set rs = db.OpenRecordset("tbl_sample")
strEmail = ""
strOwnEmail = "webmaster@accessclub.jp"
strSubject = Me.txt_件名
strText = Me.txt_送信内容
Do Until rs.EOF '対象とするテーブルの最後まで進みます。
If rs!CK = True Then 'IF構文で分岐させます。
strEmail = strEmail & rs!Emailアドレス & ";"
End If
rs.MoveNext
Loop
DoCmd.SendObject acSendNoObject, , , , , strEmail & strOwnEmail, _
strSubject, strText, Truers.Close: Set rs = Nothing
db.Close: Set db = NothingExit Sub
エラー:
If Err.Number = 94 Then
MsgBox "件名又は送信内容が空白では、実行できません", 16
Else
MsgBox "何か予期せぬエラーが発生しました。エラーコード:" & _
Err.Number & Chr(13) & Err.Description
End If
End
End Sub
- by editor
- at 11:14
編集長のおすすめの一冊!2010
comments