إرسال البريد من الأكسس مباشرة

مشكور اخى

أخى الكريم mas123

الفكرة جميلة ورائعة وفى حالة عمليها يمكن تطويرها بأفكار هائلة ..

ولكن لم يعمل معى النمذوج ويجرج رسالة تقول "يجب ملئ جميع الحقول أولاً قبل الضغط على إرسال" هذا برغم أن جميع الحقول بها بيانات سليمة كما ترى بالصورة التالية.

تحياتى

محمد ندا

Mohamed Nada كتب:

أخى الكريم mas123

الفكرة جميلة ورائعة وفى حالة عمليها يمكن تطويرها بأفكار هائلة ..

ولكن لم يعمل معى النمذوج ويجرج رسالة تقول "يجب ملئ جميع الحقول أولاً قبل الضغط على إرسال" هذا برغم أن جميع الحقول بها بيانات سليمة كما ترى بالصورة التالية.

تحياتى

محمد ندا

أخي محمد ندا

يبدو أنك لم تكلف نفسك قليلا لترى الأكواد

وتقوم بحذف الشرط الخاص بالتأكد من ملء جميع الحقول

أنا أصلا كنت كاتب المثال بدون أي تأكد من صحة تركيبة الإيميل

user@company.com

وبدون شرط التأكد من عدم خلو مربعات النصوص كلها من البيانات

على رغبة أحد الإخوة كان يريد ذلك

ورغم ذلك

يوجد سؤال يطرح نفسه

هل تركيبة شرط التحقق من عدم خلو مربعات النصوص به خطأ؟؟؟

If Me.myname = "" Or Me.tomail = "" Or Me.toname = "" Or Me.sub = "" Or Me.msg = "" Then
*******
Else
MsgBox "يجب ملء جميع الحقول أولا قبل الضغط على إرسال"
Me.myname.SetFocus
End If

???

للعلم آخر كود كتبته ولم أختبره هو كود الشرط وبعد تجربته وجدت هذا الشيء الغريب

على العموم مرفق المثال بدون هذا الشرط

مش فاهم معنى الكلمة الملونة بالأحمر ياريت تفسرها

mas_mailer2.rar

أخى الكريم mas123

أشكرك على ردك الكريم .. والسريع فى نفس الوقت.

أولاً: بالنسبة للكلمة الملونة فهى خطأ إملائى أقصد بها (فى حالة عملها).

ثانياً:

اقتباس

يبدو أنك لم تكلف نفسك قليلا لترى الأكواد

وتقوم بحذف الشرط الخاص بالتأكد من ملء جميع الحقول

وأيضاً نعودنا أن نتبع التعليمات الخاصة بالمبرمج وشرحه قبل محاولة التعديل وتعليماتك الأولى كانت:

اقتباس

فقط يلزمك لنجاح التجربة أن تمتلك بريدا في gmail

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

ودخلت للكود وذهبت مباشرة للجزء الخاص بذلك وعدلت فيه.

وربما تكون المشكلة عندى .. ولكن حدثت مشكلة فى المرة الثانية للتجربة بالمرفق الأخير (بالصورة)

إذا كنت جربته لديك ويعمل بعد آخر تعديل أرجو الإفادة.

تحياتى

محمد ندا

بعد حذف الشرط الذي لا أدري ما الخطأ به

كل شيء تمام كما اشاد به جميع الإخوة

لاحظ ترميز الرسالة windows-1256 حتى تظهر اللغة العربية سليمة

ويمكنك الاستعانة بهذه الروابط

الرابط الأول

الرابط الثاني

وبالنسبة للخطأ الذي حدث معك عندما تكون بيانات البريد غير صحيحة

وما زال السؤال قائما

ما الخطأ في كود شرط التحقق من عدم خلو جميع مربعات النصوص

أخى mas123

والله لقد حاولت بأكثر من بريد وأكثر من مرة .. ولكن نفس المشكلة التى تظهر فى الصورة فى المشاركة السابقة (فكرت أسجلها فيديو وأرفقها).

أكيد المشكلة عندى.

بس أنا نفسى يشتغل عندى لأن الفكرة جميلة وممكن تبقى حتة عبقرية داخل أى برنامج بالأكسس.

أنا متابع تجارب باقى الأخوة .. وأرى أخى يوسف أحمد يطالع الموضوع الآن لعله يدلى بدلوه.

