outlookVBAでメールにファイルを自動添付する方法【簡単です】

vba-mail-attachmemt

こんにちは、RPAライターのやまもとてつやです。

  • VBAを使って、メールにファイルを自動添付したい
  • 添付を自動で行うメリットってあるの?

当記事では、上記のような疑問にお答えします。

Outlookで添付ファイルを自動化するメリットはあります。

大量に添付ファイルを貼り続けてはメールをするという定型作業も決して少なくありません。

もし、そんな作業を行っているのであれば、自動化したほうが楽ではないでしょうか。

当記事では、OutlookVBAを使ってファイルを自動添付する方法について解説します。

ぜひ1度読んでみてください。

この記事でわかること(メリット)
  • VBAでメールにファイルを自動添付する方法がわかる
  • ファイルを設定する時間が省けるので、手が空く
  • 添付漏れによる二度手間がなくなるのでミスが減る
目次

addメソッドで、メールにファイルを添付する

添付ファイルの自動化には、attachment.addメソッドを使います。

.attachment.add(ファイルのフルパス)と入力すれば、ファイルが自動添付が可能です。

フルパスは、ファイルのプロパティで調べられます。

excel_file_property

上の場合、ファイルのフルパスはC:\Users\user\Desktop\VBA.xlsmです。

実際のコード例は下記になります。

Sub メール作成2()
    'メール作成時のおまじない

    'Outlookアプリケーションオブジェクトの取得
    Dim MyOutlook As Outlook.Application
    Set MyOutlook = New Outlook.Application

    'メールitemオブジェクトの取得
    Dim Mailitem As Outlook.Mailitem
    Set Mailitem = MyOutlook.CreateItem(olMailItem)
    
    '添付ファイル
    Dim File As String
    File = "添付したいファイルのフルパス"
  
    '宛先やCcの設定
    With Mailitem
        
        .To = Range("C2") '宛先
        .CC = Range("C3") 'Cc
        .BCC = Range("C4") 'Bcc
        
        .Subject = Range("C6") '件名
       .Body = Range("C7")  '本文   
        .Attachments.Add (File)  '添付
    
    End With
    
    'メールの表示
    Mailitem.Display
    
End Sub

もし、毎日決まりきったファイルを添付して送っているならぜひ積極的に活用してみてください。

まとめ

というわけで、VBAでファイル添付を自動設定する方法を解説しました。

なお、本格的にOutlook VBAを勉強するなら本で勉強するのがオススメ。

リンクで紹介している本は、「いつも隣にITのお仕事」というサイトを運営している高橋さんの本です。

ぜひ、一度読んでみてはどうでしょうか。

本日も最後まで読んでいただき、ありがとうございました。

  • URLをコピーしました!

運営者プロフィール

やまもとてつやのアバター やまもとてつや RPAライター

2021年10月にライター活動開始。
得意ジャンルはIT(Windows・RPA)と金融(保険・仮想通貨)。
SEOライティングとSNS運用を中心に活動中で、最近は念願だった電子書籍の執筆・編集も担当。
AI以上に正確で格調高い文章が書けると評価をいただいています。

目次