Retour à Forum de programmation

Envoyer à un ami script

  • madamladybug
  • Born
  • Born
  • No Avatar
  • Inscription: Aoû 19, 2003
  • Messages: 1
  • Loc: Dallas, TX
  • Status: Offline

Message Août 19th, 2003, 2:46 pm

Ayant des problèmes avec mon script envoyer à un ami. Obtention d'un msg d'erreur "Erreur SendingAn email a été envoyé à scarlet@learnstar.com }~~..:" Peut-être sa forme thats avoir le problème ou peut-être son serveur. S'il vous plaît aider. Merci :shock:

Code: [ Select ]
<%

' email values to set in form
'--------------------------------
' SendersName
' SendersEmail
' EmailSubject
' EmailRecipient
' message-
' thanksPage




' set up email values
sendersName =Request.Form("SendersName")
sendersEmail =Request.Form("SendersEmail")
if sendersName="" then sendersName=sendersEmail

EmailSubject=Request.Form("EmailSubject")
if EmailSubject="" then EmailSubject="No Subject"

'I hardcode the email recipient but you might want this flexibility
EmailRecipient=Request.Form("EmailRecipient") ' required


if EmailRecipient="" then
    response.Write("<html><body>Sorry, recipient required!</body></html>")
    response.End
end if

message=Request.Form("message")
if message="" then message="No message"



' create email
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

objNewMail.FROM = sendersName & "<" & sendersEmail & ">"
objNewMail.TO = EmailRecipient
objNewMail.Subject = Request.Form("EmailSubject")
objNewMail.Body = message & vbcrlf & vbcrlf & "Host:" & request.ServerVariables("REMOTE_ADDR") & vbcrlf & "Referer:" & request.ServerVariables("HTTP_REFERER")
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 1

' send email
objNewMail.Send
Set objNewMail = Nothing

response.write(" Email has been sent to***:" & EmailRecipient )
' show thankyou page
'if not request("thanksPage")="" then
    'response.Redirect(request("thanksPage"))
'    response.write("Thank you for sending e-mail to:" & EmailRecipient )

'else
    'response.write("<html><body>Thank You!</body></html>")
    'response.write(" Email has been sent to:" & EmailRecipient )
'end if    
response.End

%>
  1. <%
  3. ' email values to set in form
  4. '--------------------------------
  5. ' SendersName
  6. ' SendersEmail
  7. ' EmailSubject
  8. ' EmailRecipient
  9. ' message-
  10. ' thanksPage
  15. ' set up email values
  16. sendersName =Request.Form("SendersName")
  17. sendersEmail =Request.Form("SendersEmail")
  18. if sendersName="" then sendersName=sendersEmail
  20. EmailSubject=Request.Form("EmailSubject")
  21. if EmailSubject="" then EmailSubject="No Subject"
  23. 'I hardcode the email recipient but you might want this flexibility
  24. EmailRecipient=Request.Form("EmailRecipient") ' required
  27. if EmailRecipient="" then
  28.     response.Write("<html><body>Sorry, recipient required!</body></html>")
  29.     response.End
  30. end if
  32. message=Request.Form("message")
  33. if message="" then message="No message"
  37. ' create email
  38. Set objNewMail = Server.CreateObject("CDONTS.NewMail")
  40. objNewMail.FROM = sendersName & "<" & sendersEmail & ">"
  41. objNewMail.TO = EmailRecipient
  42. objNewMail.Subject = Request.Form("EmailSubject")
  43. objNewMail.Body = message & vbcrlf & vbcrlf & "Host:" & request.ServerVariables("REMOTE_ADDR") & vbcrlf & "Referer:" & request.ServerVariables("HTTP_REFERER")
  44. objNewMail.BodyFormat = 1
  45. objNewMail.MailFormat = 1
  47. ' send email
  48. objNewMail.Send
  49. Set objNewMail = Nothing
  51. response.write(" Email has been sent to***:" & EmailRecipient )
  52. ' show thankyou page
  53. 'if not request("thanksPage")="" then
  54.     'response.Redirect(request("thanksPage"))
  55. '    response.write("Thank you for sending e-mail to:" & EmailRecipient )
  57. 'else
  58.     'response.write("<html><body>Thank You!</body></html>")
  59.     'response.write(" Email has been sent to:" & EmailRecipient )
  60. 'end if    
  61. response.End
  63. %>
  • Anonymous
  • Bot
  • No Avatar
  • Inscription: 25 Feb 2008
  • Messages: ?
  • Loc: Ozzuland
  • Status: Online

Message Août 19th, 2003, 2:46 pm

  • Bigwebmaster
  • Site Admin
  • Site Admin
  • Avatar de l’utilisateur
  • Inscription: Déc 20, 2002
  • Messages: 8922
  • Loc: Seattle, WA & Phoenix, AZ
  • Status: Offline

Message Septembre 10th, 2003, 4:18 am

Il semble que personne n'a répondu à vous aider. Avez-vous la configuration de votre serveur de messagerie? Êtes-vous en mesure d'utiliser le composant CDONTS? Je vois dans votre script, vous utilisez et que je ne suis pas positive que vous aurez installé par défaut. Je pense que votre script est très bien, il me semble que le serveur de messagerie.

Votre sortie du script est:

"Erreur SendingAn e-mail a été envoyé à }~~..: écarlate @ learnstar. com "

Cela montre en effet qu'il atteint la ligne dans le script qui dit:

"Un courriel a été envoyé à }~~..: scarlet@learnstar.com"

Toutefois, il semble que les mots "Erreur d'envoi» a été l'ajout de l'ouverture de la ligne, et je devine qu'elle a quelque chose à faire avec CDONTS. De toute façon, je ne suis pas sûr si vous avez résolu ce problème en maintenant, mais il serait curieux, si vous avez jamais fait, et si cela n'est pas peut-être quelques-unes de mes suggestions qui vous poussent dans la bonne direction.
Ozzu Hosting - Want your website on a fast server like Ozzu?

Page 1 sur 1

Afficher de l'information

  • Total des messages de ce sujet: 2 messages
  • Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 122 invités
  • Vous ne pouvez pas poster de nouveaux sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas éditer vos messages
  • Vous ne pouvez pas supprimer vos messages
  • Vous ne pouvez pas joindre des fichiers
 
 

© 2011 Unmelted, LLC. Ozzu® est une marque déposée de Unmelted, LLC