添付ファイル を指定した項目のすべての添付ファイルを表すオブジェクトを返します。 読み取り専用です。
構文
expression。 Attachments
expression は MailItem オブジェクトを表す変数です。
例
この Visual Basic for Applications (VBA) の例では、Attachments.Remove メソッドを使用して、転送されたメール メッセージからすべての添付ファイルを削除してから、「Dan Wilson」に送信します。 この例を実行するときは、"Dan Wilson" の部分を実際の受信者の名前に置き換えてください。添付ファイル付きのアイテムは、インスペクター ウィンドウで開いたままにしておきます。
Sub RemoveAttachmentBeforeForwarding()
Dim myinspector As Outlook.Inspector
Dim myItem As Outlook.MailItem
Dim myattachments As Outlook.Attachments
Set myinspector = Application.ActiveInspector
If Not TypeName(myinspector) = "Nothing" Then
Set myItem = myinspector.CurrentItem.Forward
Set myattachments = myItem.Attachments
While myattachments.Count > 0
myattachments.Remove 1
Wend
myItem.Display
myItem.Recipients.Add "Dan Wilson"
myItem.Send
Else
MsgBox "There is no active inspector."
End If
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。