(تمت الإجابة) استخدام Address Book على الفورم

[الجازع]

اساتذتي الافاضل

اود اضافة امكانية استخدام Address Book & Check Name على الفورم UserForm5 الخاص بالارسال مربوط بـOutlook لضمان التأكد من الشخخص المراد ارسال الطلب له وشكراً .

IT2.zip

[عبدالله المجرب]

السلام عليكم

اخي الفاضل

انا بصراحة لم اتعامل مع موضوع الايميل والاكسل ولكن اليك هذه الروابط فقد تفيدك

http://www.officena.net/ib/index.php?showtopic=29304

وهذا اايضاً

http://www.officena.net/ib/index.php?showtopic=29748

[الجازع]

اشكرك يا استاذي على تجاوبك معي لاكن ما ابحث عنه غير موجود بهده الروابط حيث اريد ان اتأكد من اسماء الاشخاص المرسل لهم عن طريق استخدام خصائص الاوت لوك بفتح قائمة

Address Book & Check Name

ارجو مساعدتي لمن يستطيع لاني اعمل على برنامج وينقصني هذه المعلومه جزاكم الله كل خير

تم تعديل أبريل 14, 2012 بواسطه jazea

[الجازع]

المساعده جزاكم الله كل خير

[الجازع]

يا اخواني ساعدوني الله يرضى عليكم

[الجازع]

للرفع يااخواني

[أ / محمد صالح]

أخي الكريم

هل المطلوب هو

التأكد من أن البريد المكتوب مثلا في حقل to موجود ضمن دفتر العناوين؟

أم ماذا؟

[الجازع]

استاذي الفاضل اسعد الله صباحك

المطلوب هو فتح دفترالعناوين المربوطه بالاوت لوت مع التأكد من البريد المدخل موجود بدفترالعناوين

ولك هذه الصوره توضح المطلوب

وجزاك الله خير

[أ / محمد صالح]

أخي الكريم

استخدامنا لبرنامج ضمن برنامج آخر لا يجعلك تملك جميع خصائص البرنامج الآخر

وإلا فيمكن الاستغناء عنه ما دام الأول يقوم بما يقوم به الثاني!!!

لأني حسب طلبك (فتح نافذة خاصة بأوت لوك) أقول لك استخدم برنامج أوت لوك مباشرة بدون الحاجة لاستخدام الإكسل؛ لأن طلبك محض في برنامج البريد

.........

أما إذا كان الطلب مثلاً

استدعاء قائمة العناوين المسجلة في أوت لوك للاختيار من بينها بدلاً من كتابة البريد كله أو إمكانية وجود خطأ في البريد عند كتابته يدويا ....... فهذا ممكن ضمن الإكسل

لذلك أرجو تحديد المطلوب بكل دقة وبالتفصيل

[الجازع]

استاذي الفاضل سوف اوضح لك

اود افادتكم بانه هذا برنامج لارسال الطلبات لاشخاص وملف الاكسيل يتم ترحيل البيانات المدخله بالفورم مع ارسال هذه البيانات الى جهات الاتصال حسب الاختيار

المطلوب هو فتح دفتر العناوين الموجود بالاوت لوك لاختيار الجهة المرسله والزر الاخر يقوم بعمليه التأكيد من البيانات المدخله في حال تمت عملية الادخال لجهة المرسله بشكل يدوي ليقوم بمقارنته ضمن دفتر العناوين

فأذا كان لديك طريقه اخرى لاستدعاء دفتر العناوين المسجلة بالاوت لوك بطريقه اخرى فلا مانع وتفعيل خاصية التأكيد

ولكم جزيل الشكر والتقدير.

[أ / محمد صالح]

أخي الكريم حسب وصفك للمطلوب في برنامجك

أعتقد أنه لا فائدة من فتح نافذة دفتر العناوين

ويمكن الاستغناء عنها بقائمة combobox تحتوي على أسما وعناوين بريد جهات الاتصال الموجودين في دفتر العناوين

وبديهيا لا يلزمك استخدام فحص الأسماء check names لأن الأسماء والعناوين مأخوذة مباشرة من فتر العناوين

وبعد اختيارك لجهة الاتصال يمكن الضغط على زر to أو cc أو bcc لنقل بريد جهة الاتصال المحددة في القائمة إلى مربع النص to وهكذا

