SharingItem.SaveAs Method (Outlook)

Published: July 16, 2012

Saves the SharingItem to the specified path and in the format of the specified file type. If the file type is not specified, the MSG format (.msg) is used.

Version Added: Outlook 2007

expression .SaveAs(Path, Type)

expression A variable that represents a SharingItem object.

Parameters

Name

Required/Optional

Data Type

Description

Path

Required

String

The path in which to save the item.

Type

Optional

Variant

The file type to save. Can be one of the following OlSaveAsType constants: olHTML, olMSG, olRTF, olTemplate, olDoc, olTXT, olVCal, olVCard, olICal, or olMSGUnicode.

Also note that even though olDoc is a valid OlSaveAsType constant, messages in HTML format cannot be saved in Document format, and the olDoc constant works only if Microsoft Word is set up as the default email editor.

This Visual Basic for Applications (VBA) example uses the SaveAs method to save the currently open item as a text file in the Documents folder, using the subject as the file name. To run this example, make sure a mail item in plain text format is open in the active window.

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

Community Additions

ADD
Show:
© 2014 Microsoft