Está por ahí puesto hasta la saciedad!!!! HAY QUE HACER USO DE LA BÚSQUEDA DEL FORO!!!
Código:
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "TITULO DEL EMAIL"
objMessage.Sender = "EL QUE MANDA EL MENSAJE"
objMessage.To = "EL QUE LO RECIBE"
ObjMessage.HTMLBody ="CUERPO DEL MENSAJE (EN ESTE CASO HTML)"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVIDOR SMTP"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
set objmessage=nothing