الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ربط الفيجوال بيسك بالاسماء (contacts) في برنامج مايركوسوفت اوت لوك

بدأه thaerkayed في 8 نوفمبر 2008 · 3 رد · 1,064 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ارجو المساعدة في كيفية ربط الفيجوال بيسك ببرنامج مايكروسوغت اوت لوك لعرض اسم معين موجود داخل الاسماء (Contacts) حسب رقم الهاتف

#2

سؤال ينتظر الاجابه يا ترى من يملك الاجابة ؟

شكوت الى وكيع سوء حفظي فأشار على بترك المعاصي واخبرني ان علم الله نور و نور الله لا يأتي لعاصي

#3

السلام عليكم...

هذا مثال للوصول إلى قائمة جهات الاتصال (Contacts) في برنامج MS Outlook (النسخة التي لدي هي 2003).

1. من القائمة Project اختر الأمر References

2. قم بتحديد المكتبة Microsoft Outlook xx.x Object Library (حيث xx.x هو رقم النسخة. أنا لدي 11.0).

3. ضع على الـ Form اثنين من المكون ListBox و Command (زر أمر).

4. انسخ الكود التالي:

  1. Private Sub Command1_Click()
  2.     Dim OLApp As New Outlook.Application
  3.     Dim OLNs As Outlook.NameSpace
  4.     Dim ContactsFolder As Outlook.MAPIFolder
  5.     Dim ContactItem As Outlook.ContactItem
  6.     Dim ItemsObj As Outlook.Items
  7.     Dim ContactsCount As Long
  8.     Dim I As Long
  9.  
  10.     Set OLNs = OLApp.GetNamespace("MAPI")
  11.     Set ContactsFolder = OLNs.GetDefaultFolder(olFolderContacts)
  12.     Set ItemsObj = ContactsFolder.Items
  13.     ContactsCount = ItemsObj.Count
  14.     If ContactsCount <> 0 Then
  15.         For I = 1 To ContactsCount
  16.             If TypeName(ItemsObj(I)) = "ContactItem" Then
  17.                 Set ContactItem = ItemsObj(I)
  18.                 List1.AddItem ContactItem.FullName           ' الاسم بالكامل
  19.                 List2.AddItem ContactItem.BusinessTelephoneNumber   ' رقم هاتف العمل
  20. '                List2.AddItem ContactItem.MobileTelephoneNumber       ' رقم الهاتف الموبايل
  21. '                List2.AddItem ContactItem.HomeTelephoneNumber         ' رقم هاتف المنزل
  22. '                List2.AddItem ContactItem.Email1Address   ' عنوان البريد الإلكتروني
  23.             End If
  24.         Next I
  25.         MsgBox "تم استيراد العناوين"
  26.     Else
  27.         MsgBox "لا توجد عناوين في آوت لوك"
  28.     End If
  29.  
  30.     Set ContactItem = Nothing
  31.     Set ItemsObj = Nothing
  32.     Set ContactsFolder = Nothing
  33.     Set OLNs = Nothing
  34.     Set OLApp = Nothing
  35. End Sub
  36.  

ملاحظة: إذا حاولت الوصول إلى عناوين البريد الإلكتروني باستخدام ContactItem.Email1Address فإن Outlook - كإجراء أمان - يعرض رسالة تنبيه إلى أن أحد البرامج يحاول الوصول إلى عناوين البريد الإلكتروني، و أن ذلك قد يكون بسبب فيروسات. الرسالة يتم تكرارها مع كل عنوان يتم طلبه.
** يمكنك استعمال الكائن ContactItem للوصول إلى كافة تفاصيل جهة الاتصال (العناوين البريدية و أرقام الهواتف و الفاكس، حتى تاريخ الميلاد).
نرجو الاستفادة و السلام.

      
      

      
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم

    

  

    
    

      
#4
        
        

      
السلام عليكم
جزاكم الله خيرا يا اخي  ناجي على هذه اإفادة  جاري فهك الكود مشكور على هذه الافاده

      
      

      
   شكوت الى وكيع سوء حفظي فأشار على بترك المعاصي                      واخبرني ان علم الله نور و نور الله لا يأتي لعاصي

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…