البحث في الموقع

السلام عليكم ورحمة الله وبركاته استخدم هذا الكود لإرسال ايميل عن طريق الأكسس احيان ترسل الرسائل في حينها واحيان تأخذ وقت طويل اكثر من الساعة لا أعلم هل المشكلة في اعدادات الاوت لوك .. ام ان هناك مشكلة في الكود === وهل هناك طريقة للإرسال بدون استخدام اوت لوك ... وجدت مواضيع في قوقل ولكنها لم تنجح . اتمنى من له تجربه حول الموضوع مشاركتي الموضوع ... وشكرا مقدما وهذا هو الكود Option Compare Database Option Explicit Private Sub ÃãÑ15_Click() Dim MyDB As Database Dim MyRS As Recordset Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim TheAddress As String Set MyDB = CurrentDb Set MyRS = MyDB.OpenRecordset("tbl11") MyRS.MoveFirst Set objOutlook = CreateObject("Outlook.Application") Do Until MyRS.EOF Set objOutlookMsg = objOutlook.CreateItem(olMailItem) TheAddress = MyRS![aemail] With objOutlookMsg Set objOutlookRecip = .Recipients.Add(TheAddress) objOutlookRecip.Type = olTo .subject = Forms!sentall!txtSubject .Body = Forms!sentall!txtBody For Each objOutlookRecip In .Recipients objOutlookRecip.Resolve If Not objOutlookRecip.Resolve Then objOutlookMsg.Display End If Next .Send End With MyRS.MoveNext Loop Set objOutlookMsg = Nothing Set objOutlook = Nothing End Sub

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه فورم برامج اتصالات_شئون اداريه سكرتاريه_ تليفون فورم لادراج صور وحفظها والتعديل عليها مع قاعدة بيانات_ الاستاذ / عماد الحسامى جلب الصور بواسطة المعادلات فقط_ الاستاذ / عماد الحسامى دليل الهاتف المطور _ الاستاذ / عماد الحسامى الاصدار الرابع : فورم اضافة وبحث وتعديل مرن مع استعراض الصور (تحكم كامل بالصورة )_ _أ / عبدالله باقشير دليل الهاتف الإصدار الثاني , استيراد سجلات من ملف/ نسخ قاعدة البيانات_ _أ / عبدالله باقشير برنامج حافظة شخصية للهواتف والإيميلات ( بإمكانية البحث السريع )_ _أ / عبدالله باقشير _دليل هاتف متطور_ _أ / احمد حمور-ابوعبدالله دليل هاتف عصري , نسخه عربيه v2_ _أ / احمد حمور-ابوعبدالله برنامج جاهز2_سركى الصادر و الوارد للمكاتبات و الارشيف مع الطباعه و الشرح _أ / شوقى ربيع برنامج دليل الهاتف على طريقة سامسونج جالكسي_ _أ / شوقى ربيع برنامج دليل الهاتف بفور مميز جدا (شوقي ربيع)_ _أ / شوقى ربيع برنامج خاص بالمحاسبة والجرد لصيانة الهاتف _أ / شوقى ربيع برنامج جاهز3_سركى متكامل للصادر و الوارد للمكاتبات و الارشيف _ مشاركات _أ / شوقى ربيع _أ / ضاحي الغريب فورم ادخال بيانات مع الاستدعاء و التعديل _أ / ضاحي الغريب فورم للبحث والتعديل والاضافة في دليل الهاتف_ بدأه _أ / أبو محمد عباس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA _أ / ياسر خليل أبو البراء تذكير بتاريخ الحدث من خلال الفورم الاستاذ / ابو القبطان و تعديل _أ / ياسر خليل أبو البراء برنامج نوته شخصية لحفظ ارقام هواتف والايميلات_ _أ / عبدالله المجرب بالفورم دليل الهاتف_ادخال تعديل حذف_ مشاركة _أ / الجزيرة _ عبدالله المجرب نظام الإتصالات الإدارية_ الاستاذ / احمد زمان برنامج السكرتير الخاص - على اكسل _ _أ / احمدزمان السكرتير الخاص 1437 _أ / احمدزمان دليل الهاتف ( سهل ومختصر ) _أ / هاني بدر مذكرة الهاتف 1.0.0 _أ / محمد ابو صهيب عرض بطاقات العملاء _أ / محمد ابو صهيب استخدام الارتباط التشعبي في أرشفة الملفات _أ / عبدالسلام ابوالعوافي ملف يصلح لمن يعمل في مستندات تحتاج لمتابعة وتجديد مستمر _ أ / احمد فضيله فورم خدمة CALL CENTER _ أ / رجب جاويش _ احمد فضيله تذكير بتاريخ الإنتهاء من خلال الفورم _ أ / الزباري متابعة تواريخ الإنتهاء _ أ / الزباري هدية .. برنامج لعمل خطة شخصية _ أ / الزباري الدخول إلى البريد الإلكتروني عن طريق الإكسيل _ أ / الزباري رتب التزاماتك الشهرية _ أ / الزباري برنامج جاهز_سركى الصادر و الوارد للمكاتبات و الارشيف _ أ / أبو حنــــين فورم صادر و وارد_سجل لارشفة مكتبة _ أ / طلعت محمد حسن قائمة متعددة الأعمدة Mulitple Column List Box_فورم ادخال و حذف دليل تليفونات _ أ / أبو آدم دمج المراسلات !!! _ أ / محمد يحياوي جدول أعمال وتخطيط لحصر وتنظيم وتخطيط أعمالك _ أ / أبوعبد الله_اكسلجى دليل هاتف ومعلومات بسيط أعجبني _ أ / أبوعبد الله_اكسلجى معادلة بالتنسيق الشرطى_تنبيه عند تاريخ الاستحقاق _ أ / أبوعبد الله_اكسلجى نموذج تصفح بيانات _ أ / هادى محمد المامون سالم برنامج تذكيير بالاحداث المهمة _ مشاركات الاعضاء اكواد عمل تنبيه _ مشاركات الاعضاء و لا تنسونا من صالح الدعاء و لامى بالمغفره و الرحمه

