MailItem.AttachmentAdd-Ereignis (Outlook)

Artikel
04/07/2023

Tritt auf, wenn eine Anlage einer Instanz des übergeordneten Objekts hinzugefügt wurde.

Syntax

Ausdruck. AttachmentAdd( _Attachment_ )

Ausdruck Eine Variable, die ein MailItem-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Anlage	Erforderlich	Attachment	Die Anlage, die dem Element hinzugefügt wurde.

Beispiel

In diesem beispiel für Visual Basic for Applications (VBA) wird die Größe des Elements überprüft, nachdem eine Anlage hinzugefügt wurde, und es wird eine Warnung angezeigt, wenn die Größe 500.000 Bytes überschreitet. Der Beispielcode muss in einem Klassenmodul wie ThisOutlookSessionplatziert werden, und die TestAttachAdd() Prozedur sollte aufgerufen werden, bevor die Ereignisprozedur von Microsoft Outlook aufgerufen werden kann.

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

Siehe auch

MailItem-Objekt

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.

Freigeben über