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

 

 

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

[Foksh]

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