Αποστολή mail με asp σε Intranet...

[Bogey]

Καλησπέρα..

 

Το νέο μου πρόβλημα αφορά τις σελίδες μας στο Intranet.

Φτιαγμένες με Dreamweaver (το λατρεύω!!).

Τι θέλω.

Θέλω να φτιάξω φόρμες που να συμπληρώνουν οι υπάλληλοι και να τις στέλνουν στο HR.

Η αρχική λύση είναι στο action να βάλω “mailto:.. “ και να φεύγει μέσω outlook.

Εύκολο.

Όμως!!!

Μια φόρμα πρέπει να φεύγει μέσω server.

Υπʼ ʽοψιν ότι ο serer είναι ο Win 2003.

Προσπαθώ να μετατρέψω κάτι από java αλλά δεν δουλεύει.

Έτσι σκέφτομαι κάτι σε asp.

Αλλά δεν ξέρω asp..

Κάποια ιδέα;

 

 

Ευχαριστώ..

[lavelle]

Mπορείς να το κάνεις με χρήση του CDOSYS component (είναι by default εγκατεστημένο σe Win 2003)

 

Αφού φτιάξεις την html σελίδα με την φόρμα, στο action της form βάλε πχ. mailsend.asp και μέσα τον ακόλουθο κώδικα : (άλλαξε τα πεδία με τις demo τιμές). Αν θέλεις να πάρεις την τιμή του πεδίου της φόρμας της προηγούμενης σελίδας τότε γράφεις <%=request.form("όνομα πεδίου")%>

 

Kώδικας

-----------

<%

" Create the e-mail server object

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

" Outgoing SMTP server

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objCDOSYSCon.Fields.Update

 

" Update the CDOSYS Configuration

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "[email protected]"

objCDOSYSMail.To = "[email protected]"

objCDOSYSMail.Subject = "This is my subject for my test message"

objCDOSYSMail.HTMLBody = "This is the body "

objCDOSYSMail.Send

"Close the server mail object

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

%>

-------------------------------------------------------------------------

[Bogey]

@lavelle

Σε ευχαριστώ πολύ γαι την άμεση απάντηση.

 

Το μαιλ, στο οποίο θα πηγαίνουν οι συμπληρωμένες φόρμες θα μπεί στο:

objCDOSYSMail.From = "[email protected]", απ ότι καταλαβαίνω , έτσι δεν είναι;

Για να δεσμεύω τα συμπληρωμένα πεδία της φόρμας θα χρησιμοποιήσω την:

<%=request.from("όνομα πεδίου")%>, ένα για κάθε πεδίο, έτσι δεν είναι;

 

Μπορεί η ερώτηση να είναι πεντάχρονου παιδιου (αν κι έτσι νοιώθω με τα πρώτα μου βήματα στο web), αλλά το:

objCDOSYSMail.To = "[email protected]", τι κάνει;

 

:oops:

[Bogey]

Κάτι ακόμα..

 

το <%=request.from("όνομα πεδίου")%>, σε ποιό σημείο του κώδικα του file mailsend.asp θα το βάλω;

[lavelle]

objCDOSYSMail.From = "το e-mail αυτού που στέλνει την φόρμα"

objCDOSYSMail.To = "το e-mail αυτού που θέλεις να πηγαίνει η φόρμα"

objCDOSYSMail.Subject = "This is my subject for my test message"

objCDOSYSMail.HTMLBody = "This is the body "

[Bogey]

@lavelle

Καλημέρα και σ ευχαριστώ.

Τώρα μου βγλαζει ένα μήνυμα:

CDO.Message.1 error '80040213'

 

The transport failed to connect to the server.

 

/Sendmail.asp, line 26 (αυτή η γραμμή έχει την εντολή: objCDOSYSMail.Send

 

Θα ψάξω στο google, αλλά αν ξέρετε κάτι που μπορεί να με βοηθήσει...