TaskItem.AttachmentAdd イベント (Outlook)

親オブジェクトのインスタンスに添付ファイルが追加されると発生します。

構文

式。 AttachmentAdd( _Attachment_ )

式TaskItem オブジェクトを表す変数。

パラメーター

例

この Visual Basic for Applications (VBA) の例では、添付ファイルを追加した後のアイテムのサイズをチェックし、サイズが 500,000 バイトを超えると警告を表示します。 サンプル コードを ThisOutlookSession などのクラス モジュールに配置し、イベント プロシージャを Microsoft Outlook で呼び出す前に、 TestAttachAdd() プロシージャを呼び出す必要があります。

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

関連項目

TaskItem オブジェクトの場合

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。