ارسال ايميل جيميل ⭐ هدية ~ إرسال بريد إلكتروني من Gmail الى أي إيميل ⭐

[Foksh]

 

عن تجربتي الشخصية سأتحدث . حيث قمت سابقاً بتنفيذ الفكرة لمشروع آخر ليرسل الإيميلات من بريده في Gmail إلى أي ايميل تريده ؛ دون إدخال أي وسيط أو موقع خارجي . حيث سيكون تعاملك مع خدمات جوجل مباشرة

  قمت بإنشاء جدول جديد باسم tbl_EmailSettings . ويحتوي الحقول التالية :-

• IDMail = حقل ترقيم تلقائي .
• SenderEmail = حقل نصي ، ويمثل أيميلك الذي تريد استخدامه كإيميل مرسل .
• SMTPServer = حقل نصي ، ويمثل الخدمة المستخدمة في Gmail لإرسال البريد الإلكتروني . وتكون عادة =

  smtp.gmail.com

• SMTPPort = حقل رقمي ، ويمثل المنفذ الذي سنستخدمه للإيميلات الصادرة . وهو عادة لـ Gmail يكون 465 .
• SMTPPassword = حقل نصي ، وهو الحقل المهم جداً هنا والذي ستكون قيمته كلمة مرور التطبيق الذي سنقوم بإنشائه من خلال بريدك الإلكتروني الذي سجلت به في الحقل SenderEmail . أما كيف نحصل عليه فسيكون الشرح تالياً .
• UseSSL = حقل من نوع Yes/No . وهو مهم إلى حد ما . والسبب أنه جميع خدمات البريد الحديثة (Gmail, Yahoo, Hotmail) تشترط وجود تشفير SSL . لذا فقيمته بالنسبة لك ستكون دائماً  True .

  الآن كيف نحصل على SMTPPassword المقدم من Gmail ؟ إليك الطريقة خطوة بخطوة ببساطة .

1. في متصفحك ، ادخل إلى ( إعدادات حساب Google ) .
2. تحقق أولاً وقبل كل شيء من تفعيل ميزة ( التحقق بخطوتين ) أو ( 2-Step Verification ) في حسابك .
3. ابحث في خانة البحث عن ( كلمة مرور التطبيق ) أو ( كلمات مرور التطبيقات )، او ( App Password ) ، حسب لغة الموقع لديك .
4. ادخل كلمة المرور الخاصة بالإيميل الذي تريد استخدامه كإيميل مرسل .
5. في خانة ( اسم التطبيق ) أو ( App Name ) ، أدخل اسم للتطبيق ، مثلاً ( SenderMailer ) . ثم انقر زر ( إنشاء أو Creat ) .
6. الآن سيزودك الموقع بكلمة من 16 حرف ، انسخها والصقها في الحقل SMTPPassword .

 

  الآن في الجدول المخصص للأعدادات ، سيكون لديك الحقول المهمة وقيمها كالتالي :-

1. SMTPServer = عنوان الخادم وهو    smtp.gmail.com
2. SMTPPort وهو المنفذ = 465
3. SMTPPassword = كلمة المرور التي حصلنا عليها من 16 حرف ( يفضل بدون مسافات )
4. UseSSL = نعم أو علامة صح
5. SenderEmail = إيميلك الذي سجلت به والذي ستستخدمه للإرسال

  الآن في زر الإرسال المخصص لكل ايميل بشكل فردي ، سنستخدم الكود البسيط التالي :-

    Dim result As String
    Dim strRecipient As String
    Dim strMessageBody As String
    
    strRecipient = Trim(Nz(Me.B2.Value, ""))
    strMessageBody = Nz(Me.Fonda.Value, "")
    
    If strRecipient = "" Then
        MsgBox "يرجى إدخال إيميل المستلم أولاً", vbExclamation + vbMsgBoxRight, ""
        Me.B2.SetFocus
        Exit Sub
    End If
    
    result = SendSmartEmail(strRecipient, "رسالة تجريبية", strMessageBody)
    
    If result = "Success" Then
        MsgBox "تم الإرسال بنجاح", vbInformation + vbMsgBoxRight, ""
    Else
        MsgBox "فشل في الإرسال", vbCritical + vbMsgBoxRight, "خطأ"
    End If

  وفي زر الإرسال الجماعي ، سنستخدم الكود التالي :-

    Dim rs As DAO.Recordset
    Dim result As String
    Dim counter As Integer
    Dim strTo As String
    Dim strMsg As String
    
    Set rs = Me.RecordsetClone
    
    If rs.RecordCount = 0 Then
        MsgBox "لا توجد سجلات للإرسال إليها في هذا النموذج", vbInformation + vbMsgBoxRight, ""
        Exit Sub
    End If
    
    If MsgBox("هل أنت متأكد من إرسال إيميلات لجميع السجلات الحالية؟", vbQuestion + vbYesNo + vbMsgBoxRight, "تأكيد الإرسال") = vbNo Then Exit Sub

    counter = 0
    rs.MoveFirst
    
    Do Until rs.EOF
        strTo = Nz(rs!Gmail, "")
        strMsg = Nz(rs!Fonda, "")
        
        If strTo <> "" Then
            result = SendSmartEmail(strTo, "تنبيه بريدي", strMsg)
            
            If result = "Success" Then
                counter = counter + 1
            End If
        End If
        
        rs.MoveNext
    Loop
    
    MsgBox "تمت عملية الإرسال بنجاح" & vbCrLf & _
           "عدد الإيميلات المرسلة: " & counter, vbInformation + vbMsgBoxRight, ""
    
    Set rs = Nothing

 

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

 

  وهذا ملف تجريبي بعد الإضافات التي ذكرتها . فقط يرجى ملئ الجدول بالإيميل و كلمة المرور التي تتكون من 16 حرف فقط .

 

