Método NoteItem.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 NoteItem .
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 = 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.NoteItem
Set MyItem = Application.CreateItem(olNoteItem)
MyItem.Display
MyItem.SaveAs Environ("HOMEPATH") & "\My Documents\statusrep.oft", OlSaveAsType.olTemplate
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.