الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

دالة لبعث الرسائل من الموقع

مغلق
بدأه محمد خليل أبو صلاح في 15 يناير 2002 · 8 رد · 791 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

[l]

'Function to send an e-mail

Function SendMail(strEmailBody, strEmailAddress, strSubject, strMailComponent)

'Dimension variables

Dim objCDOMail 'Holds the CDONTS mail object

Dim objJMail 'Holds the Jmail object

'Select which email component to use

Select Case strMailComponent

'CDONTS mail component

Case "CDONTS"

'Create the e-mail server object

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'Who the e-mail is from

objCDOMail.From = ""

'Who the e-mail is sent to

objCDOMail.To = ""

'The subject of the e-mail

objCDOMail.Subject = strSubject

'The main body of the e-amil

objCDOMail.Body = strEmailBody

'Set the e-mail body format (0=HTML 1=Text)

objCDOMail.BodyFormat = 1

'Set the mail format (0=MIME 1=Text)

objCDOMail.MailFormat = 0

'Importance of the e-mail (0=Low, 1=Normal, 2=High)

objCDOMail.Importance = 1

'Send the e-mail

objCDOMail.Send

'Close the server mail object

Set objCDOMail = Nothing

'JMail component

Case "Jmail"

'Create the e-mail server object

Set objJMail = Server.CreateObject("JMail.SMTPMail")

'Out going SMTP mail server address

objJMail.ServerAddress = strSMTPServer

'Who the e-mail is from

objJMail.Sender = strEmailAddress

'Who the e-mail is sent to

objJMail.AddRecipient strEmailAddress

'The subject of the e-mail

objJMail.Subject = strSubject

'The main body of the e-amil

objJMail.Body = strEmailBody

'Importance of the e-mail

objJMail.Priority = 3

'Send the e-mail

If NOT strSMTPServer = "" Then objJMail.Execute

'Close the server mail object

Set objJMail = Nothing

End Select

'Set the returned value of the function to true

SendMail = True

End Function

%>

[/l]

You can fly while you can touch the sky

#2

مشكوووووور

والله تستحق مسمى عضوشرف ياريت الأعزاء المشرفين يشوفون مشاركاتك والرأي لهم بعدكذا

#3

أنا بصراحة حبيتك مو علشان مدحي بس المحبة من الله و حبيت أخبرك أني أنا لسة مبتديء و بدري علية و التمايز مو بالمشاركات بل بالتقوى..

انتظروا العديد بعد امتحاناتى .. لازم يكون منتدانا الأفضل

You can fly while you can touch the sky

#4

الله يوفقك ويوفق الجميع وان دل دل على تواضعك ... والمنتدى صدقني مميز بوجود كل المشرفين اصحاب الإمكانيات العاليه جدا والكل هنا يعمل مثل خلية النحل وشهادة لله ان الجميع هنا يتهافت للرد وادلاء كل مالديهم من معلومات و90% من أصحاب المواقع كانت بدايتهم من هنا

هذاكلامي ليس مجاملة انا لمست كل تجاوب منهم دون تعالي ....

والله وفقنا جميعا

#5

نشكر لكم مشاعركم الطيبة هذة تجاه منتدانا الحبيب

و بصراحة من هذا المنتدى تعلمنا الكثير والحمدلله الأن أصبح عدد الزوار كبير وأيظا إنظم إلينا كوكبة من الأعضاء الذين نفتخر بوجودهم معنا

أتفق معك أخي العربي بأن الأخ فارس من النشطين وما شاء الله مواضيعه جيدة

وهو الأن أتقن VbScript بشك رائع وهو من لأشخاص الذين يحبون المساعدة

إن شاء الله نرى منه الكثير في العطلة ويعمل حسابة أن اعماله لن تجد المدح بل النقد والذي سيكون بناء بإذن الله

وهذا للجميع ولي أنا أيضا فيجب أن نعود بعضنا على تقبل النقد لأنه سيعود عليك شخصيا بالفائدة

#6

بس ممكن انك تزودنا بعملية ربط ملفات بالرساله وكيفية ارسال هذه الملفات ، بالاضافة الى طريقة عرض هذه الرساله وتنزيل تلك الملفات المربوطة ولك مني جزيل الشكر

#7

يوفر كائن CDONTS القدرة على ارسال الرسائل عبر موقعك الخاص و هناك عدد من الكائنات

التي تتفرع من هذا الكائن و التي تستخدم في ارسال الرسائل ومنها الكائن session و الكائن

newMail و الذي يرسل الرسالة بأسهل الطرق ..و هي طريقة اسهل بكثير من الموضحة بالأعلى

و هي بالطريقة التالية :

[l]

Dim mail

set mail=server.createObject("CDONTS.NewMail")

call mail.Send("your_email_here","sendToEmail" , _

"titleOfTheMessage","BodyOfMessage")

set mail=nothing

%>

[/l]

طبعا هناك طريقة اخرى و هي اوضح من الأولى :

[l]

Dim mail

set mail=server.createObject("CDONTS.NewMail")

mail.From="me@myMail.com"

mail.To="arabteam2000@arabteam2000.com"

mail.Subject="Send e-mail"

mail.Body="heey .. This is just a try .."

mail.Send

%>

[/l]

طبعا يمكن ارفاق ملفات كما طلب الأخ it_moh باستخدام المنهج attachFile و الذي يستخدم

بربط وصلة للمسار الفيزيائي للملف المرفق كما يستخدم المنهج AttachURL بنفس طريقة المنهج السابق

لكن الربط هنا يكون على شكل مسار موجود على الشبكة .. و هذا المثال السابق بعد التعديل :

[l]

Dim mail

set mail=server.createObject("CDONTS.NewMail")

mail.From="me@myMail.com"

mail.To="arabteam2000@arabteam2000.com"

mail.Subject="Send e-mail"

mail.Body="heey .. This is just a try for attachments .."

mail.AttachFile "c:test.txt"

mail.Send

%>

[/l]

طبعا من باب التوضيح للمبتدئين كفكرة للعمل .. نقوم بعمل نموذج به عدة حقول كما هو موجود بشركات

البريد الالكتروني و نقوم باستقبال قيم هذه الحقول في صفحة تقوم و ظيفتها باسناد القيم المستقبلة للمناهج الموجودة

ثم ترسل الرسالة .. و بالتالي يسهل عمل القوائم البريدية ..

طبعا الطريقة الأخرى و هي استخدام الكائن session سأتطرق لها لاحقا ان شاء الله..

هذا الموضوع منقول بتصرف من كتاب :

الدليل الكامل لصفحات الملقم النشط 3 .. للكاتب : روسل جونس

You can fly while you can touch the sky

#8

تحية طيبة اخي محمد خليل أبو صلاح

شكراً لك جزيلاً على ما تقدمة لنا , ولكن لدي تسائل بسيط وهو هل ما ذكرته هنا من سكربتات asp تنطبق على الـ ASP.NET ......؟

والشكر لك موصول

#9

العفو أخي .. لكن بخصوص ال asp.Net فلا اعلم ذلك

و يا ريت احد الاخوان الذي دخل في غمار هذه اللغة ان يرد عليك ..

شكرا لك..

You can fly while you can touch the sky

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…