(移動先フォルダのFolderオブジェクト)単純ですね。パラメーターは、移動先にしたい受信フォルダのFolderオブジェクトを指定します。“フォルダー名”のように指定してもエラーになりますので、ご注意を!メールの移動先フォルダを準備する今開いているメールをMoveメソッドで「要返信」というフォルダに格納してみましょう。受信フォルダのサブフォルダに、「要返信」フォルダを作っておきます。このフォルダのFolderオブジェクトを取得しておきましょう。SubFolderオブジェクトやNameSpaceオブジェクトについては、こちらの記事でご紹介していますので、併せてご覧ください。【エクセルVBA】GetNamespaceメソッドでOutlookのデータフォルダにアクセスする方法GetNameSpaceメソッドでOutlookのデータフォルダにアクセスする方法をご紹介しています。このメソッドでOutlookのNameSpaceオブジェクトを取得すれば、メール、連絡先、予定表などのデータフォルダにアクセスして、更にその中のデータを読込んだり、エクセルシートに書き出したりすることができますよ。tonari-it.com2018.08.24今開いているメールのMailItemオブジェクトを取得するお次は、移動させるメールのMailItemオブジェクトを取得します。今開いているメールのMailItemオブジェクトを取得するには、ApplicationオブジェクトのActiveInspectorメソッドと、CrrentItemプロパティを使うのでしたね。VBAで、今開いているメールの添付ファイルをワンクリックで任意のフォルダに保存する方法を5ステップにわけて、連載記事でご紹介しています。今回は、InspectorオブジェクトのCurrentItemプロパティによるMailItemオブジェクトの取得についての説明です。tonari-it.com2018.10.01コードはこうなります。SubMoveメソッドでメールを指定フォルダに移動させる最後に、今回の主役、Moveメソッドを入れましょう。上ふたつのコードを組み合わせ、最後にMoveメソッドを入れてあげれば完成です。Subでは早速、こちらのメールを開いて上のコードを実行してみましょう。先ほど作成した「要返信」フォルダを覗いてみると...この通り、メールが「要返信」フォルダへ移動されていますね。ワンクリックで定型文の返信を送りつつメールを指定フォルダに移動するメールを受け取ったとき、予定を調整したり、確認しないとそのメールに対して明確な返信ができないな...なんていうときに、とりあえず「確認して連絡します。」というメールを送ったりすること、ありますよね。いう場合、上のコードと前回のワンクリックで定型文で返信する方法を組み合わせて、とりあえずの返信をしつつ、返信が必要なフォルダに移動させておけば便利です。Moveメソッドを前回の記事でご紹介したコードに加えれば、ワンクリックでメールに返信しつつ、メールを「要返信」というフォルダに移動させることができますよ。前回の記事でご紹介したReplyメソッドを上のコードに差し込みます。返信メールの文面は、「予定を確認後連絡します。」としておきましょう。するとこんなコードになります。"予定を確認後連絡します。"予定を確認後連絡します。Subこれで、メールに返信しつつ、返信元メールを「要返信」フォルダに移動させることができますよ。メールに返信したら「要返信」フォルダから移動させるのを忘れずに返信が必要なメールを「要返信」フォルダに移動させる方法をご紹介していますが、移動させたあとにメールの返信をした場合は、返信元メールを受信ボックスなり、他のフォルダに移しておくようにしましょう。そのままにしておくと、結局どれが要返信メールなのかわからなくなってしまいますからね。「要返信」フォルダから他のフォルダへメールを移動させる場合にも、Moveメソッドを使えばワンクリックでメールが移動できますよ。最後に今回は、Moveメソッドを使ってメールを指定フォルダへ移動させる方法をご紹介しました。Outlookの機能である自動振り分けでは振り分けられなかったり、自分がメールの内容を忘れないように、一旦別のフォルダに移したい...なんていうときに使えますよ。それでは最後までお読みいただきありがとうございました!投稿者プロフィールノグチフリーランスPG・SE元製造子会社SE。業務システム保守・導入両方やった経験をお伝えすることで、少しでもシステムや手作業に悩まされる人が減ればいいなぁと日々夢見ております。「コミュニティ+講座」形式で継続性&教え合える環境も提供。!ノンプログラマーがプログラミングスキルを身に着ける支援ををするコミュニティ。セミナー・もくもく会・Facebookグループのサポートで「自らで学び続ける力をつける」支援、「教え合うことで学びの価値を上げる」場の提供をしています。今回は、UsedRangeプロパティを使ってシートで使用されているセルの範囲全てを取得する方法についてご紹介していきたいと思います。このUsedRangeプロパティを使うことで、表に空白行がある場合でも表全体の範囲を取得することもできます。Scriptで業務効率化!両方知って触れる欲張りハンズオン」でお話しましたので、そのレポートをお送りします。【エクセルVBA】VBEの背景色や文字色を変更して画面を見やすくしようエクセルVBAの作業効率&快適さを劇的に上げるVBEの使い方についてお伝えしていますが、今回はVBEの背景色や文字色を変更して画面を見やすくするシンタックスハイライトの設定方法とおすすめ設定についてです。【エクセルVBAでAccess連携】データベースに特定条件のデータが存在するかどうかを判定するエクセルVBAでAccessデータベースを操作する方法についてシリーズでお伝えしています。今回はエクセルVBAでAccessデータベースに特定のデータが存在するかどうかを判定するプログラムを作ります。遅い...重い...そんなエクセルVBAプログラムの処理速度を劇的に改善する方法エクセルVBAの実行速度が遅い・重いって時ありませんか?そんな時にエクセルVBAのプログラムの処理速度を速くするテクニックを紹介します。プログラムの実行時間を測定する方法も合わせてお伝えします。2016.01.18Excel・VBA活用術エクセルVBAでAccessデータベースの複数のレコードを上書き更新する場合の実行速度についてエクセルVBAでAccessデータベースを操作する方法について、今回はADODBレコードセットのFind、Update、MoveFirstを使って更新する方法について、またその実行速度についてです。「コミュニティ+講座」形式で継続性&教え合える環境も提供。詳細・お申込はこちら隣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をコピーしました。