MailItem.AttachmentAdd Event (Outlook)
Occurs when an attachment has been added to an instance of the parent object.
expression A variable that represents a MailItem object.
|Attachment||Required||Attachment||The Attachment that was added to the item.|
This Visual Basic for Applications (VBA) example checks the size of the item after an attachment has been added and displays a warning if the size exceeds 500,000 bytes. The sample code must be placed in a class module such as
ThisOutlookSession, and the
TestAttachAdd() procedure should be called before the event procedure can be called by Microsoft Outlook.
Public WithEvents newItem As Outlook.MailItem Private Sub newItem_AttachmentAdd(ByVal newAttachment As Attachment) If newAttachment.Type = olByValue Then newItem.Save If newItem.Size > 500000 Then MsgBox "Warning: Item size is now " &; newItem.Size &; " bytes." End If End If End Sub Public Sub TestAttachAdd() Dim atts As Outlook.Attachments Dim newAttachment As Outlook.Attachment Set newItem = Application.CreateItem(olMailItem) newItem.Subject = "Test attachment" Set atts = newItem.Attachments Set newAttachment = atts.Add("C:\Test.txt", olByValue) End Sub