⭐ هدية ~ إرسال بريد إلكتروني من 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

 

 

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

 

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

 

تم تعديل منذ 1 ساعه بواسطه 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 ، ثم في الاستعلام إضافة حقل الإسم أولاً ثم حقل الايميل ثانياً ، كي يظهر معكم الإيميلات التي تم تسجيلها في النظام للإرسال داخل النموذج :-

 

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

تم حذف المرفق لتعديل خلل بسيط ، وسيتم إضافته خلال وقت قصير ..

 

تم تعديل منذ 47 دقائق بواسطه Foksh
إضافة توضيح ونقاط تذكيرية

[mohammed farhat]

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

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

 

[Foksh]

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

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

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

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

[ابوخليل]

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

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

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

[Foksh]

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

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

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

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

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