[Access 2003] عمل شريط تحميل حقيقي Progress Bar

[alvingenius]

السلام عليكم 

عندي برنامج  ارسال بريد الكتروني من خلال 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 
حقيقي يبين المدة المفترض انتظارها ( لارفاق الملف  و ارسال الرسالة) حتي تظهر رسالة تأكيد الارسال

فلو فية كود يعمل الخاصية دة  يبقي كويس

وياريت لو الكود متوفر يتضاف على الكود المرفق دة علشان اخدة جاهز

 

وشكراً

تم تعديل يوليو 14, 2016 بواسطه jjafferr
تم تعديل شكل الكود

[محمد سلامة]

من فضلك انا محتاج اشوف مرفقك اللي بترسل منه ايميلات بمرفقات بدون الاوتلوك

فالو امكن ممكن ترفق مرفق هنا

[رمهان]

سؤال مش يشغل البطيخة وبس ؟ بيحفرها حفر ..   

 

[alvingenius]

في 7/14/2016 at 18:05, محمد سلامة said:

من فضلك انا محتاج اشوف مرفقك اللي بترسل منه ايميلات بمرفقات بدون الاوتلوك

فالو امكن ممكن ترفق مرفق هنا

الكود مرفق مسبقاً ..
بالنسبة للمرفقات الى بالايميل  انا بحط بس لينك الملف - Path وهوا بيترفق في الميل - وبياخد وقت على قد مساحة الملف المرفق طبعاً 

وورسالة تأكيد ارسال الميل بتيجي بعد مايرفع المرفق ويعمل ارسال ...
 

خلال الفترة دة انا عاوز كود يحسب الوقت المتبقي الفعلي ( مثل برامج التحميلات ) ويظهر بار حقيقى يالوقت المتبقي ...!!
 

في 7/15/2016 at 01:07, رمهان said:

سؤال مش يشغل البطيخة وبس ؟ بيحفرها حفر ..   

 

اختراع يا كوتش :)