السلام عليكم و رحمة الله و بركاته
أولا قبل كل شيء يا جماعة أنا عضو جديد و مبتدئ في Ms access و بدون أي إطالة فأنا أعاني من 3 مشاكل:
1- لا أعرف VB أصلا لكن يمكنني مقاربته مع C#
2- لم أعمل في أكسس قبلا , لهذا أنا أدرب نفسي عليه
3- على الرغم إنني لي خبرة في SQL في البرمجيات JAVA و PHP و ASP.NET إلا إنني أعاني من الأكسس فهو غير مرن بالنسبة إلي و كان ممكن أن أنفذ ما سأطلبه منكم من مساعدة لكن الأكسس مختلف
المهم المطلوب هو استشارتكم بخصوص كيفية عمل إرسال رسائل من الأكسس و طبعا أنا لا أعرف الكود جيدا لكن بعد بحث مضن وجدت الكود لكن سبق و عانيت من مشاكل
أولا ما أريده هو كيفية عمل كود يرسل إلى الكل - طبعا عناوينهم موجودة في جدول -
stWho = Me.cboAssignee
stWhere = "tblUsers.strUserID = " & "'" & stWho & "'"
'-- Looks up email address from TblUsers
varTo = DLookup("[strEMail]", "tblUsers", stWhere)
هذا مثال أخذته من موقع و الهدف منه إرسال لشخص واحد يحدده cboAssigne أما ال ID فهو من جدول tblUsers و varTo هو المرسل إليه
لكن كيف أجعله يرسل لكل الإميلات و الأسوأ ليست هنا المشكلة
أنا أريد أن أرسل من Access Report يحتوي على الإيميلات و بجانب كل إيميل check box و طبعا أريد stWho ينسخ من كل من علم بجواره علامة صح
و أنا وضعت هيكلية للفكرة و هي
for i =1 To Count
هذا كان اقتراحي لكن أحتاج للمساعدة لأني لا أعرف VB جيدا و لكم وافر الشكر