日: 2025年2月1日

投稿日:

OUTLOOKをエクセルVBAから最小化して開く

エクセルＶＢＡから，ｏｕｔｌｏｏｋを操作して，メールを送るプロシャージャを作成してました。あれこれ
改良をしていますが，いろいろ試しても最小化してひらくことはできませんでした，まずやったのは，下記の
ように，最小化を指定してシェルから開く方法です。

Shell "outlook.exe", vbMinimizedNoFocus

これは，だめでした。outlook.exe　をフルパスに変えたり，vbMinimizedNoFocus　を数値に変えたりしま
したが，だめでした。
次にやったのは，開いた，outlook　をアクティブにして，最小化のショートカットを，sendkey　で送ること
です。copilot　は，

Shell ""C:￥Program Files (x86)￥Microsoft Office￥root￥Office16￥OUTLOOK.EXE"OUTLOOK.EXE", vbNormalFocus
AppActivate "Outlook"
SendKeys "% n", True

私の環境とは，ｏｕｔｌｏｏｋ　までのパスが違っていたので，私の環境に書き換えましたが，だめでした。

最小化するショートカットは，｛ＷＩＮＤＯＥＳＫＥＹ｝+｛↓｝なので，SendKeys　がだめなのかと思い，

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_LWIN = &H5B

Public Sub window_saisyouka()
  keybd_event VK_LWIN, 0, 0, 0
  keybd_event vbKeyDown, 0, 0, 0
  keybd_event VK_LWIN, 0, KEYEVENTF_KEYUP, 0
  keybd_event vbKeyDown, 0, KEYEVENTF_KEYUP, 0
End Sub

のように，keybd_event　のサブを作って，｛ＷＩＮＤＯＥＳＫＥＹ｝+｛↓｝　をやってもだめでした。ま
るまる二日ほどあれこれやりましたが，やっと今日，できました。
ここのＨＰが参考になりました。
次のような手順です。
　１　メニューの「ＯＵＴＬＯＯＫ」を右クリック
　２　その他→ファイルの場所を開く　をクリック
　３　ファイルの保存場所に行って，ｏｕｔｌｏｏｋ．ｅｘｅ　を右クリックして，ショートカットを作成
　４　できたショートカットをデスクトップに移動
　５　デスクトップに移動したショートカットのプロパティーを開く
　６　次写真のように，起動時の状態を変更

ＶＢＡのシェルの部分をショートカットを実行するように変更。

 CreateObject("WScript.Shell").Run "C:\Users\mabo-2021\Desktop\Outlook"

長い道のりでした。これで，ＶＢＡのマクロを開くときに，あらかじめＯＵＴＬＯＯＫを最小で開いておける
ので，後の処理がスムーズに行きます。