大きすぎるメールを送信すると、うまく送信できなくなります。 では、送信前に Outlook にメール サイズを自動的にチェックさせてみませんか? この記事では、OutlookVBAでそれを実現する方法を説明します。
いつものように、特定のサイズより大きいファイルを添付しようとすると、Outlook アラートが表示され、添付できなくなります。 MS Outlook には、電子メールを正常に送信できるようにすることを目的としたこの機能が備わっています。 しかし、添付ファイルが多すぎるなどの理由でメールが大きすぎる場合、各添付ファイルは適切なサイズ内にありますが、それでも送信することは困難です。 そのため、大きすぎるメールを送信しないことをお勧めします。 では、電子メールが大きすぎるかどうかをどのように識別できますか? この問題に焦点を当てて、ここでは、Outlook が自動的にサイズをチェックし、メールが事前に決定した最大サイズよりも大きい場合にプロンプトを表示できるようにする方法を紹介します。
特定のサイズを超えるメールを送信するときに警告する
- 非常に最初に、start Outlookを選択し、「開発者」タブに移動します。
- 次に、「Visual Basic」ボタンをクリックします。
- 続いて、ポップアップの「Microsoft Visual Basic for Applications」ウィンドウで、左側の「ThisOutlookSession」プロジェクトをダブルクリックする必要があります。
- 次に、次のVBAコードをコピーして新しいプロジェクトに貼り付けることができます。
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim olSize As Long
Dim MaxSize As Long
Dim strMsg As String
Dim nRes As Integer
olSize = Item.Size
MaxSize = 20000 'in bytes
If olSize > MaxSize Then
strMsg = "The current mail has exceeded " & MaxSize & " bytes." & vbCrLf & "It may fail to be sent out. Do you still want to send it anyway?"
nRes = MsgBox(strMsg, vbYesNo + vbExclamation, "Check Mail Size")
If nRes = vbNo Then
Cancel = True
End If
End If
End Sub
- その後、このコードにデジタル署名します。 「VBA プロジェクトのデジタル証明書」を利用して証明書を作成し、この証明書をコードに割り当てます。
- 最後に、現在のウィンドウを終了して、試してみることができます。 事前に設定した最大サイズよりも大きいメールを送信しようとすると、次のスクリーンショットのような警告が表示されます。
Outlookが常に送受信に失敗した場合の対処方法
Outlook はエラーになりがちです。 そのため、メールの送受信に失敗することは珍しくありません。 では、どうすればこの種の問題に対処できますか？ 一般的に、まずサーバー管理者に連絡して、サーバーに何か問題が発生したかどうかを尋ねることができます。 何も問題がなければ、自分のクライアントの問題に対処する必要があります。 いつものように、破損した SRS ファイルから発生する可能性があります。 ファイルとresを削除できますtart Outlook で再作成します。 エラーが続く場合は、次のエラーが発生する可能性が非常に高くなります。 Outlook PST メール エラー。 のような強力な修復ツールを利用する選択肢はありません。 DataNumen Outlook Repair.
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したmdfデータベースを修復する と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com