ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
登録
x

or

ファイルシステムからOutlookフォルダにmsgファイルをインポートするには?

通常、ファイルシステムからOutlookフォルダにmsgファイルをドラッグアンドドロップすることでインポートできます。 この記事では、すべてのmsgファイルをファイルシステムから指定されたOutlookフォルダに簡単にインポートする簡単な方法を説明します。

VBAコードでファイルシステムからOutlookフォルダにmsgファイルをインポートする


選択した電子メールをOutlookでさまざまなフォーマットファイルとして簡単に保存:

Outlook用Kutoolsのファイルとして保存ユーティリティを使用すると、複数の選択された電子メールを以下のスクリーンショットに示すように、個々のHTML形式ファイル、TXT形式ファイル、Word文書、CSVファイル、およびOutlookのPDFファイルとして簡単に保存できます。

Kutools for Outlook:40便利なOutlookアドイン以上で、45日以内に自由に試してみてください。 今すぐダウンロードして無料トライアル!


VBAコードでファイルシステムからOutlookフォルダにmsgファイルをインポートする

ファイルシステムからOutlookの指定されたフォルダにmsgファイルをインポートするには、以下の手順に従ってください。

1。 プレス 他の + F11 キーを押して アプリケーション用Microsoft Visual Basic 窓。

2。 の中に アプリケーション用Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、VBAコードの下にモジュールウィンドウにコピーします。

VBAコード:ファイルシステムからOutlookフォルダにmsgファイルをインポートする

Sub ImportMessagesInFolder()Dim xFSOとしてScripting.FileSystemObject Dim xSourceFldとしてScripting.Folder Dim xSourceFldPath As String Dim xFileItemとしてScripting.File Dim xMSGとしてオブジェクトDim xMailItemとしてMailItem Dim xSaveFldとしてOutlook.Folder On Error Resume Next Set xFSO = New Scripting。 xSelFolder = "Nothing" Then xSourceFldPath = xSelFolder.self.Path + "\" FileSystemObject Set xSelFolder = CreateObject( "Shell.Application")。BrowseForFolder(0、 "フォルダを選択:"、0、0) GetNamespace( "MAPI")。PickFolder TypeName(xSaveFld)= "Nothing"の場合は、xSaveFld = GetObject(xSourceFldPath)をSet xSaveFld = GetObject( "" Outlook.Application " xMailItem = xMSG.Copy xMailItem.Move xSaveFld xMailItem = Nothing xMSG.Delete Set xMSG = Nothing次のxFileItem Set xFileItem =何も設定されていません。 Set xSourceFld =何も設定しないxFSO = N othing End Sub

3。 プレス F5 コードを実行するキー。 オープニング フォルダの参照 ダイアログボックスで、Outlookフォルダにインポートするmsgファイルを含むフォルダを選択して、 OK ボタン。 スクリーンショットを見る:

4。 今すぐ フォルダを選択してください ダイアログボックスが表示されたら、 Outlook フォルダをクリックして、インポートしたmsgファイルを保存し、 OK ボタン。

その後、ファイルシステムの特定のフォルダにあるすべてのmsgファイルが、指定されたOutlookフォルダにすぐにインポートされます。


関連記事:



推奨生産性ツール

Office Tab

金星1 Chrome、Firefox、新しいInternet Explorerと同様に、Excelやその他のOfficeソフトウェアに便利なタブを持たせる。

Kutools for Excel

金星1 素晴らしい! 5分で生産性を向上させます。 特別なスキルは必要ありません。毎日2時間節約できます!

金星1 300 Excelの新機能は、Excelを非常に簡単かつ強力にする:

  • データを失うことなくセル/行/列をマージします。
  • 複数のシートとブックを結合して統合する。
  • 範囲を比較し、複数の範囲をコピーし、テキストを日付、単位、通貨の変換に変換します。
  • 色数、ページング小計、高度なソートとスーパーフィルター、
  • 詳細選択/挿入/削除/テキスト/書式/リンク/コメント/ワークブック/ワークシートツール...

Kutools for Excelのスクリーンショット

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Amey Thombre · 10 months ago
    This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.