VBAでoutlookからメールを送る際に、添付ファイルが開かれていますとの警告メッセージが表示される

Question

VBA（Excelのマクロ）を使用して、outlookにファイルを添付し送信するという処理を行っています。

稀に「添付ファイル xxxxxxx が開かれています。ファイルを変更した場合は、忘れずに保存してください。」という警告メッセージが表示されてしまい、メール送信できず処理が止まってしまいます。

特にVBAの中では添付ファイルを開く処理を入れておりませんが、どのような場合に表示されるものでしょうか？

また、この警告メッセージが出ないように回避する方法はございますでしょうか？

Answer 1

この応答は自動的に翻訳されています。 その結果、文法上の誤りや奇妙な言い回しが生じる可能性があります。

こんにちは

72 時間以内に連絡がないため、問題が解決したと見なします。さらにヘルプが必要な場合は、このリンクを介して懸念事項について話し合うための新しいスレッドを作成してください:新しい質問を作成するか、ディスカッションを開始する (microsoft.com)。

ご理解のほどよろしくお願いいたします。

誠に

コウ・スン

マイクロソフト コミュニティ モデレーター

Answer 2

この応答は自動的に翻訳されています。 その結果、文法上の誤りや奇妙な言い回しが生じる可能性があります。

こんにちは

あなたの現在の懸念に関するいくつかの更新を提供していただきありがとうございます。

現在、ヘ ビクズレが提供する情報を確認して確認してください。これがあなたの現在の質問に対する答えかもしれないので。

誠に

コウ・スン

マイクロソフト コミュニティ モデレーター

Answer 3

ローカルに保存して、誰も開いていないと思われるファイルでも質問の現象が起きる場合は、Power Toys の File Locksmith ユーティリティなどを使って、ファイルを開いているプロセスを確認できます。

PowerToysWindows 用の File Locksmith ユーティリティ | Microsoft Learn

Answer 4

ご回答ありがとうございます。

対象の添付ファイルは、安全であることを確認できておりますので、確認することなくメール送信させたいものになります。

他のメンバーとも共有しているファイルであり、誰かが開いていることもあり得ますので、一度ローカルにコピーしてから添付することとします。

Answer 5

この応答は自動的に翻訳されています。 その結果、文法上の誤りや奇妙な言い回しが生じる可能性があります。

こんにちは孝太松田、

あいさつ！

マイクロソフト コミュニティに投稿していただきありがとうございます。

投稿した説明に基づいて、「 添付ファイルxxxxxxxが開いています。VBAを使用してOutlookで電子メールを送信しようとすると

それまでの間、以下の手順を確認して試してみてください。

注: 表示される警告メッセージは、有害な可能性のある添付ファイルからコンピューターを保護するように設計された Outlook のセキュリティ機能です。この警告メッセージは、Outlookが安全でないまたは疑わしいと見なす添付ファイル付きの電子メールを送信しようとすると表示されます。

この警告メッセージを回避するには、次の手順を試してください。

1. 添付ファイルに別のファイル形式を使用します。
2. ファイルの種類を Level1Remove レジストリ キーに追加します。

3.マクロを使用して、メールを送信する前に添付ファイルを確認します。

電子メールを送信する前にVBAコードを使用して添付ファイルを確認する方法の例を次に示します。

'''VBA

プライベートサブApplication_ItemSend(オブジェクトとしてのByValアイテム、ブール値としてキャンセル)

    文字列として strFile を暗くする

    文字列としての strPath の薄暗い

    文字列として薄暗いstrExt

    アイテム.添付ファイル.カウント > 0 の場合、

        アイテム内の各オブジェクトについて.添付ファイル

            strFile = objAtt.FileName

            strPath = objAtt.Path

            strExt = Right(strFile, Len(strFile) - InStrRev(strFile, "."))

            strExt = "exe" または strExt = "bat" または strExt = "vbs" の場合、

                If MsgBox("安全でない添付ファイルを送信しようとしています。" & vbCrLf & vbCrLf & _

                    "続行しますか?", vbYesNo + vb感嘆符) = vbNo その後

                    キャンセル = 真

                    サブを終了する

                終了する場合

            終了する場合

        Next objAtt

    終了する場合

エンドサブ

このコードは、ファイル拡張子が .exe、.bat、および .vbs の添付ファイルをチェックし、これらの添付ファイルのいずれかが見つかった場合は警告メッセージを表示します。

***重要:私たちが提供したVBAコードは、あなたの側では役に立たない可能性があることをご了承ください。また、よくわからない場合は、上記のVBAコードを無視できます。*** 

 これが役立つかどうか教えてください、 

誠に

コウ・スン

マイクロソフト コミュニティ モデレーター