Método JournalItem.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 JournalItem .
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.JournalItem
Set MyItem = Application.CreateItem(olJournalItem)
MyItem.Subject = "Status Report"
MyItem.Display
MyItem.SaveAs Environ("HOMEPATH") & "\My Documents\statusrep.oft", OlSaveAsType.olTemplate
End Sub
Confira também
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.