Hola a tod@s tengo un codigo para enviar emails desde visual basic 6 usando el microsoft outlook:

Dim myMail As Outlook.MailItem
Set myMail = Application.CreateItem(olMailItem)
With myMail
.Session
.BodyFormat = olFormatHTML
.To = "direccion@servidor.com"
.Subject = "titulo..."
.Body = "cuerpo del mensaje"
End With
myMail.Send

Me funciona bien, pero me encuentro con el problema de que quiero seleccionar la cuenta (origen) con la que deseo mandar el correo. Por defecto coge la que está predeterminada.

¿alguien me puede ayudar?

Un saludo y gracias

Disculpa junico, pero no declaraste ninguna funcion para el evio del mail?