MailItem.BeforeAttachmentSave-Ereignis (Outlook)
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. |
Hinweise
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
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.