Outlook VBAにて　vbsファイルを実効

締切済

質問者：gitmyk
質問日時：2013/07/02 04:35
回答数：1件

お世話になります。

タイトルそのままですが、
Outlook 2007のＶＢＡにて
デスクトップのvbsファイルを実行するやり方を教えていただけませんでしょうか。

あと、途中で１秒止めるというコードももしいただければありがたいです。
昨日一晩考えたのですが、解決せず…

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： queuerev2
回答日時：2013/07/02 22:46

回答させていただきます。

１．Outlook 2007のＶＢＡにてデスクトップのvbsファイルを実行
方法は複数ありますが、ここではVBAのShell関数を使う方法を書きます。
デスクトップのパスが変わっても大丈夫なようにWshShellオブジェクトのSpecialFoldersを使いました。
デスクトップにある Sample1.vbs を実行します。

Sub RunSample1()
Dim oWshShell
Set oWshShell = CreateObject("Wscript.Shell")
Shell "wscript """ & oWshShell.SpecialFolders("Desktop") & "\Sample1.vbs"""
End Sub

２．途中で１秒止めるというコード
これも何通りかありますが、一番よく使われていると思われるものを説明します。

まず、モジュールの先頭に以下のように１行書きます
Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)

（上記は64bit版Officeには未対応ですがその話は省略します）

あとは、1秒待ちたいところに
Sleep 1000
と１行入れるだけです。
（数字はミリ秒単位で指定します）