اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

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

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

 

وشكراً

تم تعديل بواسطه jjafferr
تم تعديل شكل الكود
  • Like 1
رابط هذا التعليق
شارك

  • 2 weeks later...
في 7/14/2016 at 18:05, محمد سلامة said:

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

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

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

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

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

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

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

 

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

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

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.

×
×
  • اضف...

Important Information