اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search
ahmad_3011

ارسال اكثر من الفى ايميل مره واحدة

Recommended Posts

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

هل بالإمكان ارسال اكثر من 2000 ايميل دفعه واحدة من ايميل  edu.eg  دوماين ام هل سيتم وضع اليميل المرسل فى البلوك

شارك هذه المشاركه


رابط المشاركه
شارك
زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • محتوي مشابه

    • بواسطه أ / محمد صالح
      بسم الله الرحمن الرحيم
      السلام عليكم ورحمة الله وبركاته
      كل عام أنتم بخير وسعادة ورضا
      **************
      موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس
      في إرسال رسائل بريد للعملاء 
      أو المستخدمين
      ======
      مباشرة بدون استخدام برنامج outlook من خلال CDO 
      وكذلك باستخدام outlook
      ---------------------------
      بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود
      مع استعمال جميع المميزات 
      ///////////////////////////////////////////////
      وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل 
      مع استعمال جميع المميزات
      ******************************
      يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه
      وكذلك لفتح صندوق حواري اختيار ملفات
      **********************
      الكود يعمل على كل إصدارات الأوفيس
       
      دمتم في رعاية الله وحفظه
      والقادم أفضل
      إن شاء الله
    • بواسطه أ / محمد صالح
      اعرض الملف إرسال البريد من الأكسس
      بسم الله الرحمن الرحيم
      السلام عليكم ورحمة الله وبركاته
      كل عام أنتم بخير وسعادة ورضا
      **************
      موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس
      في إرسال رسائل بريد للعملاء 
      أو المستخدمين
      ======
      مباشرة بدون استخدام برنامج outlook من خلال CDO 
      وكذلك باستخدام outlook
      ---------------------------
      بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود
      مع استعمال جميع المميزات 
      ///////////////////////////////////////////////
      وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل 
      مع استعمال جميع المميزات
      ******************************
      يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه
      وكذلك لفتح صندوق حواري اختيار ملفات
      **********************
      الكود يعمل على كل إصدارات الأوفيس
       
      دمتم في رعاية الله وحفظه
      والقادم أفضل
      إن شاء الله
      صاحب الملف أ / محمد صالح تمت الاضافه 25 ماي, 2017 الاقسام قسم الأكسيس  
    • بواسطه fwares
      السلام عليكم
      بحثت كثيرا عن اكواد ارسال رسائل نصيه عن طريق موقع ارسال الرسائل باستخدام برنامج اكسس ليم الدمج بشكل فعال بين قاعدة البيانات وارسال رسائل ترجيبية او تذكيرية عن طريق الموقع Bulk 

      ولكن للاسف لم اجد ما يكفي من المعلومات عن هذا الموضوع 
      ارجو ممن لديه اي افكار او طرق ان لا يبخل علينا بها 
      ولكم جزيل الشكر
    • بواسطه سعيد صواب
      السلام عليكم ورحمة الله وبركاته
      استخدم هذا الكود لإرسال ايميل عن طريق الأكسس
      احيان ترسل الرسائل في حينها واحيان تأخذ وقت طويل اكثر من الساعة 
      لا أعلم هل المشكلة في اعدادات الاوت لوك .. ام ان هناك مشكلة في الكود
      ===
      وهل هناك طريقة للإرسال بدون استخدام اوت لوك ... وجدت مواضيع في قوقل ولكنها لم تنجح .
      اتمنى من له تجربه حول الموضوع مشاركتي الموضوع ...  وشكرا مقدما
      وهذا هو الكود
      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  
  • المتواجدين الان   0 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه

×
×
  • اضف...