فإذا كان هذا ما تريده فأخبرني حتى أقوم بتعديل ملفك

وإلا ...........................

[الجازع]

استاذي اشكرك على تجاوبك ولا مانع من تنفيذ الفكره المطروحه من قبلك مدام انها سوف تقوم بنفس الغرض المطلوب

فارجو التعديل على الملف

وانا بأنتظارك جزاك الله خير

[أ / محمد صالح]

تفضل أخي الكريم

يتم استيراد قائمة جهات الاتصال إلى كومبو في بداية فتح النموذج

يمكنك اختيار المستلم من القائمة

ثم الضغط على التسمية to أو cc وهكذا

.........

تمت معالجة وضع أكثر من عنوان بريدي في الحقل الواحد

أتمنى أن يكون هذا هو المطلوب في النموذج رقم 5

mas_IT2.rar

[الجازع]

استاذي الفاضل اشكرك على مجهودك لاكن عند فتح الملف يظهر لي خطأ كما هو موضح بالصور المرفقه

ارجو مساعدتي بالمشكله لحلها

وشكراً

تم تعديل أبريل 19, 2012 بواسطه jazea

[الجازع]

تم حل المشكله باضافة بعض المكونات من قائمة Tools = Recordse

سوف اقوم بالتجربه وافيدك

جزاك الله خير

[الجازع]

ارجو شرح كيفية الاختيار

يمكنك اختيار المستلم من القائمة

ثم الضغط على التسمية to أو cc وهكذا

.........

ارجو شرح كيفية الاضافه

تمت معالجة وضع أكثر من عنوان بريدي في الحقل الواحد

[أ / محمد صالح]

أخي الكريم

في حالة التعامل مع برنامج مثل أوت لوك من خلال الإكسل يجب تنشيط المرجع الخاص ببرنامج أوتلوك في نافذة محرر الفيجوال بيسك للتطبيقات vba وذلك من خلال

tools--->references--->Microsoft outlook 0.14 object library

وبعد فتح النموذج يتم استدعاء جهات الاتصال في القائمة combobox1 الموجودة أعلى النموذج userform5

تختار منها الاسم ثم تضغط على to فيتم وضع البريد في مربع النص الخاص ب to وهكذا

..........

طبعا معروف كيفية فتح النموذج في الإكسل؟؟

إذا لم تكن تعرف يتم إنشاء إجراء sub جديد ضمن وحدة نمطية module بالكود التالي

sub mas()

userform5.show

end sub

كما هو موجود في الملف المرفق في المشاركة السابقة

[الجازع]

استاذي الفاضل

جمعة مباركه

بعد تجربة الملف اتضح بعد الضغط على زر ادراح وارسال يتم فتح فورم خاص بالاوت لوك كما هو موضح بالصوره المرفقه وبعد الضغط على Allow

يتم فتح الفورم ولاكن اود الغاء اظهارهذه الرساله مع العلم المرجع المذكور من قبلكم بالرد السابق لم اجده ولقد قمت بتفعيل المرجع (

Microsoft outlook 12.0 object library

) فهل هذا قد يفرق ؟

ولا اعلم ما سبب ظهورها وشكراً

تم تعديل أبريل 20, 2012 بواسطه jazea

[أ / محمد صالح]

أخي الكريم

أنا أستعمل أوفيس 2010 ولهذا رقم المرجع 14 ولا يظهر عندي أي رسائل تحذير

أما رقم 12 لديك فلأنك تستخدم أوفيس 2007 ولا مشكلة في تفعيل أي المرجعين

ولتعطيل هذه الرسائل التحذيرية بالكود ضع هذا الكود في أول الإجراء الخاص ببدء فتح النموذج

OlSecurityManager.DisableOOMWarnings = True

المصدر

http://www.add-in-express.com/outlook-security/index.php

جرب وأخبرني بالنتيجة

حيث أني أستخدم 2010 ولا يخرج أي رسائل تحذيرية عندي

[الجازع]

استاذي الفاضل

تم استخدام الكود وتم تعطيل هذه الرساله واشكرك

لدي استفسار بسيط

اود تحديد الـِ Address Book المحفوظ به العناوين وهو "Global Address List" لاني عند استخدامه اليوم لم يتم اظهار العناوين.مع تحديد الكود الخاص بذلك

وشكراً

[أ / محمد صالح]

أخي الكريم

