تابع : ارسال بريد من الاكسيس مباشرة

أخي الغالي

محمد ندا

يا سعدك يا هناك كل شيء عندك بأه تمام الف مليوون مبروك

أختي واستاذتي ومعلمتي ومشرفة المنتدي العظيم

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

مهما قلت من كلمات الشكر والثناء فلم ولن أكفي حقك أبداً أبداً فأنت مثل البحر حلولك البرمجية وأفكارك المميزة لا تنضب أبداً أبداً

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

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

بعدها سيظهر النص باللغة العربية

الجدير بالذكر والمضحك في نفس الوقت :lol:

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

/index.php?showtopic=204460

فكانت هذه هي النتيجة كما تشاهدون

اسم الراسل

وجسم الرسالة

واسم المرسل اليه ان وجد

جميعهم يظهروا باللغة العربية وبدون أي مشاكل :P

ايه رأيكم

وأخيراً أحب أن أشكر الاخ محمد صالح علي وضع مثال فعلا استفدنا من الكثير

واستطاعت فعلا العقول العربية والمتمثلة طبعا في الاخت زهرة ان تجد الحل لهذه المسألة

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

ودمتم ان شاء الله بخير

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

بالتوفيق لجميع

أبارك للجميع على الوصول لهذه الحلول

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

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

والحمد لله أصبح لدينا مرجعا عن كل ما يخص الأكسس والبريد

سواء باستعمال الأوت لوك

أو مباشرة باستعمال gmail

وسواء كان مضمون الرسالة نصاً plain text

أو محتوى صفحة ويب

أومحتوى ملف بامتداد html

أو محتوى كود مكتوب بلغة html

سواء يوجد نسخة مطابقة إلى cc

أو نسخة مطابقة مخفية bcc

سواء يوجد مرفقات مهما زاد عددها

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

مع تحديد البريد الذي يتم الرد إليه

فألف ألف ألف ألف مليوووووون مبروك

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

الأخت الفاضلة زهرة

حاولت إرسال رسالة خاصة لك ولم يفلح معي المرسال

هذا نصها

اقتباس

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

وأود أن تشيري في مشاركة أخيرة في الموضوع الأول

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

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

بوضع رابط لهذا الموضوع في آخر مشاركة في الموضوع الأول

/index.php?showtopic=204891

وأيضا الإشارة في أول مشاركة في هذا الموضوع

إلى أن هذا الموضوع استكمال لموضوع سابق

ووضع رابط الموضوع الأول

حتى يستفيد كل من يشاهد الموضوعين

وتكتمل معرفته

وبارك الله فيك

وجزاك الله كل خير

أخوك

أبو عبد الله

محمد صالح

بارك الله بك أخي الفاضل محمد صالح

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

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

سأحاول ان اتفرغ له واقرأ الرسائل التي لم اقرأها بعد واحذف منه بعض الرسائل القديمه ومن ثم اقوم بإعادة فتحه من جديد

....

أستاذتنا الكريمـــــــــــــــــــــــــــــــــــــــة الكريمـــــــــــــــــــــــــــــــــــــــة زهرة العطاء

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

يبدو أننى دخلت متأخراً جداً وفاتتنى هذه الإحتفالية البهيجة ..

أختى زهرة لكِ ..... لكِ ماذا ؟؟؟!!! ... أين نجد كلام الآن لنعبر به عن إمتنانا تجاهك وتجاه كل ما تقدمين؟ّ!

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

كل ما كتب الأخوة ومثله عشرة أضعاف لا يكفيك.

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

تحياتى

محمد ندا

حتى يكون ختامه مسك

قررت أن أكتب ملخصا لكل ما ورد في هذا الموضوع الشيق:

وإليكم كود إرسال بريد من الأكسس مباشرة بواسطة Gmail مع بعض الشرح

Dim iMsg As Object
Set iMsg = CreateObject("CDO.Message")
With iMsg
   .Configuration.Load -1
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'عنوان بريدك في جي ميل وكلمة مروره
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youremail@gmail.com"
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'يمكن تغيير المنفذ بين 25 أو 465
   .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' or 465
   .Configuration.Fields.Update
'بريد المرسل إليه
   .To = "user@company.com"
'نسخة كربونية إلى مجموعة من عناوين البريد يفصل بينها بفاصلة
   .cc = "user1@company.com, user2@company2.net, user3@company.com"
