|
La función
que sigue le permitirá reemplazar rápidamente
MPS.SendMail en todas sus programas ASP.
Para utilizar la función, primero
ubiquela al comienzo de cualquier programa que actualmente
utilice MPS.Sendmail. Una vez que se haya hecho esto, borre
cualquier línea que contenga el siguiente código:
'Set algo
= Sever.CreateObject ("MPS.SendMail")',
Reemplace todas las veces que aparezca
'algo.SendMail' con 'sendMessage'.
Por ejemplo, esto:
algo
= Server.CreateObject("MPS.SendMail")
errorCode = algo.SendMail ("From",
"To", "Subject", "Body")
Se convertiría en esto:
errorCode = sendMessage ("From",
"To", "Subject", "Body")
<%
Function sendMessage (mailFrom, mailTo, mailSubject, mailBody)
' sendMessage takes the same parameters as MPS.SendMail
' response = sendMessage (From, To, Subject, Body)
Set mailer = Server.CreateObject ("SMTPsvg.Mailer")
mailer.FromAddress = mailFrom
mailer.AddRecipient "", mailTo
mailer.Subject = mailSubject
mailer.BodyText = mailBody
mailer.RemoteHost = "mail.rapidsite.net"
If mailer.Sendmail then ' Send message
sendMessage = True ' Email was sent ok, return True
else ' Send Failure
sendMessage = mailer.Response ' Return error message
end if
end function
%>
|
