ارسال جداول الطلبة على الايميل

[saffar]

السلام عليكم

كيف ابعث تقرير لجدول للطالب عن طريق الايميل المخزن في جدول البيانات 

 

email.accdb

[SEMO.Pa3x]

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

Sub sendOutlookEmail()

Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")

Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "Body of the email"
oMail.Subject = "Test Subject"
oMail.To = "Someone@somewhere.com"
oMail.Send
Set oMail = Nothing
Set oApp = Nothing


End Sub

 

[saffar]

كل عام وانت بخير وصحة وعافية دكتور

المطلوب من البرنامج عند الارسال ان يقوم بارسال على سبيل المثال:

جدول الطالب (حسين ) الى ايميله (hussain@hussain.com) المسجل في جدول البيانات 

جدول الطالب (علي ) الى ايميله (ali@ali.com) المسجل في جدول البيانات 

الطالب الثاني على ايميلة الخاص وهكذا

1-ان يقول بارسال الجداول كلها لجميع الطلبة مره واحد

2-او اختيار طالب او عدد معين من الطالبة وارسال ايميلات لهم بالجداول

[د.كاف يار]

تفضل التعديل

 

email.1.accdb

[saffar]

سلمت يداك د.كاف

كتبت في الاعدادات الايميل والباسورد

لكن تظهر لي رسالة خطأ

[ناقل]

ادخل على حسابك من خلال الرابط التالي وفعل التطبيقات الاقل امانا ويعمل معك

https://www.google.com/settings/security/lesssecureapps

 

[saffar]

الحروف تظهر بشكل علامة استفهام

 

[د.كاف يار]

تفضل هذا التعديل

تم تعديل الرسالة الى تنسيق HTML ة تم اضافة اللغة العربية للشفرة

 

email.1.zip

[saffar]

زاد الله من فضلك

لكن لا زالك اللغة مشقرة

هل الخلل في اعدادات جهازي ؟

 

 

[ناقل]

12 ساعات مضت, saffar said:

زاد الله من فضلك

لكن لا زالك اللغة مشقرة

هل الخلل في اعدادات جهازي ؟

 

 

ابحث عن هذا   With imsg

    With imsg
        .to = StudentEmaile
        .from = DLookup("settingsUsername", "settings", "settingNO=1")
        .Subject = "ÔåÇÏÉ"
        .HTMLBody = Mymsg
        .AddAttachment (MyAttachment)
        Set .Configuration = iconf
        .Send
    End With

واستبدله بهذا .....

    With imsg
        .BodyPart.Charset = "UTF-8"
        .to = StudentEmaile
        .from = DLookup("settingsUsername", "settings", "settingNO=1")
        .Subject = "ÔåÇÏÉ"
        .HTMLBody = Mymsg
        .AddAttachment (MyAttachment)
        Set .Configuration = iconf
        .Send
    End With

تم اضافة هذا السطر 

        .BodyPart.Charset = "UTF-8"

 

[د.كاف يار]

اخي قم بتغيير اللغة للإعدادات الاقليمية

كما في الصورة ادناه

و النتجية

 

 

 

 

[saffar]

سلمت ايديكم اساتذتي الكرام

البرنامج شغال ممتاز

اعرف ان قوانين المنتدى لكل موضوع سؤال واحد لكن لو احببت ان ضيف بعد الاضافات على البرنامج هل يجل ان افتح موضوع جديد وارفق نفس الملف او يمكنني ان اواصل في نفس هذا الموضوع ؟

لكم مني جزيل الشكر

 

[jjafferr]

اعمل موضوع جديد ، وضع فيه رابط/الاشارة الى هذا الموضوع ،

ثم ارجع الى هذا الموضوع ، وضع فيه رابط/الاشارة الى الموضوع الجديد ،

بهذه الطريقة الجميع يعرف 🙂

 

جعفر

[Ahmed_J]

اخي العزيز @saffar

لدي سؤال حول برنامجك لو سمحت؟ عند التعامل مع البرنامج

* هل يمكن ارسال رسالة نصية  لكل طالب بدل ملف pdf عن طريق البرنامج ام لا؟ 

وشكرا  لك

تم تعديل مايو 18, 2021 بواسطه Ahmed_J

[saffar]

مرحبا اخي العزيز Ahmed

هدفي من البرنامج ان اجعل منه وسيله للتواصل بشتى الطرق مثل ارسال رسائل بالايميل - رسائل نصية - الواتس اب 

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

 

[saffar]

 

[Ahmed_J]

السلام عليكم

شكرا لك وبارك الله فيك 

[حمدى الظابط]

في 16‏/5‏/2021 at 07:32, د.كاف يار said:

تفضل هذا التعديل

تم تعديل الرسالة الى تنسيق HTML ة تم اضافة اللغة العربية للشفرة

 

email.1.zip 96.11 kB · 38 downloads

السلام عليكم

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

 

the messaje could not be sent to the smtp server. the transport error code was 0*800402170 the server response wasnot available