ASP E-MAIL ΚΩΔΙΚΑΣ

Από {bobos}

ΜΗΠΩΣ ΠΡΕΠΕΙ ΝΑ ΑΛΑ ΞΩ ΑΠΟ objMail ΣΕ aspemail ?


ΓΙΑΤΙ ΔΕΝ ΔΟΥΛΕΥΕΙ ΚΑΙ ΒΓΑΖΕΙ ΑΥΤΟ ΤΟ ΜΥΝΗΜΑ

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/cgi-bin/test/incgenmail.asp, line 14

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.


ΕΝΩ ΟΛΗ Η ΑΛΗ ΕΦΑΡΜΟΓΗ ΛΕΙΤΟΥΡΓΕΙ ΚΑΝΟΝΙΚΑ.



Ο ΚΩΔΙΚΑΣ ΕΙΝΑΙ ΑΥΤΟΣ ____________


<%
Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText )
Dim objMail
set objMail = server.createobject("SMTPsvg.Mailer")
objMail.FromName = sFromEmail
objMail.FromAddress = sFromEmail
objMail.RemoteHost = sEmailServer
objMail.AddRecipient sToEmail, sToEmail
objMail.Subject = sSubject
objMail.BodyText = sText
if objMail.SendMail then
SendEmail = ""
else
' Message send failure
SendEmail = objMail.Response
end if
Set objMail = nothing
End Function
%>