ベストアンサー

ACCESSを使ってメール送信

2002/05/25 18:18

ACCESSで顧客情報を管理しているのですが、顧客全員に同じ内容のメールを送信したいと考えています。 ACCESSを使ってメールを送信する方法を教えてください。なにかサンプルがあるとうれしいです。ちなみに環境はWIN98、MS-ACCESS2000です。

a68
お礼率58% (64/109)

オフィス系ソフト
回答数3
ありがとう数2

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

noname#11157

2002/05/27 13:52 回答No.3

このような感じです。 'メール送信はメーラーの機能を使用し、行う。 'メーラーがMAPIに対応している必要がある。 Private Sub snd_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset 'レコードセット Dim mtitl As String 'メールタイトル Dim mnaiyou As String 'メール送信内容 Dim mnaiyou2 As String 'メール送信内容（変換後） Dim i As Integer 'ループカウンタ mtitl = Me![titl] mnaiyou = Me![naiyo] '送信内容からＣＲ・ＬＦを除去 mnaiyou2 = "" For i = 1 To Len(mnaiyou) If Asc(Mid(mnaiyou, i, 1)) = 13 Or Asc(Mid(mnaiyou, i, 1)) = 10 Then mnaiyou2 = mnaiyou2 + Chr(Asc(Mid(mnaiyou, i, 1))) Else mnaiyou2 = mnaiyou2 + Mid(mnaiyou, i, 1) End If Next i '送信 Set cn = CurrentProject.Connection rs.Open "メールアドレステーブル", cn Do Until rs.EOF 'メールアドレスに「@」がないもの、スペースがあるものはメールアドレスの間違い If InStr(rs![メールアドレス], "@") > 0 And InStr(rs![メールアドレス], " ") < 1 Then DoCmd.SendObject , , acFormatTXT, rs![メールアドレス], , , mtitl, mnaiyou2, False End If rs.MoveNext Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing MsgBox "メール送信終了" End Sub

質問者

お礼 2002/05/28 17:44

出来ました。ありがとうございます。

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

noname#11157

2002/05/27 09:28 回答No.2

書き忘れがありました。サンプルプログラムですが、ＨＥＬＰを参考にしてください。

質問者

お礼 2002/05/27 10:59

回答ありがとうございます。実はACCESSは使い始めたばかりなのでヘルプ見てもよく分からかったです(-_-；) フォームに件名とメッセージを入力して送信ボタンを押すとテーブルにあるメールアドレスを参照してメールを送信するものを作りたいと考えてます。出来ればサンプルプログラムがあるとうれしいのですが… すいません、お願いします。

ログインすると、全ての回答が全文表示されます。