Compartilhar via


Método ContactItem.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 ContactItem .

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 = myOlApp.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.ContactItem 

    Set MyItem = Application.CreateItem(olContactItem) 
    MyItem.Subject = "Status Report" 
    MyItem.Display 
    MyItem.SaveAs Environ("HOMEPATH") & "\My Documents\statusrep.oft", OlSaveAsType.olTemplate 
End Sub

Confira também

Objeto ContactItem

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.