SaveAsFile メソッド (Outlook)Attachment.SaveAsFile method (Outlook)

添付ファイルを指定されたパスに保存します。Saves the attachment to the specified path.


expression. SaveAsFile( _Path_ )

Attachmentオブジェクトを表す変数を取得します。expression A variable that represents an Attachment object.


名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
パスPath 必須Required StringString 添付ファイルの保存先のパスを指定します。The location at which to save the attachment.


次の Visual Basic for Applications (VBA) の例は、 SaveAsFile メソッドを使って、現在開いているアイテムの最初の添付ファイルを Documents フォルダーに保存します。ファイル名には、添付ファイルの表示名を使用します。This Visual Basic for Applications (VBA) example uses the SaveAsFile method to save the first attachment of the currently open item as a file in the Documents folder, using the attachment's display name as the file name.

Sub SaveAttachment() 
 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 
 If TypeName(myInspector.CurrentItem) = "MailItem" Then 
 Set myItem = myInspector.CurrentItem 
 Set myAttachments = myItem.Attachments 
 'Prompt the user for confirmation 
 Dim strPrompt As String 
 strPrompt = "Are you sure you want to save the first attachment in the current item to the Documents folder? If a file with the same name already exists in the destination folder, it will be overwritten with this copy of the file." 
 If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then 
 myAttachments.Item(1).SaveAsFile Environ("HOMEPATH") & "\My Documents\" & _ 
 End If 
 MsgBox "The item is of the wrong type." 
 End If 
 End If 
End Sub

関連項目See also

オブジェクトの添付ファイルAttachment Object

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.