con la funcion cdonts.NewMail
'Función que se utiliza para enviar un correo electrónico
Sub SendMailCDONTS(aTo, Subject, TextBody, aFrom)
Const CdoBodyFormatText = 1
Const CdoBodyFormatHTML = 0
Const CdoMailFormatMime = 0
Const CdoMailFormatText = 1
Dim Message 'As New cdonts.NewMail
'Create CDO message object
Set Message = CreateObject("cdonts.NewMail")
With Message
'Set email adress, subject And body
.To = aTo
.Subject = Subject
.Body = TextBody
'set mail And body format
.MailFormat = CdoMailFormatText
.BodyFormat = CdoBodyFormatText
'Set sender address If specified.
If Len(aFrom) > 0 Then .From = aFrom
'Send the message
.Send
End With
End Sub
%>
<%
Dim Titulo
Titulo = "te recuerda tu clave"
Dim De
De = "Remitente
[email protected]>"
Dim Para
Para = (rs_usuario_registrado.Fields.Item("t_email").Value)
Dim Mensaje
Mensaje = "IST Consultores te devuelve tu contraseña extraviada" & VBCrLf
Mensaje = Mensaje & "Nombre de Usuario: " & (rs_usuario_registrado.Fields.Item("t_nombre_usuario").Value) & VBCrLf
Mensaje = Mensaje & "Contraseña: " & (rs_usuario_registrado.Fields.Item("t_password").Value)
'Envía el Correo Electrónico usando la Función Anterior
SendMailCDONTS Para, Titulo, Mensaje, De
%>