' Create an instance of the NewMail object.
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
' Set the properties of the object
objCDOMail.From = "
[email protected]"
objCDOMail.To = "
[email protected]"
*objCDOMail.Cc = ""
*objCDOMail.Bcc = ""
objCDOMail.Subject = "asunto del mensaje"
objCDOMail.BodyFormat=0
objCDOMail.MailFormat=0
objCDOMail.Body = text
' Send the message!
objCDOMail.Send
Set objCDOMail = Nothing
donde * es opcional
text = el contenido del mensaje, yo uso un include porque envio en formato html. de todas formas un ejemplo del text:
retchar =Chr(32) & Chr(13) & Chr(10)
text = " Fecha de Entrada : " & session("f_ei") & retchar
text = text & " Fecha de Salida : " & session("f_si") & retchar
Espero te sirva.
Salutti
