Método ContactItem.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 ContactItem .

Parameters

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 = myOlApp.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.ContactItem 

    Set MyItem = Application.CreateItem(olContactItem) 
    MyItem.Subject = "Status Report" 
    MyItem.Display 
    MyItem.SaveAs Environ("HOMEPATH") & "\My Documents\statusrep.oft", OlSaveAsType.olTemplate 
End Sub

Consulte también

Objeto ContactItem

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.