حل مشكلة ايقاف google لخدمة وصول التطبيقات الأقل أمانًا في البريد الاكتروني

[at_aziz]

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

 

اخواني  ظهرت عندي مشكله  قبل كم يوم

ان قوقل وقفت خدمة الوصول التطبيقات الأقل أمانًا  في البريد الاكتروني بشكل نهائي

من قبل كانت شغاله معي تمام والان ما اقدر ارسل عن طريق الاكسس  ايميل الى عدة اشخاص

في المثال المرفق لاحد الاخوه 

استخدمت الكود فيه  وشغال عليه من فتره   وماشي زي الفل

لكن الان توقفت الخدمة وتوقف الارسال عن طريق الاكسس

هل هناك اخواني

حل او طريقة اخرى لهذه المشكله

لان بالنسبه لي ارسال الايميل عن طريق الاكسس مهم جدا وعملي متوقف عليه الان

وكثير من الاخوه ايضا يحتاج هذه الخدمه

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

Course certificates -Mohd+Moosa.zip

[Moosak]

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

حياك الله أخي العزيز ..

نعم حصلت معي كذلك .. والحل موجود في هذا الفيديو وقد انحلت المشكلة معي ولله الحمد ..

 

[at_aziz]

بارك الله فيك وجزاك الله خير استاذي الغالي موسى

الف شكر لك

راح اجرب واخبرك بالنتيجة ان شاء الله

[at_aziz]

الله يعطيك العافيه ويجزاك خير

الحمد لله طبقت الشرح

واشتغل الارسال بدون مشاكل

الف شكر لك استاذي الفاضل

في 15‏/6‏/2022 at 12:51, Moosak said:

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

حياك الله أخي العزيز ..

نعم حصلت معي كذلك .. والحل موجود في هذا الفيديو وقد انحلت المشكلة معي ولله الحمد ..

 

 

[Moosak]

17 دقائق مضت, at_aziz said:

الله يعطيك العافيه ويجزاك خير

الحمد لله طبقت الشرح

واشتغل الارسال بدون مشاكل

الف شكر لك استاذي الفاضل

 

الله يعافيك أخي العزيز ، وصحة وعافية وهنا يارب 😊

[حامل المسك]

ماشاء الله  تميز وروعة ..

وشكرا لكل مبدع ورائع..

وسلمت أناملكم،،

حاولت التجربة فجاءت هذه الرسالة بالخطأ

[حامل المسك]

سلمت يداك.. جاري التجربة

[at_aziz]

في 16‏/6‏/2022 at 14:06, حامل المسك said:

ماشاء الله  تميز وروعة ..

وشكرا لكل مبدع ورائع..

وسلمت أناملكم،،

حاولت التجربة فجاءت هذه الرسالة بالخطأ

حياك اخوي حامل المسك

الحل بيسط  ان شاء الله

 

احذف كلمة

ErrTO

راح تروح الرساله باذن الله

 

هذا الكود بالكامل اللي اانا استخدمة حاليا

Sub SendEmaile()
On Error Resume Next
    myemail = DecodeQP2(DLast("Emaile", "EmaileData"))
    mypassword = DecodeQP2(DLast("Password", "EmaileData"))
   
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = myemail
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mypassword
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .update
    End With
    With iMsg
        Set .Configuration = iConf
        .To = [EmpEmail]
        .From = """" & "شهادات الحضور" & """ <" & myemail & ">"
        .subject = Titletxt
        .HTMLBody = Messagetxt
        .AddAttachment DstFile
        .Send
    End With
    Debug.Print
    Kill DstFile

End Sub

 

تم تعديل يونيو 22, 2022 بواسطه at_aziz

[احمدزمان]

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

[XVMOHAMED]

جزاكم الله خيرا 

لكن عندما افتح البرنامج يعمل بشكلل جيد لكن بعد التعديل في اعدادات الحاسوب من حيث الللغة والمنطقة فاضيف العربية 

لكن البرنامج الذي اشتغل عله   اعتمدت فيه على اللغة الفرنسية ولا يعمل

فكيف اوفق بين الاثنين