ابو فتحى قام بنشر يونيو 2, 2021 قام بنشر يونيو 2, 2021 السلام عليكم و رحمه الله و بركاته هل ممكن تصدير بيانات فاتورة مبيعات كملف الى جهاز تانى فى محافظة اخرى و يتم ادخال كفاتورة مشتريات ملحوظه " لا يوجد اى ربط بينها يتم الارسال بالميل
SEMO.Pa3x قام بنشر يونيو 2, 2021 قام بنشر يونيو 2, 2021 عليكم السلام قم بتصدير بيانات الفاتورة على شكل ملف أكسل ارسل الأكسل بالايميل للمحافظة الثاني ثم استورده لقاعدة بياناتك
ابو فتحى قام بنشر يونيو 2, 2021 الكاتب قام بنشر يونيو 2, 2021 اخى العزير اولا : شكرا على الرد و الاهتمام ثانيا : على الاقل لازم يكون ملف نص بالحماية من التلاعب به
د.كاف يار قام بنشر يونيو 4, 2021 قام بنشر يونيو 4, 2021 (معدل) اخي الكريم تستطيع تصدير التقرير بصيغة PDF تستطيع ربط البريد الإلكتروني مع الأكسس *** هذه الإجراءات كلها تستطيع تنفيذها بأزرار واحد فقط *** مع ملاحظة بأنه يجب عليك تفعيل وصول التطبيقات الأقل أمانا في بريد Gmail On Error GoTo errorhandle '=============== انشاء مجلد لحفظ التصدير ====================== Dim fso As Object Dim fldrname, fldrpath, FolderName As String FolderName = "MyBill" Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & FolderName If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If '=============== تصدير التقرير ====================== Dim FilePath, ReportName, BillNumber As String BillNumber = "Bill - " & BillNumber ' هنا اسم القرير الجديد FilePath = CurrentProject.Path & "\" & FolderName & "\" & BillNumber & ".pdf" ReportName = "Report1" ' اسم التقرير المطلوب تصديره DoCmd.OutputTo acOutputReport, "Report1", "PDFFormat(*.pdf)", FilePath, False, "" '=============== ارسال التقرير بالإيميل ====================== Dim imsg As Object Dim iconf As Object Dim flds As Object Dim schema, settingsUsername, settingsPassword As String settingsUsername = "ادخل بريد الجيميل" settingsPassword = "كلمة المرر" Set imsg = CreateObject("CDO.Message") Set iconf = CreateObject("CDO.Configuration") Set flds = iconf.Fields schema = "http://schemas.microsoft.com/cdo/configuration/" flds.Item(schema & "smtpusessl") = True flds.Item(schema & "smtpauthenticate") = 1 flds.Item(schema & "sendusername") = settingsUsername flds.Item(schema & "sendpassword") = settingsPassword flds.Item(schema & "smtpserver") = "smtp.gmail.com" flds.Item(schema & "sendusing") = 2 flds.Item(schema & "smtpserverport") = 465 flds.Update Dim Mymsg, MsgToSend As String MsgToSend = "نص الرسالة" Mymsg = "<html><head><meta http-equiv='Content-Type' content='text/html;charset=UTF-8'><title></title></head><body style='direction: rtl; font-weight: 700; text-align: right; font-size: medium'> <p> " & "" & "<br />" & MsgToSend & "<br />" & "" & "</p></body></html>" With imsg .BodyPart.Charset = "UTF-8" .to = StudentEmaile .from = DLookup("settingsUsername", "settings", "settingNO=1") .Subject = BillNumber .HTMLBody = Mymsg .AddAttachment (MyAttachment) Set .Configuration = iconf .Send End With Set iconf = Nothing Set imsg = Nothing Set flds = Nothing errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit تم تعديل يونيو 4, 2021 بواسطه د.كاف يار 3
ابو فتحى قام بنشر يونيو 4, 2021 الكاتب قام بنشر يونيو 4, 2021 اخى الكريم الفكرة يوجد مخزن رئيسى و 5 محلات ليس فى مكان واحد و بدون ربط بيهم المطلوب جهاز المحزن الرئيسى يقوم بعمل فاتورة مبيعات لمحل رقم 1 وتصدير على الاميل كهيئة ملف نص بالحماية من التلاعب به جهاز محل رقم 1 استيراد الملف النصيه الى قاعدة البيانات كفاتورة مشتريات فى البرنامج
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.