Macro de envio de Correo

Hola a todos:
tengo una macro en excel que envía un correo con un archivo adjunto; el
usuario que la ejecuta tiene dos buzones de correo configurados y necesito
que la macro envíe los correos con el buzón secundario, sin embargo no soy
capaz de cambiar el campo "De" mediante la macro, de manera que el correo lo
envía con la dirección del buzón principal. La macro es la siguiente:

Set miOutlook = New Outlook.Application
Set miMail = miOutlook.CreateItem(olMailItem)

miMail.Subject = tema
miMail.To = "nombre"
miMail.Attachments.Add (ruta_plantilla & "enviados\" & fila & ".doc")
miMail.Send
fila = fila + 1

Muchas Gracias
Javier