Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Access 2016)
DoCmd.SendObjectを利用して添付ファイルを付けて送信できますでしょうか
投稿日時: 20/05/18 15:58:31
投稿者: takatada72

お世話になります。
 
フォームを作り、ボタンをクリックすると、フォームに記載されている担当、製品番号、品名などを
記載されたメールが作成されるのですが、指定した添付ファイルを付けた状態で、メールを作成する
ことは可能でしょうか
※共有の場所に、製品番号.pdfが可能されているため、それをメールに添付したいのです。
※DoCmd.SendObjectの所に添付の場所を記載すれば良いかと考えて、やって見たのですが、うまく
いかないためこちらに投稿させて頂きました。
 
宜しくお願い致します。
 
 
    Dim strTo As String
    Dim strSubject As String
    Dim strMessage As String
    Dim strCc As String
    Dim hizuke As String
 
        Dim hinmei As String
        Dim bangou As String
        Dim hantei As String
        Dim tantou As String
 
On Err GoTo gotoend
     
    hinmei = Form_フォーム!品名
    bangou = Form_フォーム!品番
    hizuke = Date
    tantou = Form_フォーム!担当
    meado = ""
     
 
    If tantou = "担当1" Then meado = "tanto1@test.com"
    If tantou = "担当2" Then meado = "tanto2@test.com"
    If tantou = "担当3" Then meado = "tanto3@test.com"
    If tantou = "担当4" Then meado = "tanto4@test.com"
    If tantou = "担当5" Then meado = "tanto5@test.com"
    If tantou = "担当6" Then meado = "tanto6@test.com"
    If tantou = "担当7" Then meado = "tanto7@test.com"
 
 
 
     
'件名
    strSubject = "「製品仕様書が未確認OKです。」 " & bangou & " " & hinmei
 
'ここから本文の内容
    strMessage = strMessage & "お疲れさまです。" & Chr(13) & Chr(10)
    strMessage = strMessage & Chr(13) & Chr(10)
    strMessage = strMessage & "先程、件名の製品名を確認しました。" & Chr(13) & Chr(10)
    strMessage = strMessage & "製品情報がありませんので、確認を中止しました。" & Chr(13) & Chr(10)
    strMessage = strMessage & Chr(13) & Chr(10)
    strMessage = strMessage & "お忙しいとは思いますが宜しくお願い致します。" & Chr(13) & Chr(10)
     
    strMessage = strMessage & "" & Chr(13) & Chr(10)
    strMessage = strMessage & "" & Chr(13) & Chr(10)
     
    'あて先
    
    strTo = meado
    strCc = "GROUPMail@testcom;CCMail@test.com"
             
'メールをキャンセルした場合のエラー処理
On Error Resume Next
'メールの作成
    DoCmd.SendObject , , acFormatHTML, strTo, strCc, , strSubject, strMessage
    On Error GoTo 0
                 
    End
     
gotoend:

投稿日時: 20/05/18 17:21:08
投稿者: takatada72

お疲れさまです。
 
下記のサイトにてヒントをもらい自己解決しました。
 
参考までに掲載させて頂きます。
[三流君] Outlookでファイルを添付するには?.Attachments.Add
\http://www.ken3.org/vba/backno/vba078.html
 
クローズさせて頂きます。