tengo este script que es una funcion para enviar email:
<%
Function SendMail(varFrom, varTo, varSubject, varBody, varMime)
Dim iMsg, iConf, Flds
varMime
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds=iConf.fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.unlugar.com"
Flds.update
With iMsg
Set .Configuration = iConf
.To = varTo
.From = varFrom
.Sender = varFrom
.Subject = varSubject
End With
If varMime = "HTML" Then
iMsg.HtmlBody = varBody
Else
iMsg.TextBody = varBody
End If
iMsg.Send
SendMail = Err.Number
Set iMsg = Nothing
Set iConf = Nothing
End Function
SendMail(varFrom, varTo, varSubject, varBody, varMime)
%>
---------------------------------
la pregunta es como hago para llamar a esta funcion y como modificar las variables. GRACIAS
2006-10-17
04:29:54
·
4 respuestas
·
pregunta de
?
5
en
Programación y Diseño