Ограничение размера вложения до сообщения outlook Email
В этом разделе описывается, как создать управляемую надстройку для Outlook, которая отменяет отправку сообщений электронной почты, если общий размер вложения превышает фиксированное ограничение.
Предоставляется: Кен Гетц, MCW Technologies, LLC
Данное сообщение электронной почты может содержать одно или несколько файловых вложений, и вам может потребоваться ограничить общий размер вложений в отправленных сообщениях электронной почты. В примере кода в этом разделе показано, как обработать событие ItemSend в надстройке Outlook, а в обработчике событий отменить отправку сообщения электронной почты, если совокупный размер всех вложений превышает определенное значение (в этом примере 2 МБ).
Событие Outlook ItemSend получает в качестве параметров ссылку на отправляемый элемент и логическую переменную, передаваемую по ссылке и позволяющую отменить операцию отправки. Это зависит от вашего кода в обработчике событий, чтобы определить, хотите ли вы отменить событие; Для этого задав для параметраCancel значение True , если вы хотите отменить событие.
В этом примере, чтобы определить, превышает ли общий размер вложения определенный размер, код выполняет цикл по каждому вложению в коллекции Вложений элемента. Для каждого элемента код получает свойство Size , суммируя по мере циклов. Если сумма когда-либо превышает размер константы maxSize , код задает для переменной tooLargeзначение True и завершает цикл. Если после цикла tooLarge переменная имеет значение True, код оповещает пользователя и задает параметр Cancel обработчику событий (который был передан по ссылке) значение True, в результате чего Outlook отменит отправку элемента.
Следующие примеры управляемого кода написаны на C# и Visual Basic. Для запуска примера управляемого кода для .NET Framework, который вызывает модель COM, необходимо использовать сборку взаимодействия, которая определяет и сопоставляет управляемые интерфейсы с объектами COM в библиотеке типов объектной модели. Для Outlook можно использовать Visual Studio и первичную сборку взаимодействия Outlook (PIA). Перед запуском примеров управляемого кода для Outlook 2013 убедитесь, что вы установили Outlook 2013 PIA и добавили ссылку на компонент Microsoft Outlook 15.0 Object Library в Visual Studio.
Используйте следующие примеры кода в классе ThisAddIn надстройки Outlook (с помощью инструментов разработчика Office для Visual Studio). Объект Application в коде должен быть доверенным объектом Application Outlook, предоставленным объектом ThisAddIn.Globals. Дополнительные сведения об использовании Outlook PIA для разработки управляемых решений Outlook см. в статье Справочник по основной сборке взаимодействия Outlook на веб-сайте MSDN.
В следующем коде показано, как отменить отправку сообщения электронной почты, если общий размер вложения превышает указанное ограничение. Чтобы продемонстрировать эту функцию, в Visual Studio создайте управляемую надстройку Outlook с именем LimitAttachmentSizeAddIn. Замените код в Файле ThisAddIn.cs или ThisAddIn.vb примером кода, показанного здесь.
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
См. также
Вложение файла к почтовомуэлементу Присоединение элемента контакта Outlook к сообщению EmailИзменение вложения сообщения outlook Email
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.