Événement MailItem.AttachmentAdd (Outlook)

  • Article

Survient lors de l'ajout d'une pièce jointe à une instance de l'objet parent.

Syntaxe

expression. AttachmentAdd( _Attachment_ )

expression Variable qui représente un objet MailItem.

Paramètres

Nom Requis/Facultatif Type de données Description
Attachment Requis Attachement Objet Attachment ajouté à l’élément.

Exemple

Cet exemple Visual Basic pour Applications (VBA) vérifie la taille de l’élément après l’ajout d’une pièce jointe et affiche un avertissement si la taille dépasse 500 000 octets. L’exemple de code doit être placé dans un module de classe tel que ThisOutlookSession, et la TestAttachAdd() procédure doit être appelée avant que la procédure événementielle puisse être appelée par 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

Voir aussi

Objet MailItem

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.