Método MailItem.Forward (Outlook)

Executa a ação Forward para um item e retorna a cópia resultante como um objeto MailItem.

Sintaxe

expressão. Forward

expressão Uma variável que representa um objeto MailItem.

Valor de retorno

Um objeto MailItem que representa o novo item de email.

Exemplo

Este exemplo Visual Basic for Applications (VBA) usa o método Remove para remover todos os anexos de uma mensagem encaminhada antes de enviá-lo ao Dan Wilson. Para executar esse exemplo, substitua 'Dan Wilson' por um nome válido de destinatário e mantenha um item de email que contenha pelo menos um anexo aberto na janela ativa.

Sub RemoveAttachmentBeforeForwarding() 
 
 Dim myinspector As Outlook.Inspector 
 
 Dim myItem As Outlook.MailItem 
 
 Dim myattachments As Outlook.Attachments 
 
 
 
 Set myinspector = Application.ActiveInspector 
 
 If Not TypeName(myinspector) = "Nothing" Then 
 
 Set myItem = myinspector.CurrentItem.Forward 
 
 Set myattachments = myItem.Attachments 
 
 While myattachments.Count > 0 
 
 myattachments.Remove 1 
 
 Wend 
 
 myItem.Display 
 
 myItem.Recipients.Add "Dan Wilson" 
 
 myItem.Send 
 
 Else 
 
 MsgBox "There is no active inspector." 
 
 End If 
 
End Sub

Confira também

Objeto MailItem

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.