وسوف أطالع الروابط كما تفضلت وأخبرتنى.

تحياتى

محمد ندا

الحمد لله توصلت إلى الخطأ في شرط عدم خلو مربعات النص كلها

والملف في شكله النهائي في المرفق

لا ينقصني سوى دعاؤكم

أخوكم

محمد صالح

mas123_mailer.rar

السلام عليكــم ورحمـة الله وبركاتــه ،،

الأخ الكريم محمد صالح وفقك الله

أقدم لك شكري وعظيم أمتناني فقد لامست بحق ما كنت أبحث عنه

طريقة ارسال بريد ألكتروني ضمن بيئة أكسس وارفاقها في حزمة البرمجيات

وكما أسلف الحبيب محمد ندا فقد جربت المرفق ولم يفلح معي أيضا

وأتمنى علاج ما تفضلت به

حيث ظهرت الرسالة التالية

هذا لن يقلل من جهدك ولن يبخس أجرك

لاحظ أننا في آخر العشر الأواخر من رمضان

والكل يدعو لك

فاللهم أرفع قدره وأعظم أجره

وافتح عليه من العلم والفراسة والفطنة

ليسهل عليه ما صعب أو أغلق من أمور البرمجة

أخوك أبومحمد

أخي الفاضل أبا محمد

هذا الخطأ كان يظهر عندما انسى كتابة ايميلي في gmail في مكانه في الموديول

أو أنسى أكتب كلمة المرور لهذا الحساب

أوأكتبهما ناقصين بعض الحروف

كل هذه احتمالات واردة

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

وكما يظهر في الروابط السابقة أن الكود مجرب في الإكسل والأكسس

وأتمنى أن يشاركنا أحد الإخوة الذين جربوا الكود

ايه أخبار الإخوة الذين جربوا الكود الرائع

نريد أن نستثمره في مواطن كثيييييييييييرة

تحياتي

محمد صالح

أخى الكريم محمد صالح

أنا معك فى انتظار تجارب الأخوة حتى أستطيع استخدامه ..

فالفكرة أكثر من رائعة ،، ،، وفكرت فيها قبل ذلك مرات ولكن دائماً كان يعوق الموضوع أننا دائماً كنا نحتاج إلى وسيط مثل الــOutlook.

تحياتى

وكل عام وأنتم بخير

محمد ندا

سبحان الله

ألم يستطع أحد الإخوة والأخوات تجربة هذا الكود؟؟

ربما يكون السبب هو عدم تحديث إصدارة الويندوز لديهم لآخر إصدار

لأن الكود يعتمد على WSH ... Windows Script Host

وأعتقد أنه يلزم الإخوة تحديث الويندوز عن طريق windows automatic update

أو على الأقل تثبيت net framework 3.5

بانتظار النتائج بعد التحديث

ولا تنسوا أخاكم محمد صالح من صالح دعائكم

أولاً: أخى محمد صالح بارك الله لك وبارك عليك وحولك وتقبل الله منا ومنكم صالح الأعمال وجعل هذا العيد فرحة لك ولأهلك ومغفرة ورحمة ، وبارك لك فى علمك وعملك وجعلك من عتقائه فى هذا الشهر الفضيل.

ثانياً:

اقتباس

وأعتقد أنه يلزم الإخوة تحديث الويندوز عن طريق windows automatic update

أو على الأقل تثبيت net framework 3.5

الويندوز عندى مفتوح له التحديث الآلى فيقوم ببالتحديث بشكل يومى تقريباً وجميع إصدارات الـNet Frame موجودة حتى 3.5

ستجدنى مهتم بشكل حقيقى بتشغيل هذه الأداة الرائعة التى تفضلت بها لأنها فعلاً جيدة جداً عندما أحل مشكلتها عندى واستعملها؟

تحياتى

محمد ندا

هذا ما حصل.. لا اعرف يبدوا انني لم تابع الموضوع من الاول جيدا

نفس الخطأ الذي ظهر للاعضاء يظهر عندي

مع ان تحديثات الويندوز عندي تعمل بصفة يومية وبطبيعة الحال لاني استخدم برنامج فيجوال بيسك دوت نت 2008 فلدي دوت نت فريم وورك 3.5

السلام عليكم ورحمة الله وبركاته :

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

بالتوفيق

كل عام أنتم جميعا بخير

أخي هشام