السلام عليكم ورحمة الله وبركاته الى السادة اعضاء منتدانا الكرام اليكم اليوم شرح طريقة ارسال بريد الكتروني من خلال الاكسل لهذا الغرض عملت دلة صغيرة لارسال االايميل بلخيارات الاساسية التي ستحتاجها و سأحاول ان اعرضها اليكم بطريقة بسيطه مع توضيح كيفية عملها و الشروط التي يجب ان تتوافر قبل استخدامها سنفترض التالي البريد المرسل هو : send@gmail.com البريد المستلم هو : emp01@gmail.com تطبيق الدالة عنوان الرسالة ياتي قبل نصها ... ولكن بسبب تنسيق الكود في المنتدى فمعظم الاكواد تظهر نص الرسالة قبل العنوان 1 - ارسال رسالة بعنوان: اختبار و نص الرسالة: هذا اختبار ارسال رسالة SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","هذا اختبار ارسال رسالة" 2 - ارسال رسالة مع نسخة (CC) لـ manager01@gmail.com SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة", "manager01@gmail.com" 3 - ارسال رسالة مع نسخة (CC) لـ manager01@gmail.com و نسخة كربونية (BCC) لـ send@gmail.com يفضل دائما ان تحتفظ بنسخة من الرسائل التي ارسلتها. SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة", "manager01@gmail.com","send@gmail.com" 4 - ارسال رسالة وارفاق ملف واحد SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة",,,"c:\work\pic1.jpg" 5 - ارسال رسالة وارفاق اكثر من ملف SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة",,,Array("c:\work\pic1.jpg","c:\work\pic2.jpg") 6 - ارسال رسالة لاكثر من مرسل اليه SendEMail "send@gmail.com", Array("emp01@gmail.com","emp02@gmail.com"), "اختبار","اختبار ارسال رسالة" 7 - ارسال رسالة لاكثر من نسخة (CC) SendEMail "send@gmail.com","emp01@gmail.com","اختبار" ,"اختبار ارسال رسالة", Array("manager01@gmail.com","manager02@gmail.com") 8 - ارسال رسالة بتنسيق HTML SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار", "<B>نص الرسال</B>", , , , True شروط استخدام الدالة و افتراضات 1- الدلة تستخدم ملقم SMTP تبع ال GMail ولهذا يجب ان يكن لديك حساب في القوقل ... تم الافتراض هنا ان الحساب هو send@gmail.com (يجب ان تستخدم حساب حقيقي) 2- افترضنا كلمة السر هى password (غير كلمة السر للكلمة الحقيقية ) غير القيم كما في الصورة هذا فقط ما يجب عليك فعله لبدء استخدام الدالة الا ان هناك ملاحظة مهمة شركة قوقل في شهر 7 الماضي رفعت متطلبات الامن لديها و لهذا فان ارسال الايميل عبر ملقمها smtp.gmail.com لن يتم الا اذا خفضنا درجة الامان. ولهذا انصح ان تنشئ بريد الكتروني جديد لاتستخدمة الا في ارسال البريد عبر الاكسل لتخفيض درجة الامن لحساب قوقل اتبع الخطوات التالية: - ادخل على حسابك و اختر Account - في القسم Account Settings و اختر Access for less secure Apps - اختر Enable يمكنك تحميل الدالة من الملف المرفق اسال الله تعالى ان يتقبل منى ومنكم صالح الاعمال كود ارسال بيريد الكتروني.zip