عمل نسخة احتياطية من قاعدة البيانات علي الايميل

[ابو عبد الرحمن اشرف]

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

اخواني واساتذتي الكرام 

عندي قاعدة بيانات مقسمه الي جداول ونماذج وعند الخروج من البرنامج يتم عمل نسخة احتياطية علي مجلد علي الدريف :c

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

وعليه كان من الضروري عمل نسخةاحتياطية علي البريد الالكتروني بحيث نستطيع قتحها من اي مكان او من اي جهاز اخر 

وهذا هو المديول :

 

Option Compare Database
Option Explicit

Public Function InitiateAutoBackup() As Boolean
' هذه الدالة خاصة بعملية التحقق من البدء في إجراء النسخ الاحتياطي
' ثم إنشاء النسخة الاحتياطية حسب المعطيات
' وهي الدالة التي يتم مناداتها في ماكرو AutoExec

On Error GoTo HandleError

Dim WhereToSave As String

InitiateAutoBackup = False

' مكان الحفظ بجانب قاعدة البيانات
 
 'WhereToSave = BECurrentPath & "Bakup\"
  
  WhereToSave = "c:\Bakup"

' التحقق من وجود نسخة سابقة أم لا .. وعمل النسخة في حال عدم وجودها
If CheckBackupWeek() = False Then
    ' يفحص من جدول النسخ الاحتياطية إذا كانت هناك نسخة محفوظة سابقا خلال هذا الأسبوع
    ' إذا ما وجدها يحفظ وإذا وجدها ينتقل للإجراء التالي
    Call BackupToPath(WhereToSave)
    InitiateAutoBackup = True
Else
    ' توجد نسخة سابقة لذلك يلغي العملية
    InitiateAutoBackup = False
    Exit Function
End If


HandleExit:
Exit Function

HandleError:
If err.Number = 0 Then
Exit Function
Else
MsgBox err.Number & vbNewLine & vbNewLine & err.Description, , "Code : InitiateAutoBackup()"
End If
Resume HandleExit

End Function

 

تم تعديل يونيو 15 بواسطه Moosak
تنسيق الكود

[kkhalifa1960]

اول شئ اعدادات الستامب من جي ميل تجسب منه (your_app_password) 

🛠️ خطوات الحصول على App Password جديد في Gmail

1. افتح المتصفح وسجّل الدخول إلى حسابك في Google.

2. ادخل على صفحة إدارة الحساب (Google Account).

3. من القائمة الجانبية اختر الأمان (Security).

4. تحت قسم تسجيل الدخول إلى Google (Signing in to Google) ستجد خيار App Passwords.

   • إذا لم يظهر، تأكد أن التحقق بخطوتين (2-Step Verification) مفعل.

5. اضغط على App Passwords.

6. سيطلب منك كلمة مرور الحساب للتأكيد.

7. اختر التطبيق: Other (Custom name) واكتب مثلاً "AccessBackup".

8. اضغط Generate → سيظهر لك كلمة مرور مكونة من 16 حرفًا.

9. انسخ هذه الكلمة وضعها في الكود مكان your_app_password.

10. يمكنك أيضًا إضافة أكثر من مستلم باستخدام فاصلة منقوطة:   .To = "your_email@gmail.com;other_email@gmail.com"
     

 واليك نسخة مجربة لكني غيرت بياناتي .  مع تعديل دالتك   وتطلبها  بزر أو بطريقتك  . اليك المرفق . ووافني بالرد .

BackupTest.rar

تم تعديل يونيو 15 بواسطه kkhalifa1960

[Foksh]

مشاركة مع فكرة مستقلة لإرسال بريد إلكتروني مع مرفقات .. اقرأ الموضوع التالي :-

 

 

 

[Foksh]

أيضاً اقرأ هذا الموضوع قد يفيدك ..

 

[منتصر الانسي]

رائع أستاذ @kkhalifa1960 تمت التجربة بنجاح والحقيقة أن عندي مقترح سيجعل هذه الأداة عملية أكثر فلو أمكنك منح المستخدم خيار تحديد الملف المطلوب رفعه ليتم تحديد ملف من أي مكان على القرص وأن يكون بأي إمتداد فكما يعلم الجميع فإن حجم الملفات قد تتضخم بحيث يستحيل رفعها فيكون للمستخدم الحرية إما رفع الملف مباشرة أو ضغطه وإرساله كملف مضغوط كذلك حرية تحديد عنوان الرسالة ومحتواها وبهذا ستكون أداة عملية يمكن إستخدامها لحفظ أي نوع من الملفات

[kkhalifa1960]

16 ساعات مضت, منتصر الانسي said:

ائع أستاذ @kkhalifa1960 تمت التجربة بنجاح والحقيقة أن عندي مقترح سيجعل هذه الأداة عملية أكثر فلو أمكنك منح المستخدم خيار تحديد الملف المطلوب رفعه ليتم تحديد ملف من أي مكان على القرص وأن يكون بأي إمتداد فكما يعلم الجميع فإن حجم الملفات قد تتضخم بحيث يستحيل رفعها فيكون للمستخدم الحرية إما رفع الملف مباشرة أو ضغطه وإرساله كملف مضغوط كذلك حرية تحديد عنوان الرسالة ومحتواها وبهذا ستكون أداة عملية يمكن إستخدامها لحفظ أي نوع من الملفات

تفضل استاذنا @منتصر الانسي . 

CompactAndBackupFileOrFolderWithSendEmail.rar