複数の PST を一括でプロファイルに追加するマクロ


コメントにて以下のようなご要望をいただきました。


はじめまして。英語のサイトも探してみたのですが、なかなかうまくできないので、お知恵を拝借させて頂きたくご連絡致しました。

Outlook2010ですが、ネットワークドライブ上に置かれた20個程のPSTファイルを全てOpenするマクロまたはVBAを組みたい、というものですが、可能でしょうか?

LANの不具合でネットワークドライブが外れた際に、OpenしていたPSTファイルが全て外れてしまい、毎回手動でOpenしなければならず、、
何卒、何卒宜しくお願い申し上げます。



はじめに、ネットワーク ドライブにおいた PST を使うというのはサポート対象外の使用方法となります。
詳細は下記の技術文書に記載されています。

297019 LAN リンクまたは WAN リンク上での個人用フォルダー (.pst) ファイルの使用の制限

一時的にネットワーク上の PST を開くこともあるため、PST を接続する際にはネットワーク上の PST も参照可能ですが、恒久的に使用した場合以下のような現象が発生します。

  • パフォーマンスが低下する。
  • ネットワーク トラフィックが増大する。
  • ネットワークの一時的な障害でPSTが破損し、PST内のデータが喪失する。
  • PSTを保持しているサーバーに負荷がかかり、サーバーが異常終了する。

そのため、ネットワークドライブ上の20ものPSTファイルを開くという運用は全くおすすめはできません。

とりあえず、指定した PST をすべて接続するというマクロを作りましたので、"c:\temp\test1.pst" などをネットワークドライブ上の PST のフルパスに置き換えればご要望は満たせると思います。PST を追加したい場合は、Array("c:\temp\test1.pst", "c:\temp\test2.pst", "c:\temp\test3.pst") というように、Array の後のかっこの中にカンマで区切って "" に括った PST のフルパスを追加してください。

' ここをトリプルクリックでマクロ全体を選択できます。
Public Sub MountPSTs()
    Dim arrPSTs
    Dim i As Integer
    Dim j As Integer
    arrPSTs = Array("c:\temp\test1.pst", "c:\temp\test2.pst")
    '   
    For i = 0 To UBound(arrPSTs)
        Session.AddStore arrPSTs(i)
    Next
End Sub

マクロの登録方法やメニューへの追加について

複数の PST を一括でプロファイルに追加するマクロ」への4件のフィードバック

  1. 本件のご返信、誠にありがとうございました。

    >はじめに、ネットワーク ドライブにおいた PST を使うというのはサポート対象外の使用方法となります。
    詳細は下記の技術文書に記載されています。

    こちらのサイトのほかの記事に記載もあり、承知の上でのお伺いでございました。

    早速試してみます、お教え頂きまして誠にありがとうございました。

  2. サポート外の機能であることは先の回答にもある通りなのですが、
    Outlook2010で複数のアカウントがあり、その中の1つにPOPでpstファイルをNAS上に置いて使用しているものがあります。ネットワークが接続されていない場合、Outlookがpstファイルを見つけられずにエラーで終了してしまうのですが、できれば他のアカウントのメールは参照したいと考えています。
    ネットワーク接続されていない等で、pstファイルが見つからない場合、一時的に見つからないpstファイルだけを読込まずにOutlookを起動させるようなことはマクロで出来ませんでしょうか。

    • PSTを削除することはマクロで可能ですが、配信先となっているPSTを削除することはできません。
      特定の1アカウントだけそのような状態なのであれば、そのアカウントを除いたプロファイルを別に作成し、ネットワークが使えない場合はそのプロファイルで起動してみてはどうでしょうか?

      • ご連絡ありがとうございます。
        別のプロファイルを作成する方法での使用を検討してみます。
        ありがとう財ました。

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中