إخواني الأعزاء
السلام عليكم ورحمة الله وبركاته ،،،
لدي سؤال أرجو منكم الإجابة عليه إن أمكن ... حيث أني قد عملت مشروع تعبئة فورم ، بغرض إرساله مباشرة من الموقع إلى بريدي الالكتروني ، بحيث يقوم الزائر بكتابة إسمه وعنوانه البريدي ورسالته ويضغط على زر إرسال فيتم إرسال هذه المعلومات مباشرة إلى بريدي الالكتروني ، وقد نجحت الطريقة والبرمجة التي عملتها ، ولكني أردت أن أضيف لها خاصية رفع ملف ، بحيث يستطيع الزائر أن يرفع ملف معين بالضغط على (استعراض) وإرساله إلى بريدي الالكتروني مع باقي البنود السابقة ....
ولكني مع الأسف لم أوفق في البرمجة الصحيحة لإرفاق الملف ، فما هي الأوامر التي يجب علي إضافتها إلى النص البرمجي ليتم تقبل الملف المرفق وإرساله إلى بريدي الالكتروني ؟؟
وهذا هو النص البرمجي الذي عملته والذي من خلاله يتم إرسال معلومات الشخص ورسالته إلى بريدي الالكتروني ، وهو يعمل بشكل صحيح ، ولكن بدون خاصية رفع الملفات :
<%
Option Explicit
on error resume next
Dim objMail
Dim strSubject
Dim strBody
Dim sender
strSubject = request.Form("title")
sender = request.Form("email1")
strBody = request.Form("msg")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.SetLocaleIDs(1256(
objMail.From = sender
objMail.To = "…………..@hotmail.com"
objMail.Subject = strSubject
objMail.Body = strBody
objMail.MailFormat = 0
objMail.BodyFormat = 0
objMail.Send
response.Write(err.description)
Set objMail = Nothing
response.Redirect("Success.asp")
%>فهل تتكرمون بإضافة أوامر رفع الملفات إلى نفس النص السابق ...
شاكر لكم كريم تعاونكم
خالص تحياتي