اذهب الي المحتوي
أوفيسنا

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


at_aziz

الردود الموصى بها

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

 

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

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

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

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

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

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

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

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

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

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

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

Course certificates -Mohd+Moosa.zip

  • Like 2
رابط هذا التعليق
شارك

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

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

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

 

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

 

 

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

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

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

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

image.png.f2be9a23d6f607349b5bab96a2eed138.png

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

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

 

احذف كلمة

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

 

تم تعديل بواسطه at_aziz
رابط هذا التعليق
شارك

  • 10 months later...

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information