Enviar automaticamente e-mails do cliente no Outlook para e-mail externo

Question

Oi tudo,

autoforwarding no nível de troca é desabilitado pelo administrador do servidor, então eu tenho algum código VBA que encaminha e-mails para um e-mail externo (meu e-mail blackberry). Eu tenho isso funcionando bem, mas queria saber se há alguma maneira quando receber o e-mail em minha outra conta que, em vez de ver todos os e-mails de mim, você pode ver o remetente original na parte de?

aqui está o meu código

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add "[email protected]"
myFwd.Subject = Mid(myFwd.Subject, 4)
myFwd.Save


myFwd.Send
Set myFwd = Nothing
End Sub

    

Answer 1

Embora eu não seja um usuário do Outlook, este artigo antigo sugere uma maneira: OL2000: como definir programaticamente um formulário Do campo .

Talvez isso funcione:

myFwd.SentOnBehalfOfName = Item.SentOnBehalfOfName 

Eu também notei no artigo Objeto MailItem propriedade de SenderName , que também pode ser útil.