Événement TaskItem.AttachmentAdd (Outlook)
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 TaskItem .
Parameters
| 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
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.