title | api_name | ms.assetid | ms.date | ms.localizationpriority | |
---|---|---|---|---|---|
MailItem.AttachmentAdd event (Outlook) |
|
ae95c10b-f8dc-0341-4153-c7805d973df9 |
06/08/2017 |
medium |
Occurs when an attachment has been added to an instance of the parent object.
expression. AttachmentAdd
( _Attachment_
)
expression A variable that represents a MailItem object.
Name | Required/Optional | Data type | Description |
---|---|---|---|
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
[!includeSupport and feedback]