Enviar Correo VBasic sin SMTP

[mariozap]

Me meti en la idea de que mi programa de Visual Basic envie un correo despues de determinados usos a una direccion de HOTMAIL.

Sin embargo me di cuenta que la forma mas comun es utilizando winsock y un servidor SMTP. Pero tambien me di cuenta de que esta forma es muy utilizada por los que enviam spam y por lo tanto los servidores SMTP son muy restringidos o son cambiados, por lo que no me da seguridad de que el servidor que use me sirva durante un buen tiempo. Aunque ya hice pruebas y pude enviar algunos correos de esta forma, no todos llegaron a su destino.

En conclusion, si lo que yo quiero es que los programas que distribuya envien un correo despues de 100 usos a una direccion hotmail o la que sea, ¿Como puedo hacerlo sin usar SMTP?

Por ahi lei que con MAPI, pero aunque he tratado no lo he logrado hacer. Les pido su ayuda para ver si me pueden resolver esta duda.

[manoloburgos]

Tengo hecha esta función
Añade primero el componente: "Microsoft CDO for Exchange 200 Library"

Sub EnviarCDO(parCorreoA As String, parAsunto As String, parCuerpo As String)
Dim cd As CDO.Message
Set cd = New CDO.Message
cd.Subject = parAsunto
cd.To = parCorreoA
cd.TextBody = parCuerpo
cd.Send
Set cd = Nothing
End Sub

[mariozap]

Esta intersante tu codigo pero no me funciona y es que ese componente no lo tengo, me aparece el Microsoft CDO 1.21 Library y al parecer no es lo mismo que el que me pones ya que no funciona y no reconoce el objeto.

No tendras esa libreria o de donde la puedo conseguir.

Gracias