Hoe u Outlook kunt laten waarschuwen wanneer u een e-mail verzendt die groter is dan een specifieke grootte

Wanneer u een te grote e-mail verzendt, zult u het moeilijk vinden om deze succesvol te verzenden. Dus waarom zou u Outlook niet zo instellen dat het automatisch het e-mailformaat controleert voordat het wordt verzonden? In dit artikel leert u hoe u dit kunt realiseren met Outlook VBA.

Wanneer u van plan bent een bestand dat groter is dan een bepaalde grootte bij te voegen, ontvangt u zoals gewoonlijk een Outlook-waarschuwing, waardoor u het bestand niet kunt bijvoegen. MS Outlook is voorzien van deze functie, bedoeld om ervoor te zorgen dat de e-mail met succes kan worden verzonden. Maar als de e-mail te groot is, misschien omdat deze te veel bijlagen bevat, is het nog steeds moeilijk om deze te verzenden, ook al heeft elke bijlage de juiste grootte. Er wordt dus aangeraden om geen te grote e-mail te verzenden. Hoe kunt u vervolgens vaststellen of de e-mail te groot is of niet? Gericht op dit probleem introduceren we hier een methode waarmee Outlook automatisch de grootte kan controleren en u zal vragen of de e-mail groter is dan de door u vooraf bepaalde maximale grootte.

Waarschuw u wanneer u een e-mail verzendt die groter is dan een specifiek formaat

1. Vanaf het allereerste begin start Outlook en ga naar het tabblad "Ontwikkelaar".
2. Klik vervolgens op de knop “Visual Basic”.
3. Vervolgens dubbelklikt u in het pop-upvenster “Microsoft Visual Basic for Applications” op het project “ThisOutlookSession” aan de linkerkant.
4. Vervolgens kunt u de volgende VBA-codes kopiëren en in het nieuwe project plakken.

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

5. Onderteken deze code daarna digitaal. Gebruik “Digitale certificaten voor VBA-projecten” om een ​​certificaat te maken en wijs dit certificaat vervolgens toe aan de code.
6. Ten slotte kunt u het huidige venster verlaten en doorgaan met proberen. Wanneer u probeert een e-mail te verzenden die groter is dan de maximale grootte die u heeft ingesteld, ontvangt u een waarschuwing, zoals in de volgende schermafbeelding:

Wat te doen als Outlook altijd niet kan verzenden/ontvangen

Outlook is gevoelig voor fouten. Het is dus niet ongebruikelijk dat het verzenden/ontvangen van e-mails mislukt. Dus hoe kun je met dit soort problemen omgaan? Over het algemeen kunt u eerst contact opnemen met uw serverbeheerder om te vragen of er iets mis is met de server. Als er niets aan de hand is, moet u het probleem bij uw eigen cliënt afhandelen. Zoals gewoonlijk kan dit optreden door beschadigde SRS-bestanden. U kunt het bestand verwijderen en restart Outlook om het opnieuw te maken. Als er fouten blijven bestaan, is de kans groot dat u deze tegenkomt Outlook PST e-mailfout. U heeft geen keus om een ​​krachtig reparatiehulpmiddel te gebruiken, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie beschadigde mdf-database en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com