2018.10.05みなさまこんにちは、ノグチです。VBAでOutlookでウインドウで開いているメールの添付ファイルを、ワンクリックで任意のフォルダに格納する方法をご紹介しています。vbaで、メールの添付ファイルをワンクリックで指定フォルダに保存する方法を複数回記事にわたってご紹介していきます。今回は、ActiveInspectionメソッドで、今開いているOutlookウインドウのInspectorオブジェクトを取得する方法をご紹介しています。VBAで、今開いているメールの添付ファイルをワンクリックで任意のフォルダに保存する方法を5ステップにわけて、連載記事でご紹介しています。今回は、InspectorオブジェクトのCurrentItemプロパティによるMailItemオブジェクトの取得についての説明です。tonari-it.com2018.10.01前回の記事では、InspectorオブジェクトのCurrentItemプロパティで、今開いているウインドウをOutlookのItemオブジェクトとして取得する方法をご紹介しました。今回の記事では、前回取得したOutlookアイテムオブジェクトのMailItemオブジェクトから、Attachmentsコレクションを取得する方法をご紹介していきます。VBAでOutlookでウインドウで開いているメールの添付ファイルを、ワンクリックで任意のフォルダに格納するためには、VBAで以下のステップを経ることになります。前回までの記事では、このステップ2の取得できたInspectorオブジェクトからMailitemオブジェクトを取得までをご紹介しました。このステップ2まででできたコードがこちらです。SubOutlookで開いているアイテムウインドウのInspectorオブジェクトをActiveInspectorメソッドで取得し、MailitemオブジェクトをCurrentItemプロパティで取得するまでが上記コードです。今回も、記事の内容を上のコードに追加していきましょう!Attachmentsコレクションを取得さて、前回記事でMailItemオブジェクトが取得できました。するとお次は、3.取得できたMailItemオブジェクトからAttachmentsコレクションを取得のステップです。Attachmentsコレクションとは添付ファイルを操作するためにまず取得するのが、Attachmentsコレクション。Attachmentsコレクションは、添付ファイルそのもののオブジェクトではなく、Outlookアイテムの添付ファイルがまとまったものです。1つ1つの添付ファイルが入っている、大きな箱を想像していただくとわかりやすいかもしれません。このオブジェクトは、MailItemオブジェクトのAttachmentsプロパティで取得することができます。MailItemオブジェクト.AttachmentsAttachmentsコレクションを取得するコードMailItemオブジェクトのAttachmentsプロパティでAttachmentsコレクション取得を上のコードに追加すると、こうなります。SubMailItemの取得とAttachmentsコレクションの取得を1行にまとめて記述することもできます。=objIns.CurrentItem.Attachmentsこれで、Attachmentsコレクションを取得することができました。添付ファイルのオブジェクト「添付ファイルのオブジェクトを取得できたなら、もう添付ファイルの操作ができるんじゃないの?」と思いますよね。先にお伝えした通り、このAttachmentsコレクションは、添付ファイルそのものではなく、1つ1つの添付ファイルが入った大きな箱のようなものです。添付ファイルを保存したり削除したりといった操作をするためには、この箱の中に入った添付ファイル1つ1つをオブジェクトとして取り出して、取り出した一つ一つの添付ファイルに対して操作をしていかねばなりません。その方法は、次回の記事でご紹介していきますね。最後に今回は、Outlookのウインドウで開いているメールのAttachmentsコレクションを取得する方法をご紹介しました。ここまでくれば、ゴールはもう目前です。次回記事では、ステップ4のAttachmentsコレクションから添付ファイルのAttachmentオブジェクトを取得する方法からご紹介していきます。VBAでメールの添付ファイルを指定フォルダにワンクリックで保存する方法をご紹介しています。1件ずつメールを開いて、添付ファイルをクリックして、保存先のフォルダを選んで...なんて地味に面倒な作業とはオサラバです。投稿者プロフィールノグチフリーランスPG・SE元製造子会社SE。業務システム保守・導入両方やった経験をお伝えすることで、少しでもシステムや手作業に悩まされる人が減ればいいなぁと日々夢見ております。「コミュニティ+講座」形式で継続性&教え合える環境も提供。!ノンプログラマーがプログラミングスキルを身に着ける支援ををするコミュニティ。セミナー・もくもく会・Facebookグループのサポートで「自らで学び続ける力をつける」支援、「教え合うことで学びの価値を上げる」場の提供をしています。【エクセル】スペースの全角・半角を関数で統一する置換テクニックスペースの全角・半角で困ったことはありませんか?複数人が入力業務に携わると、スペースだけでなく英字や数字までもバラバラ。そんなお困りごとを解決できる関数を紹介いたします。関数を使う方法は元データを残しておきたい場合に有効です。今回は、Endプロパティを使って表の最終行番号を取得する方法をご紹介したいと思います。今回ご紹介するEndプロパティを使用することで、簡単に表の最終行を取得することができます。2017.09.29Excel・VBA活用術エクセル関数でスケジュール自動表示のためのカレンダーを作成する方法エクセル関数のみでカレンダーのテンプレートとなるシートを作成しそれを安全に運用していく方法をお伝えします。テンプレートは対象月のカレンダーを作成するために必要なシートで、スケジュール自動作成を行うための前準備です。2018.10.22Excel・VBA活用術エクセルVBAでIEを操作するもっとも簡単なクラスを作成する方法エクセルVBAでInternetExplorerを操作してWebスクレイピング...けっこういつも同じ処理を作ります。そんなときには、クラスで部品化が有効です。IEを操作するもっとも簡単なクラスを作成します。2019.04.06Excel・VBA活用術VLOOKUP関数の使い方とその威力を存分に味わうデータ準備Excel中級への最初の難関とも言えるVLOOKUP関数。使いこなせればこれほど便利な関数もないのですが、データの準備方法に問題があると、なかなかマスターすることができません。今回の記事では、そのデータ準備で気を付けるポイントについてお伝えします。VBA」が技術評論社さまから発売されました!本ページでは、本書のお知らせ、書評などの情報を発信していく特集ページです。「コミュニティ+講座」形式で継続性&教え合える環境も提供。詳細・お申込はこちら隣ITを応援する当ブログを「応援したい!」「役に立ったよ!」というお気持ちを、コチラからお支払いただくことができます。日々更新の活力倍増いたします。※PayPalアカウントが必要です。※金額は変更可能です。Platform23HTML・CSS32iPhone・アプリ29Monaca・スマホアプリ開発7PC全般・Windows86PowerPoint・VBA28Python87RPA1VBScript15Vue.js・JavaScript13WEBサービス・クラウド68WordPress・ブログ88Word・VBA42コミュニティ・イベント109セミナーのお知らせ11チャットワーク72データ分析・アクセス解析40仕事・生産性・働き方73動画配信8商業出版21起業・フリーランス72電子書籍・Kindle3運営会社プランノーツは"IT×働き方改革"をお手伝いする会社です。「コミュニティ+講座」形式で継続性&教え合える環境も提供。詳細・お申込はこちら隣ITを応援する当ブログを「応援したい!」「役に立ったよ!」というお気持ちを、コチラからお支払いただくことができます。日々更新の活力倍増いたします。※PayPalアカウントが必要です。※金額は変更可能です。Platform23HTML・CSS32iPhone・アプリ29Monaca・スマホアプリ開発7PC全般・Windows86PowerPoint・VBA28Python87RPA1VBScript15Vue.js・JavaScript13WEBサービス・クラウド68WordPress・ブログ88Word・VBA42コミュニティ・イベント109セミナーのお知らせ11チャットワーク72データ分析・アクセス解析40仕事・生産性・働き方73動画配信8商業出版21起業・フリーランス72電子書籍・Kindle3運営会社プランノーツは"IT×働き方改革"をお手伝いする会社です。Scriptが「V8ランタイム」をサポート!モダンなECMAScript構文が使えるようになった2020.02.072020.02.08GASでコピーしたGoogleスライドのプレゼンテーションを取得する方法2020.02.052020.02.05Facebookページいつも隣にitのお仕事タイトルとURLをコピーしました。