Denos
01 de Diciembre del 2004

Dim uno As Object
Dim dos As Object
Dim tres As Object

Set uno = CreateObject("outlook.application")
Set dos = uno.GetNameSpace("MAPI")
Set tres = uno.CreateItem(0)
tres.BCC = "Dirección de correo cualquiera"
tres.Subject = "Asunto cualquiera"
tres.Body = "Texto del correo ..."
tres.Send

Luis Atondo
01 de Diciembre del 2004

Que es lo que te muestra o que no hace???

lo unico que podria ser es que no tengas instalado el outlook. y activada una cuenta de correo en el....

a mi me funciono bien el tu codigo...

Denos
01 de Diciembre del 2004

Me da un error 429 en tiempo de ejecucion y me dice
El componente ActiveX no puede crear el objeto

Luis Atondo
01 de Diciembre del 2004

Pero si tienes la cuenta en el outlook para que le de salida al correo??

Denos
01 de Diciembre del 2004

Si tengo una cuenta con la que trabajo para enviar correos desde el outlook.