Метод AppointmentItem.SaveAs (Outlook)

Статья
04/07/2023

Сохраняет элемент Microsoft Outlook по указанному пути и в формате указанного типа файла. Если тип файла не указан, используется формат MSG (MSG).

Синтаксис

expression. SaveAs (Path, Type)

Выражение Переменная, представляющая объект AppointmentItem .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Путь	Обязательный	String	Путь для сохранения элемента.
Type	Необязательный	Variant	Тип файла для сохранения. Может быть одной из следующих констант OlSaveAsType : olHTML, olMSG, olRTF, olTemplate, olDoc, olTXT, olVCal, olVCard, olICal или olMSGUnicode.

Замечания

Кроме того, обратите внимание, что несмотря на то, что olDoc является допустимой константой OlSaveAsType , сообщения в формате HTML не могут быть сохранены в формате документа, а константа olDoc работает только в том случае, если Microsoft Word настроен в качестве редактора электронной почты по умолчанию.

Пример

В этом примере Visual Basic для приложений (VBA) используется метод SaveAs для сохранения открытого в данный момент элемента в виде текстового файла в папке Documents, используя тему в качестве имени файла. Чтобы запустить этот пример, убедитесь, что в активном окне открыт почтовый элемент в формате обычного текста.

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 first attachment " & _ 
 "in the current item to the Documents folder? If a file with the " & _ 
 "same name already exists in the destination folder, " & _ 
 "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 для приложений примере показано, как создать шаблон с помощью метода SaveAs.

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

См. также

Объект AppointmentItem

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через