البحث في الموقع
Showing results for tags 'email'.
تم العثور علي 4 نتائج
-
Version 1.0.0
675 تنزيل
بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ************** موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس في إرسال رسائل بريد للعملاء أو المستخدمين ====== مباشرة بدون استخدام برنامج outlook من خلال CDO وكذلك باستخدام outlook --------------------------- بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود مع استعمال جميع المميزات /////////////////////////////////////////////// وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل مع استعمال جميع المميزات ****************************** يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه وكذلك لفتح صندوق حواري اختيار ملفات ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله -
بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته عذرا لانقطاعي عن هذا الصرح التعليمي الكبير نظرا لانشغالي بمهام زائدة عن طاقتي وأولا أرحب بكل الإخوة الأعضاء القدامى والجدد وأهنئ كل من تم ترقيتهم وأعود لكم اليوم بكود رائع كان يبحث عنه كثير من الأعضاء إرسال رسالة بريدية باستخدام برنامج microsoft outlook تحتوي على مرفق إلى قائمة من العملاء مميزات الكود استخدام outlook الإسال إلى قائمة من العملاء إرسال أكثر من مرفق للعميل الواحد السماح بإرفاق جميع الامتدادات يمكنك اتباع التعليمات الموجودة في الكود مع ملاحظة ضرورة التسجيل في برنامج outlook واستخدام حساب بريدي فعال وصحيح حتى يتم الإرسال الكود مقتبس من موقع أجنبي مع التعديل ليتناسب مع المبرمج العربي لا ينقصني سوى دعاؤكم mas_outlook_mailer.rar
-
السلام عليكم ورحمة الله وبركاته استخدم هذا الكود لإرسال ايميل عن طريق الأكسس احيان ترسل الرسائل في حينها واحيان تأخذ وقت طويل اكثر من الساعة لا أعلم هل المشكلة في اعدادات الاوت لوك .. ام ان هناك مشكلة في الكود === وهل هناك طريقة للإرسال بدون استخدام اوت لوك ... وجدت مواضيع في قوقل ولكنها لم تنجح . اتمنى من له تجربه حول الموضوع مشاركتي الموضوع ... وشكرا مقدما وهذا هو الكود 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 -
اعرض الملف إرسال البريد من الأكسس بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ************** موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس في إرسال رسائل بريد للعملاء أو المستخدمين ====== مباشرة بدون استخدام برنامج outlook من خلال CDO وكذلك باستخدام outlook --------------------------- بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود مع استعمال جميع المميزات /////////////////////////////////////////////// وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل مع استعمال جميع المميزات ****************************** يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه وكذلك لفتح صندوق حواري اختيار ملفات ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 25 ماي, 2017 الاقسام قسم الأكسيس
