Outlookに添付ファイルを挿入するために[ファイル]ダイアログボックスをすばやく開く方法は？

作成中の電子メールに添付ファイルを挿入する必要がある場合は、通常、[挿入]>[ファイルの添付]>[このPCの参照]をクリックして[ファイルの挿入]ダイアログボックスを開き、必要なファイルを見つけて挿入する必要があります。 このチュートリアルでは、ワンクリックで簡単に[ファイルの挿入]ダイアログボックスを開くのに役立つXNUMXつのVBAコードを提供します。

[ファイル]ダイアログボックスをすばやく開いて、VBAで添付ファイルを挿入します

次のVBAコードで実現できます。

VBAコード1：コンピューターで既定のドキュメントフォルダーを開きます
VBAコード2：コンピューターで指定されたフォルダーを開きます

それを成し遂げるために次のようにしてください。

1. Outlookを起動し、を押します 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック 工具 > 参考文献、 次に、 Microsoftスクリプトランタイム 内箱 参照– Project1 ダイアログボックス。

3。 クリック インセット > モジュール。 次に、次のVBAコードのいずれかをにコピーします。 モジュール 窓。

VBAコード1：コンピューターで既定のドキュメントフォルダーを開きます

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

VBAコード2：コンピューターで指定されたフォルダーを開きます

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

注意：

4。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

ここで、マクロを実行するためのボタンが必要です。

5。 クリック ホーム > 新しいメール 新しいメールを作成します。 メッセージウィンドウで、をクリックします クイックアクセスツールバーをカスタマイズする > その他のコマンド.

6。 の中に Outlookのオプション ダイアログボックスでは、次のように構成する必要があります。

7.右側のボックスでスクリプトを選択したままにして、[ 修正します ボタン。 の中に 変更ボタン ダイアログボックスで、スクリプトに新しいボタンを割り当て、クリックします OK.

8。 クリック OK Outlookのオプション 変更を保存するためのダイアログボックス。

9.次に、手順7で指定したボタンがに追加されます。 クイックアクセスツールバー。 メールを作成するときに添付ファイルを挿入したい場合は、このボタンをクリックするだけで、 ブラウズ フォルダを選択し、挿入する必要のあるファイルを選択します。

Kutools for Outlook-100の高度な機能をOutlookにもたらし、作​​業をはるかに簡単にします！

• 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
• BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
• メール会話のすべての添付ファイルで（すべて）返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
• 添付ファイルツール：すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
• 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。

続きを読みます... ダウンロード中...