Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12583 / 13644 ツリー ←次へ | 前へ→

【9787】Outlookのバージョン取得について HAN 03/12/16(火) 18:50 質問
【9789】Re:Outlookのバージョン取得について Kein 03/12/16(火) 22:17 回答
【9798】Re:Outlookのバージョン取得について HAN 03/12/17(水) 11:17 お礼

【9787】Outlookのバージョン取得について
質問  HAN  - 03/12/16(火) 18:50 -

引用なし
パスワード
   お世話になっております。
HANと申します。

動作している端末のOutlookのバージョンを取得したいのです。
Outlook2000以降か、それより前かがわかれば良いのですが。。

Outlookのメールボックスの「グローバル アドレス一覧」を
セットするところで、2000以降はこの文字(グローバル アドレス
の部分のみ)を全角で指定する必要があり、97,98等では半角で
指定しなければなりません。
そのため、ExcelやOSのバージョン取得では不確かです。

試しに以下のようなことをやってみました。
  Set olAPP = CreateObject("Outlook.Application")
  MsgBox olAPP.Version

環境1)
OS:Win2000, Excel2000, Outlook2000

環境2)
OS:WinMe, Excel97, Outlook97

環境1では動きましたが、環境2では「メソッドがサポートされて
いません」のようなエラーが出てしまいます。

いろいろ調べてみたのですが、解決できませんでした。
ご教授いただければと思います。


宜しくお願い致します。

【9789】Re:Outlookのバージョン取得について
回答  Kein  - 03/12/16(火) 22:17 -

引用なし
パスワード
   Outlook を持ってないので、OutlookExpress でやってみました。

Sub Ver_Check()
  Dim FSO As Object
  Const OE_Pth As String = _
  "C:\Program Files\Outlook Express\msimn.exe"
 
  Set FSO = CreateObject("Scripting.FileSystemObject")
  MsgBox FSO.GetFileVersion(OE_Pth)
End Sub

結果は 5.50.4807.1700 と、マイナーな数値まで細かく表示できましたが。

【9798】Re:Outlookのバージョン取得について
お礼  HAN  - 03/12/17(水) 11:17 -

引用なし
パスワード
   Keinさんご回答ありがとうございます。

パスの指定のところを以下のようにしてやってみたところ
問題なく動作いたしました。

>  Const OE_Pth As String = _
>  "C:\Program Files\Outlook Express\msimn.exe"

  Const OE_Pth As String = _
    "C:\Program Files\Microsoft Office\Office\outlook.exe"

ただ、Officeのインストールドライブやフォルダがデフォルトでないと
いけないですね。
あまり変えているユーザはいないとは思うのですが、インストールのパス
情報は、レジストリから取得するしかないですかね。

Office97は
 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\8.0
の下にいろいろ入ってます。
Office2000は(自分の端末)
 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\9.0
 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\8.0
が存在してました。

どこかで割り切るしかないのかとも思いますが。。

何か良い案があればご教授いただければと思います。

12583 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free