Comment laisser Outlook vous avertir lors de l'envoi d'un e-mail supérieur à une taille spécifique

Lorsque vous envoyez un e-mail trop volumineux, vous aurez du mal à l'envoyer avec succès. Alors pourquoi ne pas faire en sorte qu'Outlook vérifie automatiquement la taille du courrier avant de l'envoyer ? Cet article vous apprendra comment le réaliser avec Outlook VBA.

Comme d'habitude, lorsque vous avez l'intention de joindre un fichier plus grand qu'une taille spécifique, vous recevrez une alerte Outlook, qui vous empêchera de le joindre. MS Outlook est doté de cette fonctionnalité, visant à garantir que l'e-mail peut être envoyé avec succès. Mais si l'e-mail est trop volumineux, peut-être parce qu'il contient trop de pièces jointes, bien que chaque pièce jointe ait la taille appropriée, il est toujours difficile de l'envoyer. Il est donc suggéré de ne pas envoyer d'e-mails trop volumineux. Ensuite, comment identifier si l'e-mail est trop volumineux ou non ? En nous concentrant sur ce problème, nous allons introduire ici une méthode permettant à Outlook de vérifier automatiquement la taille et de vous demander si l'e-mail est plus grand que la taille maximale que vous avez prédéterminée.

Vous avertir lors de l'envoi d'un e-mail plus grand qu'une taille spécifique

1. Au tout début, start Outlook et passez à l'onglet "Développeur".
2. Cliquez ensuite sur le bouton "Visual Basic".
3. Ensuite, dans la fenêtre contextuelle "Microsoft Visual Basic pour Applications", vous devez double-cliquer sur le projet "ThisOutlookSession" sur le côté gauche.
4. Ensuite, vous pouvez copier et coller les codes VBA suivants dans le nouveau projet.

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. Après cela, signez numériquement ce code. Utilisez « Certificats numériques pour les projets VBA » pour créer un certificat, puis attribuez ce certificat au code.
6. Enfin, vous pouvez quitter la fenêtre actuelle et procéder à un essai. Lorsque vous essayez d'envoyer un e-mail dont la taille dépasse la taille maximale prédéfinie, vous recevez un avertissement, comme la capture d'écran suivante :

Que faire si Outlook ne parvient toujours pas à envoyer/recevoir

Outlook est sujet aux erreurs. Ainsi, il n'est pas rare d'échouer dans l'envoi/la réception d'e-mails. Alors comment faire face à ce genre de problème ? De manière générale, vous pouvez d'abord contacter l'administrateur de votre serveur pour lui demander si quelque chose ne va pas sur le serveur. Si tout va bien, vous devez régler le problème de votre propre client. Comme d'habitude, cela peut provenir de fichiers SRS corrompus. Vous pouvez supprimer le fichier et restart Outlook pour le recréer. Si des erreurs persistent, il est fort probable que vous rencontriez Erreur de messagerie Outlook PST. Vous n'avez pas le choix d'utiliser un puissant outil de réparation, comme DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparer la base de données mdf endommagée et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com