Método MailItem.SaveAs (Outlook)

Guarda el elemento de Microsoft Outlook en la ruta de acceso especificada y con el formato del tipo de archivo indicado. Si no se especifica el tipo de archivo, se usa el formato MSG (.msg).

Sintaxis

expresión. SaveAs (ruta de acceso, tipo)

expresión Variable que representa un objeto MailItem.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Path	Obligatorio	String	Ruta de acceso en la que se va a guardar el elemento.
Type	Opcional	Variant	Tipo de archivo que se va a guardar. Puede ser una de las siguientes constantes OlSaveAsType : olHTML, olMSG, olRTF, olTemplate, olDoc, olTXT, olVCal, olVCard, olICal o olMSGUnicode.

Comentarios

Además, tenga en cuenta aunque olDoc sea una constante válida de OlSaveAsType, los mensajes en formato HTML no se pueden guardar en formato de documento y la constante olDoc sólo funciona si Microsoft Word está configurado como el editor de correo electrónico predeterminado.

Ejemplo:

En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza el método SaveAs para guardar el elemento actualmente abierto como un archivo de texto en la carpeta de documentos, con el asunto como el nombre de archivo. Para ejecutar este ejemplo, asegúrese de que un elemento de correo en texto sin formato está abierto en la ventana activa.

Sub SaveAsTXT() 
 Dim myItem As Outlook.Inspector 
 Dim objItem As Object 
 
 Set myItem = Application.ActiveInspector 
 If Not TypeName(myItem) = "Nothing" Then 
 Set objItem = myItem.CurrentItem 
 strname = objItem.Subject 
 'Prompt the user for confirmation 
 Dim strPrompt As String 
 strPrompt = "Are you sure you want to save the item? " & _ 
 "If a file with the same name already exists, " & _ 
 "it will be overwritten with this copy of the file." 
 If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then 
 objItem.SaveAs Environ("HOMEPATH") & "\My Documents\" & strname & ".txt", olTXT 
 End If 
 Else 
 MsgBox "There is no current active inspector." 
 End If 
End Sub

En este ejemplo de Visual Basic para aplicaciones se muestra cómo crear una plantilla mediante el método SaveAs.

Sub CreateTemplate() 
 Dim MyItem As Outlook.MailItem 
 
 Set MyItem = Application.CreateItem(olMailItem) 
 MyItem.Subject = "Status Report" 
 MyItem.To = "Dan Wilson" 
 MyItem.Display 
 MyItem.SaveAs Environ("HOMEPATH") & "\My Documents\statusrep.oft", OlSaveAsType.olTemplate 
End Sub

Consulte también

Objeto MailItem

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.