ادراج ايقونة ارسال الى الايميل

[بلال بلال]

السلام عليكم:

أريد إدراج ايقونة ارسال الى الايمايل بعد حجز الايمايل والرسالة لكل موظف

وإدراج يقونة ارسال الى جميع الموظفين  

وإرسال ملف بدياف و الصور 

 

Nouveau.zip

[kkhalifa1960]

استاذ @بلال بلال طبعاً الموضوع صعب جداً  فلازم تنتبه بكل التفاصيل ... أولا كان ممكن الارسال عبر الايميل والباسوورد العادي  .

اما الان فللامان  والخصوصية الباس الحين يأتي من مزود الخدمة  . وبما ان بريد جوجل يتعامل فقط مع بريد جووجل   ولايتعامل مع الياهو غيرها . فسنستخدم (Zaho) . 

لازم نسجل به كما بالشرح بملفين الوورد المرفقين واحد بالعربي والثاني بالفرنسي . كي نأتي يالتالي .

1- ايميللك بــ Zaho بعد تسجيلك به ووضعه بجدول اعدادات المرسل (tbl_MailSender) بالحقل (EmailSenderAddress)  .

2- الباسوورد كما بالشرح  ذو 12  حرف ووضعه بالحقل (AppPassword) .

3- اليك المرفق محتوياته وجرب انا معك باي استفسار . ووافني بالرد .

Nouveau_Bilal_Yamen.rar

[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

تم تعديل منذ 7 ساعات بواسطه Foksh
تنسيق الموضوع

[ابوخليل]

3 ساعات مضت, Foksh said:

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

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

 

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

على فكرة الباسوورد 16 حرف هو المتبع الآن في مواقع بوابات رسائل الـــ sms   من اجل ربط التطبيقات بالبوابة للارسال من خلالها ويسمونه Token

[kkhalifa1960]

انا جربيتها وجربت طرق أخرى مثل الاوتلوك  للاسف كلها طرق فاشلة ... هل جربت الارسال من الجيميل للياهو   جرب من الجيميل للجيميل بتوصل الرسالة صح .

لكن من الجيميل للياهو الرسالة تم الارسال لكنها لم تصل للياهو  .... الى ان توصلت لما ادرجته بمشاركتي السابفة .

وهذا كان رد تشات جي بي تي :-

 

📌 لماذا Gmail يرسل إلى Gmail فقط ولا يرسل إلى Yahoo؟

لأن:

Google تحظر الإرسال إلى بعض السيرفرات (مثل Yahoo / Hotmail)
إذا كان الإرسال من تطبيقات قديمة (CDO / Access) بدون OAuth.

Gmail يعتبرها Less Secure Relay
ويقوم بـ رفض التسليم أو إسقاط الرسالة بدون رجوع خطأ واضح.

---

✅ لماذا نجح إلى Gmail؟

لأن Gmail ↔ Gmail داخل نفس الشبكة
ولا يحتاج تحقق إضافي من الطرف الآخر.