الكود الموجود في الملف المرفق يعرض كل جهات الاتصال الموجودة في دفتر العناوين (كما طلبت)

جرب أن تضيف جهة اتصال ثم تفتح النموذج ستجد أنها تمت إضافتها (كيف يحدث هذا .....لاني عند استخدامه اليوم لم يتم اظهار العناوين)

أما إذا كنت تريد عرض جهات الاتصال الخاصة بقائمة عناوين address list معينة

فاستعمل هذا الكود

Private Sub UserForm_Initialize()

  Dim objOutlook As Outlook.Application

  Dim objAddressList As Outlook.AddressList

  Dim objAddressEntry As Outlook.AddressEntry

  Set objOutlook = CreateObject("Outlook.Application")

  Set objAddressList = objOutlook.Session.AddressLists("Global Address List")

  For Each objAddressEntry In objAddressList.AddressEntries

  If objAddressEntry.Address <> "" Then

  Me.ComboBox1.AddItem objAddressEntry.Name

  Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = objAddressEntry.Address

  End If

  Next objAddressEntry

  Set objOutlook = Nothing

  Set objAddressList = Nothing

  Set objAddressEntry = Nothing

end sub

وفقنا الله وإياكم لكل ما يحب ويرضى

[الجازع]

اشكرك لقد تم اظهار جميع العناوين ولله الحمد وللاكن عند الضغط على TO او غيره لا يتم ادراج الاسم المختار فقط فأنه يقوم بأدراج جميع المعلومات الخاصه بالاسم المختار

كما ارفقت صوره توضيحيه للمشكله .. مع وجود بطء عند فتح الفورم الخاص بالارسال ولربما لكثره العناوين الموجوده .

وتقبل شديد اسفي وشكراً

تم تعديل أبريل 21, 2012 بواسطه jazea

[أ / محمد صالح]

أخي الكريم

الكود لا يخرج أي خطأ لدي

يظهر في القائمة الأسماء وعند الضغط على التسمية يتم كتابة البريد في مربع النص

لأن السطر الأول في الكود التالي يقوم بتخزين الاسم في القائمة

Me.ComboBox1.AddItem objAddressEntry.Name

  Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = objAddressEntry.Address

والثاني يخزن عنوان البريد في العمود الثاني للقائمة وعند الضغط على to يتم وضع قيمة العمود الثاني للقائمة (عنوان البريد) في مربع النص to حسب الكود التالي في حدث عند الضغط

Me.TextBoxto = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)

وأكيد اختلف الأمر لديك في كود الضغط على to لأنك تقريبا لا تعمل على نفس الملف المرسل وإنما تنقل الأكواد لملف جديد

[الجازع]

استاذي الفاضل

اسعد الله صباحك

اليك يا أخي العزيز عاشق غزالي أسطر بحبر دموعي

كلمة شكر واحترام

كلمة حب وامنتان

لك أخي

أردد

يا صاحب القلب الرائع

لك يا اخ لم تلده أمي

ولقد قمت بتعديل الكود من Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = objAddressEntry.Address

الى Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = objAddressEntry.Name

وتم حل المشكله

وقمت بالتعديل على الكود من Me.TextBoxto & "," & Me.ComboBox1.List

الى Me.TextBoxto & ";" & Me.ComboBox1.List في جميع الـLabel. لاني قد لاحظت عند اضافة اكثر من عنوان يفصل بين العناوين العلامه "," وفي هذه الحاله لايستطيع من قراءة العناوين وايجادها حيث ان العلامات المستخدمه بالاوت لوك بين العناوين هي ";" للتوضيح .

وسوف اطرح البرنامج عند الانتهاء منه قريباً

ولك جزيل الشكر والتقدير

تم تعديل أبريل 22, 2012 بواسطه jazea

[الجازع]

استاذي الفاضل اسعد الله ايامك

وبعد العمل على البرنامج لاحظت بأني احتاج في بعض الاحيان لاضافة مرفق في النموذج الخاص بالارسال لذلك ارجو بمساعدتي في هذا الكود بحيث عند الضغط على Attach file يقوم بأظهار الصوره المرفقه لاختيار الملف المراد ارساله وعند اختياره والضغط على Insert يتم ادراجة بTextBox5 لارفاقه بالايميل المرسل بعد الضغط على Send وارجو ان لا اكون اثقلت عليك وشكراً

mas_IT2.rar