أولا : لو كتبت نص الرسالة في VBE مباشرة لن تصل صحيحة ولذلك لو لا حظت أني اعتمدت على مربعات النص في انموذج وجعلت أكواد html فقط هي التي في محرر الفيجوال بيسك والتيمن ضمنها أن ترميز الرسالة wndows-1256 لأنك لو لاحظت أن الرسالة عبارة عن html

ثالثا : يمكن إرفاق أكثر من ملف في الرسالة

ثانيا :

يبدأ الكود بـ

	Dim iMsg As Object
	Dim iConf As Object
	Dim strbody, myemail, mypassword As String
	Dim Flds As Variant

وهو لتحديد عدد ونوع المتغيرات التي نريدها وهي على الترتيب عنصر و نص ومصفوفة

ثم بعد ذلك الإعلان عن مضمون هذه المتغيرات

myemail = "@gmail.com"
	mypassword = ""
	Set iMsg = CreateObject("CDO.Message")
	Set iConf = CreateObject("CDO.Configuration")
	iConf.Load -1
	Set Flds = iConf.Fields

وهي على الترتيب ايميلك في gmail وكلمة مرورك (يجب كتابتهم بصورة صحيحة)

وبعد ذلك العنصر الأول هو رسالة باستعمال الـ CDO والثاني عنصر لتشكيل وتكوين الـ CDO

وبعد ذلك لتحميل تكوينات ال CDO

ثم التصريح بحقول هذا التشكيل

 With Flds
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = myemail
		.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mypassword
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		.Update
	End With

وهي على الترتيب اسعمال الإيقاف المؤقت واستعمال التأكد من اسم المستخدم وكلمة مروره واستعمال سيرفر smtp الخاص بـ gmail وتحديد المنفذ رقم 25 للإرسال ثم تحديث هذه التشكيلات

	With iMsg
		Set .Configuration = iConf
		.To = Me.tomail
		.From = """" & Me.myname & """ <" & myemail & ">"
		.Subject = Me.sub
		.HTMLBody = "<head><meta http-equiv='Content-Type' content='text/html; charset=windows-1256' /></head><div dir='rtl' align='right' style='font-size:25px'>عزيزي: <font style='color:red'>" & Me.toname & "</font><br /><br />" & Replace(Me.msg, vbNewLine, "<br />") & "<br />مع تحيات :<br /><font style='color:green'>" & Me.myname & "</font></div>"
		.Send
	End With

وهنا نأتي لأهم ما في الموضوع وهو تحديد معاملات الرسالة (العنصر الأول)

تشكيلات الرسالة هي المعلن عنها سابقا

المرسل إليه

ويكننا ارسال نسخ متعددة باستعمال

.cc=""
.bcc=""

ثم اسم المرسل وبريده

ثم موضوع الرسالة

وهنا استعملنا

.htmlbody

لكي نرسل رسالة عبارة عن أكواد html ويكننا إرسال نص من خلال

.textbody=""

ولكن ينبغي ملاحظة أن إرسال نص بسيط غير مناسب للغة العربية

ويمكننا تضمين ملف نص بدلا من كتابته باستعمال هذا الكود لقراءة محتويات الملف

'These constants are defined to make the code more readable
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
'Open the file for reading
Set f = fso.OpenTextFile("c:\temp\MyEmail.txt", ForReading)
'The ReadAll method reads the entire file into the variable BodyText
BodyText = f.ReadAll
'Close the file
f.Close
Set f = Nothing
Set fso = Nothing

ثم الربط بهذا الكود

.TextBody = BodyText

ويمكننا أيضا تضمين ملف html بدلا من كتابته بطريقتين

تضمين صفحة نت

.CreateMHTMLBody ="http://mhmd.tk"

تضمين ملف من الجهاز

.CreateMHTMLBody = "file://c:/temp/test.htm"

وأخيرا يمكننا إرفاق ملف من خلال مساره الكامل

.AddAttachment "c:\temp\readme.txt"

ويمكن إرفاق أكثر من ملف بتكرار السطر الأخير

وأخيرا يكون الإرسال

وفي حالة قراءة أكثر من سجل وعمل صفحات html استعمل دالة لهذا الغرض وهي

