Método Attachment.SaveAsFile (Outlook)
Guarda los datos adjuntos en la ruta de acceso especificada.
Sintaxis
expresión. SaveAsFile( _Path_ )
Expresión Variable que representa un objeto Attachment .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Path | Obligatorio | String | Ubicación en la que se guardan los datos adjuntos. |
Ejemplo:
En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza el método SaveAsFile para guardar los primeros datos adjuntos del elemento actualmente abierto como un archivo en la carpeta de documentos, utilizando el nombre para mostrar de los datos adjuntos como nombre de archivo.
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\" & _
myAttachments.Item(1).DisplayName
End If
Else
MsgBox "The item is of the wrong type."
End If
End If
End Sub
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.