Как разрешить Outlook предупреждать вас при отправке электронного письма, превышающего определенный размер

Перспективные решения 29 сентября, 2025

При отправке слишком большого электронного письма вам будет сложно его успешно отправить. Так почему бы не заставить Outlook автоматически проверять размер почты перед отправкой? Эта статья научит вас, как реализовать это с помощью Outlook VBA.

Как обычно, когда вы собираетесь прикрепить файл, размер которого превышает определенный, вы получите предупреждение Outlook, которое не позволит вам прикрепить его. MS Outlook обладает этой функцией, направленной на успешную отправку электронной почты. Но если электронное письмо слишком большое, возможно, из-за того, что оно содержит слишком много вложений, хотя каждое вложение имеет соответствующий размер, его все равно трудно отправить. Поэтому рекомендуется не отправлять слишком большие электронные письма. Тогда как вы можете определить, является ли электронное письмо слишком большим или нет? Сосредоточившись на этой проблеме, здесь мы представим метод, позволяющий Outlook автоматически проверять размер и предлагать вам, если электронное письмо больше, чем вы предварительно определили максимальный размер.

Предупреждать вас при отправке электронного письма больше определенного размера

В самом начале сtart Outlook и перейдите на вкладку «Разработчик».
Затем нажмите кнопку «Visual Basic».
Затем во всплывающем окне «Microsoft Visual Basic для приложений» дважды щелкните проект «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. Вы можете удалить файл и restart Outlook, чтобы воссоздать его. Если ошибки сохраняются, весьма вероятно, что вы столкнулись с Ошибка электронной почты Outlook PST. У вас нет выбора, чтобы использовать мощный инструмент ремонта, например DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить поврежденную базу данных mdf и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com