通过

TaskItem.SaveAs 方法 (Outlook)

  • 项目

将 Microsoft Outlook项目以指定文件类型的格式保存到指定的路径。 如果没有指定文件类型，则使用 MSG 格式 (.msg)。

语法

表达式。SaveAs (Path， 键入)

表达 一个代表 TaskItem 对象的变量。

参数

名称 必需/可选 数据类型 说明
Path 必需 String 将项目保存到的路径。
Type 可选 Variant 要保存的文件类型。 可以是以下 OlSaveAsType 常量之一： olHTML、 olMSG、 olRTF、 olTemplate、 olDoc、 olTXT、 olVCal、 olVCard、 olICal 或 olMSGUnicode。

备注

此外请注意，尽管 olDoc 是一个有效的 OlSaveAsType 常量、 邮件以 HTML 格式不能保存为文档格式，并 olDoc 常量只有 Microsoft Word 设置为默认电子邮件编辑器。

示例

此 Visual Basic for Applications (VBA) 示例使用 SaveAs 方法作为文件名使用主题为文档文件夹中文本文件保存当前打开的项目。 若要运行此示例，请确保在活动窗口中以纯文本格式的邮件项目处于打开状态。

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

此 Visual Basic for Applications 的示例演示如何使用 SaveAs 方法创建模板。

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

另请参阅

TaskItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。