Nouveau.zip

 

 

الفكرة و المشاركة كانت تتبع الموضوع التالي هنا ، وتم فصلها لإفرادها وكي تعم الفائدة على من يمر باحثاً عن فكرة إرسال بريد من آكسيس دون قيود .

 

التحديث الجديد في هذه المحادثة هنا :-

 

 

التحديث الجديد في هذه المحادثة هنا :-

 

 

تم تعديل منذ 18 ساعات بواسطه Foksh
إضافة التحديث الجديد

[Foksh]

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

[Moosak]

بعد تجربة الجزء الأول من المشروع ، تم الإرسال بنجاح ولله الحمد 👍🙂
وننتظر الجزء الثاني بشوق 😊👌

[Foksh]

في 13‏/2‏/2026 at 20:55, Moosak said:

وننتظر الجزء الثاني بشوق 😊👌

 

 

الفكرة الجديدة قيد التطوير في مراحلها الأخيرة 

 

[Foksh]

 مميزات التحديث الجديد :-

 واجهة رسومية متطورة وجميلة وتحاكي الحداثة والتطور .

 إنشاء ديناميكي للجداول ، بحيث ما عليك سوى نقل النموذج والمديول فقط .

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

 دعم للمرفقات بكامل الأنواع .

 دعم الأرسال كنسخة مكربنة أو نسخة مخفية ( Cc , Bcc ) .

 لتلافي مشاكل الحظر الناتجة عن الأرسال الكبير بالدفعات ، تم إضافة فكرة مؤقت الانتظار بالثواني لكل عدد إيميلات تحدده من الواجهة .

 إمهال المستخدم مدة 5 ثواني لتأكيد عملية الإرسال . والهدف منها في حال الرغبة بعدم الإرسال لتصحيح أو تعديل قبل الأرسال .

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

 تم إضافة نموذج لإدخال الإعدادات المستخدمة في الخدمة .

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

 

 دعم الواجهة بالكامل باللغة العربية .

 

 

 وللتذكير بآلية ضبط الإعدادات في الجدول :-

 

كيف نحصل على SMTPPassword المقدم من Gmail ؟ إليك الطريقة خطوة بخطوة ببساطة .

1. في متصفحك ، ادخل إلى ( إعدادات حساب Google ) .
2. تحقق أولاً وقبل كل شيء من تفعيل ميزة ( التحقق بخطوتين ) أو ( 2-Step Verification ) في حسابك .
3. ابحث في خانة البحث عن ( كلمة مرور التطبيق ) أو ( كلمات مرور التطبيقات )، او ( App Password ) ، حسب لغة الموقع لديك .
4. ادخل كلمة المرور الخاصة بالإيميل الذي تريد استخدامه كإيميل مرسل .
5. في خانة ( اسم التطبيق ) أو ( App Name ) ، أدخل اسم للتطبيق ، مثلاً ( SenderMailer ) . ثم انقر زر ( إنشاء أو Creat ) .
6. الآن سيزودك الموقع بكلمة من 16 حرف ، انسخها والصقها في الحقل SMTPPassword .

 

في المشروع ، سيتم انشاء إستعلام بإسم Qur_Foksh تلقائي . كل ما عليك فعله هو إضافة الأسماء والإيميلات الى الجدول Tbl_Emails ، ثم في الاستعلام إضافة حقل الإسم أولاً ثم حقل الايميل ثانياً ، كي يظهر معكم الإيميلات التي تم تسجيلها في النظام للإرسال داخل النموذج أو في نفس الاستعلام اختر الجدول الذي يحتوي الأيميلات ، وقم بإضافة حقلي الإسم والإيميل فقط :-

 

 الملف المرفق مفتوح المصدر ..

EmailSender 2026.zip

 

[mohammed farhat]

جزاكم الله كل خير بشمهندس فادي - دائما  سباق بباب الي الخير 

