Hola,
Tengo este código para efrance de aspemail pero tengo problema spara configurar algunas variables. Este es el ejemplo sin modificarlo con las instrucciones:
' IN : sSender (string) : sender of the mail
' : sRecipient (string) : recipient of the mail (can use ; to send to many recipients)
' : sSubject (string) : subject of the mail
' : sText (string) : content of the mail
' : bHTML (boolean) : send HTML or text mail
' OUT : (boolean) : True
Function SendMail(ByVal sSender, ByVal sRecipient, ByVal sSubject, ByVal sText, ByVal bHTML)
Dim oMail
Const ASPEMAIL_HOST = "www.efrance.fr"
Set oMail = Server.CreateObject("Persits.MailSender" )
oMail.Host = ASPEMAIL_HOST
oMail.From = sSender
oMail.FromName = sSender
oMail.AddAddress sRecipient
oMail.Priority = "3"
oMail.Subject = sSubject
oMail.IsHTML = bHTML
If bHTML Then
oMail.Body = "<html><body>" & vbCRLF & Text2HTML(sText) & vbCRLF & "</body></html>"
Else
oMail.Body = sText
End If
On Error Resume Next
oMail.Send
If Err <> 0 Then
Err.Clear
SendMail = False
Else
SendMail = True
End If
End Function
Podrían postearmelo de manera que no me de errores en las variables?
Muchas gracias,
<center><embed src="http://www.efrance.fr/cria/fotos/firma.swf" height=78width=398>
</embed></center>
