VBA: Enviar email desde cuenta específica de Outlook

Aprenderemos en el post de hoy a elegir una de nuestras cuentas de Outlook desde la que enviar nuestros emails...

[...] en mi outlook tengo configurada más de una cuenta,  con que código especifico de cual quiero que se envíe el correo?[...]

La propiedad buscada en .SendUsingAccount.
Fundamental para el correcto funcionamiento asignar la propiedad como una variable declarada con Set:
Set .SendUsingAccount = xxxxx
Importante (y obvio) emplear la propiedad antes de llamar al método Send.

Supongamos los siguiente valores A2:D2 en nuestra hoja:

Insertamos en la ventana de código de un módulo estándar el siguiente código:
No olvides activar la librería de Microsoft Outlook...!!

Sub EnvioCuentaEspecificaOutlook()
'OJOOO.. activar referencia/librería Microsoft Outlook 16.0 Object Library o superior !!!
Dim olApp As Object
Dim olMailItm As Object

'Creamos 'la aplicación de MS Outlook'
'que será la que voy a utilizar
Set olApp = CreateObject("Outlook.Application")
'y genero un email vacío... de momento
Set olMailItm = olApp.CreateItem(0)
'completamos elementos del email
With olMailItm
    .to = Range("A2").Value     'el destinatario
    '.bcc = Range("A3").Value   'si quisiéramos enviar con copia oculta
    .Subject = Range("B2").Value    'el asunto del correo
    .Body = Range("C2").Value       'el cuerpo del email
    .Attachments.Add Range("D2").Value  'si queremos adjuntar algún fichero
    Set .SendUsingAccount = olApp.Session.Accounts.Item(2)        'elegimos la cuenta desde donde enviar el email..
    .Display 'mostramos el email completo
    '.Send      'y lo enviamos... (si queremos)
End With

'Dejamos limpias las variables empleadas
Set olMailItm = Nothing
Set olApp = Nothing
End Sub

Y listo... enviando emails desde la cuenta de Outlook deseada.

Un paso previo interesante para conocer qué cuentas tenemos en nuestro Outlook y sobre todo a qué orden/numeración corresponde, sería lanzar la siguiente macro...

Sub testCuenta()
Dim olApp As Object

Set olApp = CreateObject("Outlook.Application")

For i = 1 To olApp.Session.Accounts.Count
    MsgBox "La cuenta " & olApp.Session.Accounts.Item(i) & " tiene el orden " & i
Next i
End Sub

De esta forma identificamos el número de cuenta a elegir...

Un método alternativo es enviar correos en nombre de otra persona o cuenta (.SentOnBehalfOfName).
Por supuesto podremos hacer uso de esta propiedad si tenemos acceso a esa cuenta ;-)

Insertamos en la ventana de código de un módulo estándar el siguiente código:
No olvides activar la librería de Microsoft Outlook...!!

Sub SendEmailOnBehalf()
Dim olMailItm As Outlook.MailItem

Set olMailItm = Outlook.CreateItem(olMailItem)
With olMailItm
  .SentOnBehalfOfName = "consultoria@excelforo.com"     'indicamos la cuenta desde donde enviar el email (en nombre de...)
  .To = "excelforo@gmail.com"
  .Subject = "Email en nombre de otra cuenta"
  .Body = "Hola!!" & vbNewLine & "Saludos cordiales"
  .Display
  .Send
End With
End Sub