Function generatehtml(rw As Integer)
  Dim fs As Object
  Dim A As Object
  Dim FileName As String
  FileName = ThisWorkbook.Path & "\test.html"
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set A = fs.CreateTextFile(FileName, True)
  A.WriteLine ("<head><meta http-equiv='Content-Type' content='text/html; charset=windows-1256' /></head><div dir='rtl' align='right' style='font-size:25px'>عزيزي : <font style='color:red'>" & Range("F" & rw & "").Value & "</font><br />سطر : " & Range("E" & rw & "").Value & " بتاريخ : " & Format(Range("a" & rw & "").Value, "yyyy/mm/dd dddd") & " معلومة أخرى<br />سطر جديد<br />مع تحيات :<br /><font style='color:green'>اسمك</font></div>")
  A.Close
End Function

كانت لقرءة محتويات ملف إكسل وإخراجها في صورة ملف html وطبعا يسهل عليكم تحويلها إلى أكسس

وفي الختام

لا يسعني إلا أن أقول

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

أما هنا فالموضوع ضرب في مقتل ( في صلب الكود)

فكل عام أنتم بخير

أخوكم

محمد صالح

أخى الكريم محمد صالح

أنا ما زلت متابع الموضوع وأدخل إليه كل يوم لأرى الجديد .. فلا تعتقد أننى يئست من التوصل لحل المشكلة التى كانت تواجهنى ...... والحمد لله الحل الذى تفضل به أخونا Hisham_wz حل المشكلة التى كانت تواجهنى .... ولذلك أشكر أخى Hisham_wz على الحل الذى قدمه لهذه المشكلة التى كانت تواجه أغلب من جرب البرنامج ..... وفعلاً ضبطت معى وتم العمل بنجاح وقمت بإرسال بريد لنفسى واستقبلته ..

ولأخى محمد صالح أقول .. كل الشكر والتقدير على هذه الأداة التى تعمل الآن .. وجعلها الله فى ميزان حسناتك.

اقتباس

أن هذا الصرح التعليمي الكبير الذي له الفضل الأول في شقي لطريق البرمجة لم يتقبل هديتي رغم أن المنتديات الأخرى تواصلت معي وتم تجريب الكود

بقيت لدينا مشكلة اللغة العربية والمرفقات ، لو تفضل أخونا محمد صالح ووضعها فى إصدارة أخيرة وضمن فيها نسخ إلى (أقصد CC و BCC) فى هذه الأداة الرائعة لأصبح كل شئ تمام.

وأخى محمد صالح ربما تتهمنى الآن أننى لم أطالع مشاركتك الأخيرة والأكواد الموجودة فيها ولكنى والله فعلت ولكن لم أتوصل إلى حل معها ولم أستطع استخدامها بشكل سليم.

تحياتى وشكرى

محمد ندا

أخي الفاضل محمد صالح

بعد التأكد من الاشياء التالية

1 - وجود NetFrammeWork علي الجهاز

2 - السماح للاكسس المرور عبر Windows Firer Ware

3 - تغيير Port من 25 الي 465

ومازالت المشكلة قائمة

اشتغل البرنامج أخيراً وتم الارسال بنجاح

مش باقي غير

1 - اضافة مرفقات للبرنامج

2 - اضافة نسخة الي ....

3 - اضافة نسخة مخفية الي ....

4 - (مهم جداً) حل موضوع الترميز الخاص باللغة العربية

بسم الله الرحمن الرحيم

المنفذ رقم 25 هو المنفذ الافتراضي للبريد وربما يكون مستعمل من قبل برنامج outlook على جهاز الإخوة رغم أني على جهازي اوتلوك2007 ولم تحدث أي مشكلة

وبالنسبة للتعامل مع النسخ الكربونية والخفية والمرفق

فمرفق الملف به الطريقة

محمد فؤاد تركي كتب:

اشتغل البرنامج أخيراً وتم الارسال بنجاح

مش باقي غير

1 - اضافة مرفقات للبرنامج

2 - اضافة نسخة الي ....

3 - اضافة نسخة مخفية الي ....

4 - (مهم جداً) حل موضوع الترميز الخاص باللغة العربية

بالنسبة ل 1 و2 و3 تم حلهم في المرفق

وبالنسبة لترميز اللغة العربية هو المذكور windows-1256 ويجب اختيار ترميز الرسالة في صفحة الرسالة في البريد ليتم قراءتها بطريقة صحيحة

لاحظ أسفل يمين الرسالة في الياهو في الصورة

mas_mailer_v2.rar