Share via

Beschränken der Größe einer Anlage auf eine Outlook-Email-Nachricht

  • Artikel

In diesem Thema wird beschrieben, wie Sie ein verwaltetes Add-In für Outlook erstellen können, das das Senden von E-Mails abbricht, wenn die Gesamtgröße der Anlagen einen festen Grenzwert überschreitet.

Bereitgestellt von: Ken Getz, MCW Technologies, LLC

Eine bestimmte E-Mail-Nachricht kann eine oder mehrere Dateianlagen enthalten, und Sie können die Gesamtgröße von Anlagen in E-Mail-Nachrichten, die Sie senden, einschränken. Der Beispielcode in diesem Thema veranschaulicht, wie Sie das ItemSend-Ereignis in einem Outlook-Add-In behandeln und im Ereignishandler das Senden der E-Mail-Nachricht abbrechen können, wenn die kombinierte Größe aller Anlagen größer als ein bestimmter Wert ist (in diesem Beispiel 2 MB).

Das Outlook ItemSend-Ereignis empfängt als Parameter einen Verweis auf das zu sendende Element und eine boolesche Variable, die als Verweis übergeben wird und mit der Sie den Sendevorgang abbrechen können. Es liegt an Ihrem eigenen Code im Ereignishandler, um zu bestimmen, ob Sie das Ereignis abbrechen möchten. Legen Sie dazu den ParameterCancel auf True fest, wenn Sie das Ereignis abbrechen möchten.

Um in diesem Beispiel zu bestimmen, ob die Gesamtgröße der Anlagen größer als eine bestimmte Größe ist, durchläuft der Code jede Anlage in der Attachments-Auflistung des Elements. Für jedes Element ruft der Code die Size-Eigenschaft ab und summiert während der Schleife. Wenn die Summe jemals die Größe der maxSize-Konstante überschreitet, legt der Code die tooLarge Variable auf True fest und beendet die Schleife. Wenn die Variable true ist, benachrichtigt der tooLarge Code nach der Schleife den Benutzer und legt den Cancel-Parameter auf den Ereignishandler (der als Verweis übergeben wurde) auf True fest, wodurch Outlook das Senden des Elements abbricht.

Die folgenden Beispiele für verwalteten Code sind in C# und Visual Basic geschrieben. Um ein verwaltetes Codebeispiel von .NET Framework auszuführen, das ein Component Object Model (COM) aufrufen muss, müssen Sie eine Interopassembly verwenden, die verwaltete Schnittstellen definiert und den COM-Objekten in der Object Model-Typbibliothek zuordnet. Für Outlook können Sie Visual Studio und die Outlook Primary Interop Assembly (PIA) verwenden. Stellen Sie sicher, dass Sie die Outlook 2013 PIA installiert und eine Referenz zur Microsoft Outlook 15.0-Objektbibliothekkomponente in Visual Studio hinzugefügt haben, bevor Sie verwaltete Codebeispiele für Outlook 2013 ausführen.

Sie sollten die folgenden Codebeispiele in der ThisAddIn-Klasse eines Outlook-Add-Ins verwenden (mithilfe von Office Developer Tools für Visual Studio). Das Objekt der Anwendung im Code muss ein vertrauenswürdiges Outlook- Anwendungsobjekt sein, das von ThisAddIn.Globals bereitgestellt wird. Weitere Informationen zur Verwendung der Outlook-PIA zur Entwicklung verwalteter Outlook-Lösungen finden Sie auf MSDN unter Willkommen bei der Referenz zur primären Interopassembly von Outlook (PIA).

Der folgende Code zeigt, wie Sie das Senden einer E-Mail abbrechen, wenn die Gesamtgröße der Anlage den angegebenen Grenzwert überschreitet. Um diese Funktionalität zu veranschaulichen, erstellen Sie in Visual Studio ein neues verwaltetes Outlook-Add-In namens LimitAttachmentSizeAddIn. Ersetzen Sie den Code in ThisAddIn.cs oder ThisAddIn.vb durch den hier gezeigten Beispielcode.

using Outlook = Microsoft.Office.Interop.Outlook;
 
namespace LimitAttachmentSizeAddIn
{
    public partial class ThisAddIn
    {
        private void ThisAddIn_Startup(object sender, System.EventArgs e)
        {
          Application.ItemSend +=new Outlook.ApplicationEvents_11_ItemSendEventHandler(Application_ItemSend);
        }
 
        private void ThisAddIn_Shutdown(object sender, System.EventArgs e)
        {
        }
 
        void Application_ItemSend(object Item, ref bool Cancel)
        {
            // Specify the maximum size for the attachments. For this example,
            // the maximum size is 2 MB.
            const int maxSize = 2 * 1024 * 1000;
            bool tooLarge = false;
 
            Outlook.MailItem mailItem = Item as Outlook.MailItem;
            if (mailItem != null)
            {
                var attachments = mailItem.Attachments;
                double totalSize = 0;
                foreach (Outlook.Attachment attachment in attachments)
                {
                    totalSize += attachment.Size;
                    if (totalSize > maxSize)
                    {
                        tooLarge = true;
                        break;
                    }
                }
            }
            if (tooLarge)
            {
                // If the sum of the attachment sizes is too large, alert the user
                // and cancel the send.
                System.Windows.Forms.MessageBox.Show(
                    "The total attachment size is too large. Sending canceled.", 
                    "Outlook Add-In");
                Cancel = true;
            }
        }
 
        #region VSTO generated code
 
        /// <summary>
        /// Required method for Designer support - don't modify
        /// the contents of this method with the code editor.
        /// </summary>
        private void InternalStartup()
        {
            this.Startup += new System.EventHandler(ThisAddIn_Startup);
            this.Shutdown += new System.EventHandler(ThisAddIn_Shutdown);
        }
        
        #endregion
    }
}

Public Class ThisAddIn
 
    Private Sub ThisAddIn_Startup() Handles Me.Startup
 
    End Sub
 
    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
 
    End Sub
 
    Private Sub Application_ItemSend(ByVal Item As Object, ByRef Cancel As Boolean) Handles Application.ItemSend
        ' Specify the maximum size for the attachments. For this example,
        ' the maximum size is 2 MB.
        Const maxSize As Integer = 2 * 1024 * 1000
        Dim tooLarge As Boolean = False
 
        Dim mailItem As Outlook.MailItem = TryCast(Item, Outlook.MailItem)
        If mailItem IsNot Nothing Then
            Dim attachments = mailItem.Attachments
            Dim totalSize As Double = 0
 
            For Each attachment As Outlook.Attachment In attachments
                totalSize += attachment.Size
                If totalSize > maxSize Then
                    tooLarge = True
                    Exit For
                End If
            Next attachment
        End If
 
        If tooLarge Then
            ' If the sum of the attachment sizes is too large, alert the user
            ' and cancel the send.
            System.Windows.Forms.MessageBox.Show(
                "The total attachment size is too large. Sending canceled.",
                "Outlook Add-In")
            Cancel = True
        End If
    End Sub
End Class

Siehe auch

Anfügen einer Datei an ein E-Mail-ElementAnfügen eines Outlook-Kontaktelements an eine Email NachrichtÄndern einer Anlage einer Outlook Email Nachricht

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.