Código macroExcel para enviar correos desde una cuenta determinada

Alguien puede ayudarme con un código macroExcel para enviar correos desde una cuenta determinada.

Me explico, en la celda C1, por ejemplo tengo una lista de cuentas de correos que están configuradas en Outlook. Para enviar un correo desde Excel, selecciono una cuenta de C1 que es la que va enviar el correo al destinatario. Las cuentas de destinatarios las tengo en un rango de celdas

Para la cuenta de envío probé con esto, pero no me funciona

' Se envía el archivo por outlook
   Set dam = CreateObject("outlook.application").CreateItem(0)

' Este paso funciona bien

' De la cuenta
' Set dam.From = Range("C1")

' Este paso NO funciona