質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.12%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

解決済

Access VBA CDOで添付ファイルを行ごとに記載されているアドレス宛にメールする。

emplus
emplus

総合スコア16

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

1回答

0リアクション

0クリップ

331閲覧

投稿2022/09/26 08:12

前提

objCDO.AddAttachment について教えて頂けないでしょうか?

ACCESS VBA 

実現したいこと

ACCESSのVBAで添付メール1個を複数の人に送りたい。
(ACCESS2016でメールの一括送信は実現している。)

発生している問題・エラーメッセージ

objCDO.AddAttachment ”フルバス" で
1通目 aという1ファイル添付
2通目 aという2ファイル添付
3通目 aという3ファイル添付
という倍数ゲームになってしまった。

呼び出すテーブルにはメールアドレスやあて名が入っていて 本文セクションをメールして次の行にいく感じになってます。

Option Compare Database

Public Function cdoSendMail_yoyaku_ka() As Boolean

Dim objCDO Dim MSgw Dim lbRet As Boolean Dim lsMsg As String On Error GoTo Err_Exit '--- 初期値セット --- lbRet = False lsMsg = "" '戻り値の初期化 cdoSendMail_yoyaku_ka = True Set objCDO = CreateObject("CDO.Message") 'CDOのスキーマを定義 MSgw = "http://schemas.microsoft.com/cdo/configuration/" With objCDO.Configuration.Fields 'メール送信方法 .Item(MSgw & "sendusing") = 2 'SMTPサーバーのアドレス .Item(MSgw & "smtpserver") = "" 'SMTPサーバーのポート .Item(MSgw & "smtpserverport") = 465 '差出人ユーザー名 .Item(MSgw & "sendusername") = "" '認証コード .Item(MSgw & "sendpassword") = "" 'SSL認証要 .Item(MSgw & "smtpusessl") = True '認証方式(1) .Item(MSgw & "smtpauthenticate") = cdoBasic 'タイムアウト .Item(MSgw & "smtpconnectiontimeout") = 60 .Update End With '差出人メールアドレス objCDO.From = "" Dim dbo As DAO.Database Dim rst As DAO.Recordset Dim sSqlStr As String Dim sTo As String Dim sCC As String Dim sBCC As String Dim skibou As String Dim sname As String Dim bumon As String Dim renraku As String Dim dkibou As String Dim stime As String Dim etime As String Dim uke As String sSqlStr = "SELECT * FROM 該当のテーブル名" Set dbo = CurrentDb Set rst = dbo.OpenRecordset(sSqlStr) Do Until rst.EOF 'あて先メールアドレス objCDO.To = rst.Fields("メールアドレス") sTo = rst.Fields("メールアドレス")

   'BCCメール指定
objCDO.BCC = ""

'件名 objCDO.Subject = "件名をココ" '申請者氏名 sname = rst.Fields("氏名") '本文 objCDO.TextBody = " " _ & vbNewLine & sname + "様" _ & vbNewLine _ & vbNewLine & "2行目はココ" _ & vbNewLine & "3行目はココ" _ & vbNewLine & "4行目はココ" _ '添付ファイル objCDO.AddAttachment "C:\work\hoge.zip" '文字化け対応のため追加 objCDO.TextBodyPart.Charset = "ISO-2022-JP" objCDO.Send rst.MoveNext Loop 'CDOオブジェクトの解放 Set objCDO = Nothing MsgBox "メールを送信しました。", vbOKOnly + vbInformation, "送信完了" cdoSendMail_hoge = True lbRet = True

rst.Close

dbo.Close

Exit Function

Err_Exit:

Select Case Err.Number Case -2147220977 lsMsg = Err.Description & Err.Number & vbCrLf Call sOutputLoglist(lsMsg) Resume Next Case Else MsgBox Err.Number & ":" & Err.Description & vbCrLf, vbOKOnly + vbCritical + vbSystemModal, "その他のエラー" 'CDOオブジェクトの解放 Set objCDO = Nothing End Select

End Function

ソースコード

試したこと

objCDO.AddAttachment "C:\work\hoge.zip" の記載を
違うところに置いたりと,色々と試してみたけど,
根本的な理解がないのでなにか違うような気がします・・・。

補足情報(FW/ツールのバージョンなど)

なんかすみません。

以下のような質問にはリアクションをつけましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

リアクションが多い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.12%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。