ربنا يجازيك عنا كل خير و يزيدك من العلم النافع 

 

[Foksh]

1 دقيقه مضت, mohammed farhat said:

جزاكم الله كل خير بشمهندس فادي - دائما  سباق بباب الي الخير 

ربنا يجازيك عنا كل خير و يزيدك من العلم النافع 

العفو بشمهندس محمد ، وجزاكم الله خيراً إلى يوم الدين لكم ولوالديكم ولأمة محمد أجمعين ..  

[ابوخليل]

الف مليون شكرا لا تفي بحقك

ابداع وحوكمة وجمال منقطع النظير

نسأل الله الكريم ان يجعل عملك هذا خالصا لوجهه ، وأن يجزاك عنا وعن اخوانك خير الجزاء 

[Foksh]

8 دقائق مضت, ابوخليل said:

الف مليون شكرا لا تفي بحقك

ابداع وحوكمة وجمال منقطع النظير

نسأل الله الكريم ان يجعل عملك هذا خالصا لوجهه ، وأن يجزاك عنا وعن اخوانك خير الجزاء 

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

[Foksh]

 تم إضافة زرين جديدين لإضافة إيميلات متعددة لـ :-

• النسخة الكربونية Cc - نسخة إلى
• النسخة الكربونية المخفية Bcc - نسخة مخفية

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

 

 

 الملف المرفق مفتوح المصدر ..

EmailSender 2026.zip

 

كيف نحصل على SMTPPassword المقدم من Gmail ؟ إليك الطريقة خطوة بخطوة ببساطة .

1. في متصفحك ، ادخل إلى ( إعدادات حساب Google ) .
2. تحقق أولاً وقبل كل شيء من تفعيل ميزة ( التحقق بخطوتين ) أو ( 2-Step Verification ) في حسابك .
3. ابحث في خانة البحث عن ( كلمة مرور التطبيق ) أو ( كلمات مرور التطبيقات )، او ( App Password ) ، حسب لغة الموقع لديك .
4. ادخل كلمة المرور الخاصة بالإيميل الذي تريد استخدامه كإيميل مرسل .
5. في خانة ( اسم التطبيق ) أو ( App Name ) ، أدخل اسم للتطبيق ، مثلاً ( SenderMailer ) . ثم انقر زر ( إنشاء أو Creat ) .
6. الآن سيزودك الموقع بكلمة من 16 حرف ، انسخها والصقها في الحقل SMTPPassword .
7.  

في المشروع ، سيتم انشاء إستعلام بإسم Qur_Foksh تلقائي . كل ما عليك فعله هو إضافة الأسماء والإيميلات الى الجدول Tbl_Emails ، ثم في الاستعلام إضافة حقل الإسم أولاً ثم حقل الايميل ثانياً ، كي يظهر معكم الإيميلات التي تم تسجيلها في النظام للإرسال داخل النموذج أو في نفس الاستعلام اختر الجدول الذي يحتوي الأيميلات ، وقم بإضافة حقلي الإسم والإيميل فقط :-

[منتصر الانسي]

عمل رائع أخي @Foksh والحقيقة أنها المرة الأولى التي ينجح مع إرسال الإيميل بهذه السهولة

لدي ملاحظتين الأولى غير مهمة وهي أن Yahoo يتعرف على الأيميل الصادر من التطبيق بأنه بريد إحتيالي ولا أدري إذا كان بالإمكان حل المشكلة

اما الملاحظة الثانية أنه يجب تعديل السطر التالي

        db.CreateQueryDef "Qur_Foksh", "SELECT * FROM Tbl_Emails"

إلى هذا السطر

        db.CreateQueryDef "Qur_Foksh", "SELECT NameOfComp,EmailOfComp FROM Tbl_Emails"

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

تحياتي

 

تم تعديل منذ 1 ساعه بواسطه منتصر الانسي

[Foksh]

18 دقائق مضت, منتصر الانسي said:

عمل رائع أخي @Foksh والحقيقة أنها المرة الأولى التي ينجح مع إرسال الإيميل بهذه السهولة

حياك الله أخي منتصر .. 

 

19 دقائق مضت, منتصر الانسي said:

لدي ملاحظتين الأولى غير مهمة وهي أن Yahoo يتعرف على الأيميل الصادر من التطبيق بأنه بريد إحتيالي ولا أدري إذا كان بالإمكان حل المشكلة

في الحقيقة اعتقد أن هذه مشكلة تخص الياهو نفسه . السبب في عدم اهتمامي لموقع الـ Yahoo هو حتى أنه حالياً لا يقوم بتفتح حساب جديد 😅😅 .. ولا يقبل تسجيل الدخول الى حسابي رغم انه يقول لي انه مستخدم بالفعل .

 

20 دقائق مضت, منتصر الانسي said:

اما الملاحظة الثانية أنه يجب تعديل السطر التالي

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