Método NoteItem.SaveAs (Outlook)

Salva o item do Microsoft Outlook no caminho e no formato do tipo de arquivo especificados. Se o tipo de arquivo não for especificado, o formato MSG (.msg) será usado.

Sintaxe

expressão. SaveAs (Caminho, Tipo)

Expressão Uma variável que representa um objeto NoteItem .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Path Obrigatório String O caminho no qual o item deve ser salvo.
Type Opcional Variant O tipo de arquivo para salvar. Pode ser uma das seguintes constantes OlSaveAsType : olHTML, olMSG, olRTF, olTemplate, olDoc, olTXT, olVCal, olVCard, olICal ou olMSGUnicode.

Comentários

Observe também que, embora olDoc é uma constante OlSaveAsType válida, mensagens no formato HTML não podem ser salvos no formato de documento e a constante olDoc funcionará somente se o Microsoft Word está configurado como o editor de email padrão.

Exemplo

Este exemplo Visual Basic for Applications (VBA) usa o método SaveAs para salvar o item aberto no momento como um arquivo de texto na pasta Documents, usando o assunto como o nome do arquivo. Para executar esse exemplo, verifique se que um item de email no formato de texto não criptografado está aberto na janela ativa.

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

Este exemplo Visual Basic for Applications mostra como criar um modelo usando o 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

Confira também

Objeto NoteItem

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.