MailItem.BeforeAttachmentSave-Ereignis (Outlook)

  • Artikel

Tritt kurz vor dem Speichern einer Anlage ein.

Syntax

Ausdruck. BeforeAttachmentSave( _Attachment_ , _Cancel_ )

Ausdruck Eine Variable, die ein MailItem -Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Anlage Erforderlich Attachment Die Anlage gespeichert werden soll.
Cancel Erforderlich Boolean (In VBScript nicht verwendet). False, Wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieses Argument auf true fest, der Speichervorgang festlegt ist nicht abgeschlossen und die Anlage nicht geändert.

HinwBemerkungeneise

Dieses Ereignis entspricht bei Anlagen auf den messaging-Speicher gespeichert werden. BeforeAttachmentSave -Ereignis tritt ein, kurz bevor eine Anlage gespeichert wird, wenn ein Element gespeichert wird. Wenn ein Benutzer eine Anlage bearbeitet und speichert anschließend diese Änderungen das BeforeAttachmentSave -Ereignis tritt nicht zu diesem Zeitpunkt; Stattdessen wird es auftreten, wenn das Element selbst später gespeichert wird. Es tritt ebenfalls nicht auf, wenn die Anlage mithilfe der SaveAsFile -Methode auf der Festplatte gespeichert wird.

Wenn Sie den Rückgabewert dieser Funktion auf False, speichern festlegen in VBScript Vorgang abgebrochen und die Anlage nicht geändert.

Beispiel

Visual Basic für Applikationen (VBA) wird benachrichtigt den Benutzer, den der Benutzer nicht berechtigt ist, um die Anlage zu speichern. Das Cancel-Argument wird auf True festgelegt, um den Speichervorgang abzubrechen. Der Beispielcode muss in einem Klassenmodul wie ThisOutlookSessionplatziert werden, und die TestAttachSave() Prozedur sollte aufgerufen werden, bevor die Ereignisprozedur von Microsoft Outlook aufgerufen werden kann.

Public WithEvents myItem As Outlook.MailItem 
 
Private Sub myItem_BeforeAttachmentSave(ByVal myAttachment As Attachment, Cancel As Boolean) 
 MsgBox "You are not allowed to save " & myAttachment.FileName 
 Cancel = True 
End Sub 
 
Public Sub TestAttachSave() 
 Set myItem = Application.ActiveInspector.CurrentItem 
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.