creo que ya lo solucione

en un command pongo
   
    MAPISession1.SignOn
   
    MAPIMessages1.SessionID = MAPISession1.SessionID
    ComposeMessage
   
   
    MAPISession1.SignOff


y luego en un sub

Private Sub ComposeMessage()
    On Error GoTo ComposeErr
    Dim strMessage As String
    MAPIMessages1.Compose
    'MAPIMessages1.MsgIndex = -1
    MAPIMessages1.RecipDisplayName = "ocelaya@contal.com"
    MAPIMessages1.MsgSubject = "Soporte técnico"
    MAPIMessages1.Send True
   
    Exit Sub
ComposeErr:
    Debug.Print Err.Number, Err.Description
    Resume Next
End Sub



lo pongo por a alguien le sirve

lo de enviar correos es jodido sobre todo si es para spam porque usar un código php en un servidor normal mente si es gratuito es bloqueado y si es de pago gastas mucho ancho.

lo mas eficaz es crear un servidor smtp en local y enviarlo por ese.

No me gusta ser aguafiestas pero antes de hacer una pregunta deberias buscar un poco. Y con mucho mas motivo si la pregunta ya esta respondida en un tema que se llama:

Aqui lo tienes todo clarito:

Mandar mail por SMTP
http://foro.elhacker.net/index.php/topic,72560.0.html

Yo probe hace pòco con hotmail, con 3 servidores distintos y nucna llegan

Queria acotar que tambien estoy interesado pero si el metodo me permite evadir los filtros antispam de yahoo y hotmail. Alguien sabe como hace el famoso worm Skynet? Infecta a miles de usuarios a diario y encabeza el ranking de infecciones... infectará solamente a las direcciones que no tienen filtros para spam???