No.2ベストアンサー
- 回答日時:
VBAって、Accessのモジュールのことですから、Accessの機能ですよ。
BASP21は、Accessの機能ではありませんが、それほど難しいものではありませんよ。
下記は、サンプルです。
Sub メール送信()
' SMTPサーバーのアドレス
Const sSvName As String = "ご自分のSMTPサーバーのアドレス(xxx.co.jpってやつ)"
' メールのFromに入れるアドレス
Const sFrom As String = "自分のメールアドレス"
' BASP21
Dim bobj As Basp21
' BASP21のメッセージ
Dim sMsg As String
' データベース
Dim cnn As ADODB.Connection
' レコード
Dim rec As New ADODB.Recordset
' 送信先のアドレスを入れる変数
Dim sTo As String
' BASP21のオブジェクトを作成
Set bobj = CreateObject("BASP21")
' 現在のAccessのDBと接続
Set cnn = CurrentProject.Connection
' テーブルを開く
rec.Open "テーブル名またはクエリー名を書く", cnn, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect
Do Until rec.EOF
' 送信先のアドレスをテーブルから取得
sTo = rec.Fields("送信先のメールアドレスが入っているフィールドの名前").Value
' メールの送信
sMsg = bobj.SendMail(sSvName, sTo, sFrom, "メールの表題", "メールの本文", "")
If sMsg <> "" Then
'送信に失敗した場合のメッセージ
MsgBox sMsg
End If
'テーブルの次のレコードを読む
rec.MoveNext
Loop
' テーブルを閉じる
rec.Close
' 後始末
Set rec = Nothing
Set cnn = Nothing
Set bobj = Nothing
End Sub
アウトルックを使う方法もあると思いますが、VBAは避けてとおれないと思うのですが・・・
No.3
- 回答日時:
はっきり言うとVBAを使用しないと難しいと思います。
VBAのメールの添付は、それほど難しくないのでがんばってください。
1.フォームにコマンドボタンを一つ作ってください。
2.右クリックからプロパティを選択
3.イベントの「クリック時」を選択して「…」をクリックしてコードビルダ
を選択してください。
4・↓の記述をコピー&ペーストして下さい。
DoCmd.SendObject objectType:=acSendTable, _
objectname:="添付したいテーブル名", _
outputformat:=acFormatTXT, _ '←TEXT形式に自動添付Excel形式も可
To:=相手先のメールアドレス, _ '←~@~.ne.jpってやつ
subject:="お疲れ様です。", _ '←題名
messagetext:="???.Txtを添付致しました。後処理願います。" '内容
5.×で保存してコマンドボタンをクリックしてみて下さい。
以上です。
※3行目のacFormatTXTをacFormatXLSにするとExcel形式で自動添付することが
できます。
もしわからなければ追記して下さい。
No.1
- 回答日時:
この回答への補足
VBAは分からないんです。。。
なんとか、Accessの昨日のみで、テーブルのあるデータからメールをおくること
はできないでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Outlook(アウトルック) Excel表のメールアドレスリストからoutlookの宛先を設定、メールを送信する方法 2 2022/09/16 05:29
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- その他(メールソフト・メールサービス) メールアプリ spark にauメールが入れられない!!! 1 2022/08/19 23:51
- その他(パソコン・スマホ・電化製品) 私のメールアドレスを知らない知り合いから、スマホにEメールがきたのですが、宛先は私の携帯番号、差出人 3 2022/10/26 05:53
- その他(メールソフト・メールサービス) 大阪市プレミアム付き商品券のweb申し込みで楽天モバイルのEメールだと返信メールが届かない 2 2022/09/19 17:08
- ドメイン・サーバー・クラウドサービス ドメイン登録 1 2022/12/24 12:09
- その他(メールソフト・メールサービス) メールサーバーは「PC側がメールをDL済みか否か?」を何を以て感知するのか? 2 2022/12/20 14:56
- Gmail メーラーのThunderbirdの送信機能に関する質問です 3 2022/07/10 10:58
- ビジネスマナー・ビジネス文書 応募したバイト先から、電話で、適性検査をインターネット上で受けてほしいと言われました。その後メールで 1 2022/10/27 14:46
- Outlook(アウトルック) Outlook2019のアドレス帳を別のPCのOutlook2021のアドレス帳に移行するには 1 2023/07/23 13:36
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessでテーブル名やクエリ名...
-
access テーブル内のレコード...
-
ACCESSで指定されたテーブルか...
-
Accessでvlookupみたいなことは...
-
Accessの追加クエリで既存のテ...
-
SQLで条件指定結合をしたいがNU...
-
3つの表を1つに縦に連結する
-
Accessでテーブルからテーブル...
-
ACCESSに同時アクセス(編集)を...
-
ACCESS クエリ(カウント0の...
-
MS Access からメールを送るには
-
SQL: SELECT UNIONすると文字数...
-
AccessでのNULLのレコードの表...
-
Accessレコードの追加や変更が...
-
デザインビューで、連結式 を...
-
accessのマクロでODBC接続で外...
-
access97のリンクテーブルに...
-
クエリを開こうとすると"型が一...
-
テーブル作成クエリで主キーを設定
-
翌営業日までの日数をSQLで求め...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessでテーブル名やクエリ名...
-
Accessレコードの追加や変更が...
-
ACCESSに同時アクセス(編集)を...
-
access テーブル内のレコード...
-
3つの表を1つに縦に連結する
-
Accessでvlookupみたいなことは...
-
Accessの追加クエリで既存のテ...
-
Accessクエリでの、LIKE条件
-
Accessでテーブルからテーブル...
-
ツリー構造をRDBで表現するには?
-
デザインビューで、連結式 を...
-
ACCESSで指定されたテーブルか...
-
2つのテーブルを比較して一致し...
-
リンクテーブルを CopyObject ...
-
SQLで日付を条件に削除したい
-
SQLで条件指定結合をしたいがNU...
-
時間の足し算
-
パススルークエリをテーブル作...
-
ODBCで接続するとDBに変更/追加...
-
INSERT時にデータ登録とmaxの発...
おすすめ情報