enviar emails con CDO

[FABERS]

Por favor estoy desesperada, intento enviar emails con CDO y se supone que los envia porque no me da ningun error, pero el caso es que no los envia por que en el correo no estan. Yo ya nose que hacer tengo configurado el smtp y todo asi que no se que es lo que pasa. Por favor necesito una solucion.
El codigo que utilizo es este:


Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPickup
.Item(cdoSMTPServer) = "localhost"
.Update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From =desde
.To =para
.Subject =asunto
.TextBody =cuerpo
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing