هل يمكن الوصول للبيانات المخزنة بالاوت لوك

السلام عليكم وبعد

الحل في تصوري هو أن يكون إرسال الرسالة من داخل الأكسس وحفظ العناوين التي تم الإرسال إليها وبالتالي البحث بها

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

http://www.arabteam2000.com/vb/show...&threadid=17134

لعله يشفي غليلك

وعليكم السلام ورحمة الله وبركانه اخوي ابو هاجر

اولا : اشكرك اخوي ابو هاجر على كرمك والتفضل بالرد جزاك الله كل خير

ثانيا : في الحقيقة اخي ابو هاجر انا لااريد معرفة العناوين المرسله لها الرسالة قبل الارسال فهي مخزنه لدي في دفتر العناوين بالاوت لوك

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

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

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

ومعليش ترى اتعبناك معانا اخوي ابو هاجر والله يرحم والديك ويجزيك عنا كل خير

الأخ الكريم

طالب علم

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

قم بتجربتها

Function sendmail()

Set objOutl = CreateObject("Outlook.Application")



Set objMailItem = objOutl.CreateItem(olMailItem)



'Const olMailItem = 0 ' Constants for new items

Const olAppointmentItem = 1

Const olContactItem = 2

Const olTaskItem = 3

Const olJournalItem = 4

Const olNoteItem = 5

Const olPostItem = 6



objMailItem.Recipients.Add "SunnyB@xyz.com        ' 1st E-mail address"

objMailItem.Recipients.Add "BGate@Microsoft.com" ' 2nd recipient

objMailItem.Display

objMailItem.Attachments.Add "c:mydirs.txt"



objMailItem.Subject = "My birthday party" ' subject

objMailItem.Body = "Hi, like to invite you all to my ..." ' the message



Set objNameSpace = objOutl.GetNamespace("MAPI")



' now we are ready to "logon" to outlook (using Logon method)

objNameSpace.Logon "profile", "password"

objMailItem.Send                                    ' send method

objNameSpace.Logoff                                 ' logoff



End Function

شكرا اخي ابو هاجر

ساجرب الدالة وسوف اخبرك النتيجة

ولن نستغني عن مساعدتك طبعا :)

الاخ الكريم ابوهاجر

السلام عليكم ورحمة الله وبركاته

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

أخي الكريم

المثال مرفق وبعد النقر على زر إرسال رسالة ابحث في مجلد الصادر في الأوت لوك ستجد رسالتك وعليها رمز الملف المرفق

تحياتي

send_mail_access.zip