'نسخة كربونية خفية إلى مجموعة من عناوين البريد يفصل بينها بفاصلة
   .bcc = "user1@company.com, user2@company2.net, user3@company.com"
'البريد الذي يتم الرد إليه في حالة الضغط على زر reply
   .ReplyTo = "myreplayemail@company.com"
'اسم المرسل وبريده يمكن استعمال from أو sender
   .From = """myname"" <youremail@gmail.com>"
   .Sender = """myname"" <youremail@gmail.com>"
'موضوع الرسالة
   .Subject = "mysubject"
'ترميز جسم الرسالة بالترميز العالمي الموحد
   .BodyPart.Charset = "UTF-8"
'إرسال جسم الرسالة في صورة نص بسيط
   .TextBody = "my message body"
'إرسال جسم الرسالة في صورة كود html
   .HTMLBody = "<h1>my message body</h1>"
'إرسال جسم الرسالة في صورة تضمين محتوى صفحة من موقع
   .CreateMHTMLBody "http://alostaz.coolpage.biz/quran/"
'إرسال جسم الرسالة في صورة تضمين محتوى صفحة html من جهاز الكمبيوتر
   .CreateMHTMLBody "file://c:/myfolder/myfile.htm"
'إضافة مرفق أو أكثر
   .AddAttachment "c:\myfile.rar"
   .AddAttachment "c:\myfolder\myfile2.jpg"
   .Send
End With
'تفريغ الذاكرة من العنصر iMsg
Set iMsg = Nothing

مع ضرورة جعل اللغة الافتراضية للجهاز هي العربية حتى تظهر حروف اسم المرسل أو عنوان الرسالة أو مضمون الرسالة باللغة العربية الصحيحة كما بالصورة

أتمنى أن أكون أوضحت كل ما يتعلق بالموضوع

وأشكر كل من ساهم لو بحرف في تطوير الكود حتى وصل لهذا المستوى

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

تحيات أخوكم

محمد صالح

يسعدني أن أكون أول من يرد على أستاذتنا زهرة

وأقولها بملء فيّ

موااااااااااااااااااااااااافق

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

سيري على بركة الله

عدد الأصوات واحد

حياك الله استاذنا محمد صالح

الموضوع ليس له علاقة لا من قريب ولا من بعيد بموضوع الترميز

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

ولكن التطبيق لابد ان يكون من خلال برنامج " ارسال البريد "

فهل اضعه في موضوع مستقل ؟

انتظر اجاباتكم

في هذه الحالة سأطمع في كرمك قليلا وأطلب فتح الموضوع الأول بعد غلقه

ومواصلة الكلام فيه

.....

... نعم موافق

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

ام انك تريدنا ان نفتحه لإكمال المواضيع فبه

اذا كنت تريد ان نكمل بقية المواضيع فيه فيجب علينا استأذان اخونا محمد فؤاد " تأدبا واحتراما لقراره في اغلاق الموضوع " لأنه هو من قام بإغلاق الموضوع

بعد ان رأى ان الموضوع سيأخذ شكلا آخر بعيدا عن تطوير البرنامج الخاص بك واعتبر ان قراره سليم .

Mohamed Nada كتب:

.....

نعم موافق

موافق على ايه اخي محمد ندا :D :D

أمزح معاك :lol:

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

مثلا

sendmail(to,fromname,frommail,replaymail,subject,body)

وهكذا

zahrah كتب:

فقط اكتب في المشاركه " نعم موافق "

حتى اضع لكم المفاجأة .

أستاذتنا

فقط كنت أحاول أن أكون ملتزماً بالنص ...

فزهرة العطاء عندما تقول موضوع عادى ، نجد درر تتناثر هنا وهناك ، ما بالنا لو قالت مفاجأة ؟!!!!

أختي الفاضلة

زهرة المنتدي

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

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

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

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

فمن الان لك مطلق الحرية يا مشرفة القسم في التصرف في هذا الموضوع

بارك الله بكم جميعا

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

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

لأن المفاجأة تحتاج الى شرح وتعقيب وتطبيق .

شيء جميل

وصل عدد الأصوات الى ثلاثة والبقية تأتي

اين الأخ : أحمد مبارك الحيقي لم اعد اراه