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
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.