Código:
Todo bien hasta que a la hora de enviar el mensaje n el mail.send me da el siguiente error: El componente ActiveX no puede crear el componente"Set Mail = CreateObject("CDONTS.NewMail") Mail.From = Text1.Text 'el remitente Mail.To = Text2.Text 'la cuenta a la que se quiere enviar Mail.Subject = Text3.Text 'Titulo del Mensaje Mail.Body = Text4.Text '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
Extraño porque el componente se crea arriba y no en la linea de mail.send
Otra duda que me entra es si este codigo no necesita la direccion del servidor de correo (ya que no viene en ningun sitio :S)
Saludos y gracias.
PD. Ya esta instalada la libreria y puesta la referencia, asi que ese no es el error :P