Как да оставя Outlook да ви предупреждава при изпращане на имейл, по-голям от определен размер

Споделете сега:

Когато изпращате твърде голям имейл, ще ви е трудно да го изпратите успешно. И така, защо да не накараме Outlook да проверява автоматично размера на пощата преди изпращане? Тази статия ще ви научи как да го реализирате с Outlook VBA.

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

Предупреждавам ви, когато изпращате имейл, по-голям от определен размер

  1. В самото начало, start Outlook и преминете към раздела „Програмист“.
  2. След това кликнете върху бутона „Visual Basic“.
  3. Впоследствие в изскачащия прозорец „Microsoft Visual Basic for Applications“ трябва да щракнете двукратно върху проекта „ThisOutlookSession“ вляво.
  4. След това можете да копирате и поставите следните 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 кодове - предупреждават ви, когато изпращате имейл, по-голям от определен размер

  1. След това подпишете цифрово този код. Използвайте „Цифрови сертификати за проекти на VBA“, за да създадете сертификат и след това да присвоите този сертификат на кода.Подпишете текущия макрос
  2. Накрая можете да излезете от текущия прозорец и да опитате. Когато се опитате да изпратите имейл, който е по-голям от предварително зададения максимален размер, ще получите предупреждение, като следната екранна снимка:Проверете размера на пощата

Какво да направите, ако Outlook винаги не успее да изпрати / получи

Outlook е склонен към грешки. Поради това не е необичайно да се провали при изпращането / получаването на имейли. И така, как можете да се справите с този вид проблем? Най-общо казано, можете първо да се свържете с вашия администратор на сървъра, за да попитате дали нещо не е наред със сървъра. Ако нищо не е наред, трябва да се справите с проблема от собствения си клиент. Както обикновено, това може да възникне от повредени SRS файлове. Можете да изтриете файла и да разрешитеtart Outlook, за да го пресъздадете. Ако грешките продължават, много вероятно е да срещнете Outlook PST имейл грешка. Нямате избор да използвате мощен инструмент за ремонт, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт на повредена mdf база данни и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com

Споделете сега:

Коментарите са забранени.