بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'بريد'.
تم العثور علي 5 نتائج
-
Version 1.0.0
676 تنزيل
بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ************** موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس في إرسال رسائل بريد للعملاء أو المستخدمين ====== مباشرة بدون استخدام برنامج outlook من خلال CDO وكذلك باستخدام outlook --------------------------- بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود مع استعمال جميع المميزات /////////////////////////////////////////////// وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل مع استعمال جميع المميزات ****************************** يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه وكذلك لفتح صندوق حواري اختيار ملفات ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله -
السلام عليكم ورحمة الله وبركاته استخدم هذا الكود لإرسال ايميل عن طريق الأكسس احيان ترسل الرسائل في حينها واحيان تأخذ وقت طويل اكثر من الساعة لا أعلم هل المشكلة في اعدادات الاوت لوك .. ام ان هناك مشكلة في الكود === وهل هناك طريقة للإرسال بدون استخدام اوت لوك ... وجدت مواضيع في قوقل ولكنها لم تنجح . اتمنى من له تجربه حول الموضوع مشاركتي الموضوع ... وشكرا مقدما وهذا هو الكود 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 الاقسام قسم الأكسيس
-
السلام عليكم ورحمة الله وبركاتة هل بالامكان ارسال ايميل من الاكسس مرفق به ملف ورد او بي دي اف ؟
-
السلام عليكم هل من الممكن ان ترسل كلمة المرور من اكسس إلى ياهوو ؟ ربما عندي كثير مستخدمين ، و ربما واحد مستخدم نسيت كلمة المرور ، أنا اريد اربطها مع ياهوو ، لما نسيت كلمة المرور سوف يدخل اسم المستخدم و ياهوو الخاص به اكسس سوف يرسل كلمة المرور خاص به إلى ياهوو علما كلمة المرور = 12345 علما ياهوو مربوط مع الانترنت ، إذا ما عندي انترنت لا استطيع استخدم ياهوو ، لكن اكسس يشتغل بدون انترنت هذه الرابطة Database6.rar
