2

Outlook VBA 内のフォルダーの参照に関するオプションを探していました。現在、私は以前の検索から持っています：

Dim save_to_folder As String

save_to_folder = InputBox("Search returned " & objRsts.Count & " messages._ 
Please input folder location")

olkMsg.SaveAs save_to_folder & "\" & strDateName & "  " & strFileName & ".msg"

strDateName と strFileName は、変更された件名と電子メールの日付です。

私の問題は、タイプミスを防ぐために手動で入力するだけでなく、参照オプションが欲しいということです。私は VBA に非常に慣れていないため、頻繁にメールを自動保存する必要があります。私のオプションを教えてください。

4

1 に答える 1

0

InputBox と BrowseForFolder のどちらかを選択するようにコードを設定できます。

これらを個別に設定できます。

BrowseForFolder のみを使用することをお勧めします。

Dim oShell As Object
Set oShell = CreateObject("Shell.Application")
Dim save_to_folder  As Object
Set save_to_folder  = _
  oShell.BrowseForFolder(0, "Please Select a Save Folder:", 1)
If save_to_folder  Is Nothing Then Exit Sub
' Note:  BrowseForFolder doesn't add a trailing slash

サンプルコードはこちら選択した Outlook メールを移動するマクロ

于 2013-11-23T16:27:02.060 に答える