Como habilitar campo DE: para enviar excel - outlook a través de VB

Espero que me puedan ayudar, estoy enviando un excel en un correo de outlook, me funciona perfecto, solo que necesito agregar el campo DE: (osea que el correo no salga de mi casilla personal, si no de otra a la cual tengo autorización) pero no consigo hacerlo.

Les adjunto mi código (es la parte de al medio del código) he probado con las propiedades Sender, SendUsingAcount y no consigo, me aparece un error.

Espero que me puedan ayudar.

Dim correo As Outlook.Application

Dim mensaje As Outlook.MailItem

On Error Resume Next

Set correo = CreateObject("outlook.application")
correo.Session.Logon

Set mensaje = correo.CreateItem(olMailItem)

With mensaje

.To = Range("a205").Value
.Body = ""
.CC = Range("a206").Value
.Subject = Range("a204").Value
.Attachments.Add ActiveWorkbook.FullName
.Send

End With

correo = Nothing
mensaje = Nothing

On Error GoTo 0