اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


saffar

الردود الموصى بها

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

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

 

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

 

 

email.JPG.13c4eb7dde7cce2b0ccdd3a51ef1c4e9.JPG

ابحث عن هذا   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"

 

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

اخي العزيز @saffar

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

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

وشكرا  لك

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

  • 1 year later...
في 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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information