Disculpa, creo que no me explique claro.
Si lo tengo, pero me da un error en el send. me dice que "El documento Activex no puede crear un objeto. el codigo es el siguiente, y me coloca el error en el send
Set Mail = CreateObject("CDONTS.NewMail")
Mail.From = "
[email protected]" 'el remitente
Mail.To = "
[email protected]" 'la cuenta a la que se quiere enviar
Mail.Subject = "Titulo" 'Titulo del Mensaje
Mail.Body = "Mensaje" 'El mensaje
Mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain
Mail.MailFormat = 1 ' 0 = MIME, 1 = Text
Mail.Importance = 1 ' 0 =High, 1 = Medium, 2 = Low
Mail.send