|
FORM
Γεια σας και ΧΡΟΝΙΑ ΠΟΛΛΑ!
Εχω δυο φορμες απο τις οποιες οταν ο χρηστης κανει submit θελω να μου ερχονται στο email οι απαντισεις. Το site ειναι σε windows και η εταιρεια hosting υποστηριζει το cdonts (καλα μεχρι εδω).Εχω τη φορμα στην οποια ειναι και η ρουτινα αλλα...Μπερδευομαι σε μερικα σημεια τι θα βαλω...που
ο κωδικας ειναι:
strAuthorEmail - Το email του αποστολέα
'| strRecipientEmail - Το email του αποδέκτη
'| strCC - To email του 2ου αποδέκτη (αν υπάρχει)
'| strSubject - Το θέμα του email
'| [ strBody ] - Το κυρίως μέρος του email
'| intMailFormat - To είδος του email [ 0 = HTML / 1 - Text ]
'| [ strAttachmentPath ] - Διαδρομή δίσκου για επισυναπτόμενο αρχέιο (προαιρετικό)
'|
'| intPriority - Προτεραιότητα
'| CdoHigh = 2 - Highest priority (Urgent)
'| CdoNormal = 1 - Normal
'| CdoLow = 0 - Lowest
'| Παράδειγμα κλήσης της ρουτίνας :
'| Call EmailCdonts("webmaster@somewhere.com",Recipient,"", "Subject",strBody ,0,"",2)
Function EmailCdonts(byval strAuthorEmail,byval strRecipientEmail,ByVal strCC, byval strSubject,byval strBody,
ByVal intMailFormat,ByVal strAttachmentPath,ByVal intPriority)
Dim ObjMail
'-----------------------[ START ERROR CHECKING ]---------------------------
If strAuthorEmail = "" or isnull(strAuthorEmail) Then
Response.Write("The author email parameter is missing")
Response.End
End If
If strRecipientEmail = "" or isnull(strRecipientEmail) Then
Response.Write("The Recipients email parameter is missing")
Response.End
End If
If strSubject = "" or isnull(strSubject) Then
Response.Write("The Subject parameter is missing")
Response.End
End If
If intMailFormat = "" or isnull(intMailFormat) Then
Response.Write("The Email Type parameter is missing, [ 0 = HTML / 1 - Text ] - Required Paramter")
Response.End
End If
'-----------------------[ END ERROR CHECKING ]---------------------------
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.FROM = strAuthorEmail
ObjMail.TO = strRecipientEmail
If strCC <> "" Then
ObjMail.Cc = strCC
End If
ObjMail.Subject = strSubject
ObjMail.BodyFormat = intMailFormat
ObjMail.MailFormat = intMailFormat
ObjMail.Body = strBody
' CdoHigh = 2 - Highest priority (Urgent)
' CdoNormal = 1 - Normal
' CdoLow = 0 - Lowest
ObjMail.Importance = intPriority
If strAttachmentPath <> "" Then
ObjMail.AttachFile strAttachmentPath
End If
ObjMail.Send
Set ObjMail= Nothing
End Function
%>
Παρακαλω με παραδειγμα δικων σας για πχ στοιχεια για να καταλαβω........
...Mesa stis parenteseis. THANKS ANY...
Από:
elina - 22/4/2004
2 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news
|
|
Στελνω ένα ΗΤΜL email. Μέσα σε αυτό έχω μία φορμα, όπου μέσω αυτής θέλω να στέλνει ο χρήστης σε ένα φίλο του το email ή έστω να του στέλνει ένα email και να τον ενημερώνει.
1) Ξέρετε πως γίνεται στο script το Recipient From να διαβάζει αυτόματα το email του πρώτου χρήστη, έτσι ώστε στην αποστολή email στο φίλο του να λέει αυτόματα από ποιον εστάλη.
2) Η φόρμα αυτή τη στιγμή έχει 2 textfields. Στο πρώτο ζητείται το όνομα του χρήστη και στο δεύτερο το email του χρήστη (φίλου) που πρόκειται να ενημερωθεί.
Η φόρμα διαβάζει ένα asp script. Δυστυχώς αν σταλεί το email στο Ηοtmail, η φόρμα δε μπορεί να διαβαστεί.
ΜΠΟΡΕΙ ΚΑΝΕΙΣ ΝΑ ΒΟΗΘΗΣΕΙ;;;;;
Από:
xnarman - 20/4/2004
3 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news
|