بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
3 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه alvingenius
-
-
في 7/14/2016 at 18:05, محمد سلامة said:
من فضلك انا محتاج اشوف مرفقك اللي بترسل منه ايميلات بمرفقات بدون الاوتلوك
فالو امكن ممكن ترفق مرفق هنا
الكود مرفق مسبقاً ..
بالنسبة للمرفقات الى بالايميل انا بحط بس لينك الملف - Path وهوا بيترفق في الميل - وبياخد وقت على قد مساحة الملف المرفق طبعاًوورسالة تأكيد ارسال الميل بتيجي بعد مايرفع المرفق ويعمل ارسال ...
خلال الفترة دة انا عاوز كود يحسب الوقت المتبقي الفعلي ( مثل برامج التحميلات ) ويظهر بار حقيقى يالوقت المتبقي ...!!
في 7/15/2016 at 01:07, رمهان said:سؤال مش يشغل البطيخة وبس ؟ بيحفرها حفر ..
اختراع يا كوتش :)
- 1
-
السلام عليكم
عندي برنامج ارسال بريد الكتروني من خلال VBA باستخدام CDO وليس بالـ Outlook
والكود الى استخدمةPrivate Sub Command1_Click() Dim Mailto As String 'Mail To Dim mail As Object ' CDO.MESSAGE Dim config As Object ' CDO.Configuration Mailto = InputBox("Enter Mail", "Enter Email Address") If Mailto <> "" Then ' if it not empty MsgBox ("Mail will sent to " & Mailto & " Press OK and wait for confirmation message "), "Sending ..." Else MsgBox "Canceled , or No Mail entered ", vbCritical, "Error" 'Terminate if the cancel or empty value is found button is clicked! End If Set mail = CreateObject("CDO.Message") Set config = CreateObject("CDO.Configuration") config.Fields(cdoSendUsingMethod).Value = cdoSendUsingPort config.Fields(cdoSMTPServer).Value = "xxxx" config.Fields(cdoSMTPServerPort).Value = 465 config.Fields(cdoSMTPUseSSL).Value = "true" config.Fields(cdoSMTPAuthenticate).Value = cdoBasic config.Fields(cdoSendUserName).Value = "xxxxx" config.Fields(cdoSendPassword).Value = "xxxxx" config.Fields.Update Set mail.Configuration = config With mail .To = Mailto .From = "xxxx" .Subject = "Test Sub" .TextBody = "Test Body." .AddAttachment "c:\users\data.bin" .Send End With Set config = Nothing Set mail = Nothing If Err.Number = 0 Then MsgBox "Message Sent Successfully", vbInformation, "Sent" End Sub
وعملية الـ المرفقات تاخذ وقت على حسب حجم الملف المرفق
ومثل ماموجود في الكود في حالة عدم وجود Errors وارسال الملف تيجي رسالة تأكيد الارسال
MsgBox "Message Sent Successfully", vbInformation, "Sent"
الرسالة دة تظهر بعد وقت مثل ماقلت حسب حجم الملف المرفق
اثناء هذه الوقت اريد عمل
Progress bar
حقيقي يبين المدة المفترض انتظارها ( لارفاق الملف و ارسال الرسالة) حتي تظهر رسالة تأكيد الارسال
فلو فية كود يعمل الخاصية دة يبقي كويسوياريت لو الكود متوفر يتضاف على الكود المرفق دة علشان اخدة جاهز
وشكراً
- 1
[Access 2010-2013] عمل ربط بين جدول اساسي و Navigation Control
في قسم الأكسيس Access
قام بنشر · تم تعديل بواسطه alvingenius
السلام عليكم
مثل عنوان الموضوع
عندي 3 جداول
جدول الموظفين / جدول الخبرات / جدول الوظائف السابقة ( مربوطين علاقة عن طريق ID )
عملت فورم اساسي لجدول الموظفين وعملت Navigation Control فيها فورم الخبرات و الوظائف السابقة
واخترت الNavigation Control لتصميمها الجذاب ( بدلا عن Tab Control )
المشكلة عندي اني عاوز اربط الفورم الى في ال Navigation Control بتاع الخبرات و الوظائف السابقة برقم الـ ID الخاص بالموظف في الفورم الاساسي بحيث يظهرلي الخبرات الخاصة بالموظف الى انا واقف عليه
عاوز اربط خانة الـ Employee_ID من فورم الخبرات السابقة بـ Employee_ID من الفورم الاساسي لبيانات الموظف