ارسال التقرير +المرفق

[MO87]

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

من فضل السادة الخبراء مرفق ملف اريد ارسال التقرير + المرفق PDF انا امتلك ايميل اوتلوك 

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

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

ارسال ايميل مع المرفق.rar

[kanory]

ابحث في الموقع تجد العديد من الموضوعات مثل هذا <><><><><><>

في 25‏/5‏/2017 at 20:26, أ / محمد صالح said:

اعرض الملف

إرسال البريد من الأكسس

---

بسم الله الرحمن الرحيم

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

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

**************

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

في إرسال رسائل بريد للعملاء 

أو المستخدمين

======

مباشرة بدون استخدام برنامج outlook من خلال CDO 

وكذلك باستخدام outlook

---------------------------

بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود

مع استعمال جميع المميزات 

///////////////////////////////////////////////

وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل 

مع استعمال جميع المميزات

******************************

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

وكذلك لفتح صندوق حواري اختيار ملفات

**********************

الكود يعمل على كل إصدارات الأوفيس

 

دمتم في رعاية الله وحفظه

والقادم أفضل

إن شاء الله

---

• صاحب الملف
  أ / محمد صالح
• تمت الاضافه
  25 ماي, 2017
• الاقسام
  قسم الأكسيس

 

 

[MO87]

@kanory اخي الفاضل ليس هذا المطلوب انا اريد شي مبسط وجربت الكود ما ظبط والمرفق في السؤال 

[kanory]

35 دقائق مضت, MO87 said:

@kanory اخي الفاضل ليس هذا المطلوب انا اريد شي مبسط وجربت الكود ما ظبط والمرفق في السؤال 

اذن كل ما عليك فعله البحث في المنتدى حتى تجد ذلك الكود المبسط ...

[Moosak]

أخي @MO87 تفضل هذا كود الإرسال بالآوتلوك مع إضافة المرفقات 🙂 

عليك أن تستبدل البيانات الموجودة مقابل كل بيان ( المرسل إليه ، نسخة إلى ، مسودة ، العنوان ، الموضوع ، المرفقات ) تستبدلها بأسماء الحقول عندك في النموذج ..

وكذلك عليك أن تضيف المكتبة : Microsoft Outlook 16.0 Object Library

Sub Send_Email_with_Attachment()

' You should add this library : Microsoft Outlook 16.0 Object Library

Dim MyOutlook As Object
Set MyOutlook = CreateObject("Outlook.Application")

Dim MyMail As Object
Set MyMail = MyOutlook.CreateItem(olMailItem)

MyMail.To = "ReceiverEmail@Gmail.com"   ' المرسل إليه
MyMail.CC = "ReceiverEmail@Gmail.com"   ' نسخة إلى
MyMail.BCC = "ReceiverEmail@Gmail.com"  ' نسخة سرية إلى
MyMail.Subject = "Email Title Here"     ' عنوان الرسالة
MyMail.Body = "This is a Sample Mail."  ' محتوى الرسالة

MyMail.Attachments.Add "C:\File1.PDF", "C:\File2.PDF"   ' المرفقات

MyMail.Send

MsgBox "تم الإرسال بنجاح"

Set MyOutlook = Nothing
Set MyMail = Nothing

End Sub

 

تم تعديل أغسطس 23, 2022 بواسطه Moosak

[MO87]

@Moosakاخي الكريم شكرا على اهتمامك انا عندي هذا الكود  وشغال لكن لو لاحظت في المرفق الخاص بي انا لا اريد كل هذا 

المرسل اليه

نسخه الي

عنوان الرساله

محتويات الرساله 

لا اريد كل هذا 

فقط اريد انا يفتح لي اوتلوك به التقرير والمرفق فقط

كل اللي احتاجه هو إرسال المرفق فقط

انا حاولت ورأيت مشاركات كثيره لهذا الموضوع ولكن لم اوفق في فصل المرفقات

شكرآ لحضرتك 

[Moosak]

1 ساعه مضت, MO87 said:

@Moosakاخي الكريم شكرا على اهتمامك انا عندي هذا الكود  وشغال لكن لو لاحظت في المرفق الخاص بي انا لا اريد كل هذا 

المرسل اليه

نسخه الي

عنوان الرساله

محتويات الرساله 

لا اريد كل هذا 

فقط اريد انا يفتح لي اوتلوك به التقرير والمرفق فقط

كل اللي احتاجه هو إرسال المرفق فقط

انا حاولت ورأيت مشاركات كثيره لهذا الموضوع ولكن لم اوفق في فصل المرفقات

شكرآ لحضرتك 

طيب .. هناك بعض الأمور غير موضحة لا في السؤال ولا في المرفق ..

1- لمن سترسل الرسالة ؟ ( أين ستضع إيميل من سترسل له ؟)

2- أين يوجد المرفق ؟ هل سينشئه البرنامج ثم يرسله ؟ أم أنه مرفق ثابت فقط ستضع مسار الملف في الكود ؟

3 - هل تريد البرنامج أن يرسل تقارير جميع الطلاب ؟ أم الطالب الحالي فقط ؟ ( لأنك وضعت حلقة تمر على جميع الطلاب في الكود )

4 - تريد أن يفتح الآوتلوك ويقف وأنت ستضغط زر الإرسال ؟ أم يرسلها تلقائيا نيابة عنك ؟

 

هذه البيانات مهمة لكتابة الكود 🙂 

تم تعديل أغسطس 24, 2022 بواسطه Moosak

[MO87]

@Moosak

شكرآ علي اهتمامك 

انا اريد انا يفتح الاوتلوك وانا سوف احدد هرسل لمين وهكتب المحتوي وكل شي بنفسي حيث انه تقرير يومي منفصل

اريد الاوتلوك يفتح وبه التقرير +المرفق 

[Moosak]

خلاص هذا هو الكود اللي تحتاجه :

Sub Send_Email_with_Attachment()

' You should add this library : Microsoft Outlook 16.0 Object Library

Dim MyOutlook As Object
Set MyOutlook = CreateObject("Outlook.Application")

Dim MyMail As Object
Set MyMail = MyOutlook.CreateItem(olMailItem)

MyMail.Attachments.Add "C:\R_Emp.pdf"   ' المرفقات

MyMail.Display ' لتشغيل برنامج الأوتلوك والتركيز عليه


Set MyOutlook = Nothing
Set MyMail = Nothing

End Sub

 

بس لأنك ما خبرتني من وين تجيب المرفق .. تأكد أنك تحط رابط المرفق مكان هذي 🙂  : "C:\R_Emp.pdf"

[MO87]

13 ساعات مضت, Moosak said:

MyMail.Attachments.Add "C:\R_Emp.pdf"   ' المرفقات

استاذي الفاضل @Moosak يوجد للمرفقات يوجد به الرابط يسمي Imagepath

ويوجد تقرير اسمة ادخال البيانات

هذا الشكل الذي اريدة عن الضغط علي زر ارسال وانا من سيقوم بالتعبئة والارسال

واسف علي الازعاج

ارسال ايميل مع المرفق.rar

تم تعديل أغسطس 25, 2022 بواسطه MO87

[Moosak]

تفضل أخي هذا التعديل 🙂  :

مع ملاحظة أنني قمت بتحويل حقل الصورة إلى حقل نصي بدل (إرتباط) وذلك لتجنب بعض الإشكالات في الكود .

لإضافة مرفقات إضافية تكرر سطر إضافة مرفق كل مرة كما هو موضح بالكود .. لأن في الصورة لديك مرفقان بينما في برنامجك مرفق واحد ..

فإذا كنت ستكتفي بمرفق واحد ألغِ سطر المرفق الإضافي ..

Dim MyOutlook As Object
Set MyOutlook = CreateObject("Outlook.Application")

Dim MyMail As Object
Set MyMail = MyOutlook.CreateItem(olMailItem)

MyMail.Attachments.Add Me.Imagepath.Value    ' المرفقات
MyMail.Attachments.Add "C:\file2.PDF"    ' إضافة مرفق ثانٍ

MyMail.Display ' لتشغيل برنامج الأوتلوك والتركيز عليه


Set MyOutlook = Nothing
Set MyMail = Nothing

 

ارسال ايميل مع المرفق (1).rar

تم تعديل أغسطس 25, 2022 بواسطه Moosak

[MO87]

في 25‏/8‏/2022 at 09:36, Moosak said:

تفضل أخي هذا التعديل 🙂  :

مع ملاحظة أنني قمت بتحويل حقل الصورة إلى حقل نصي بدل (إرتباط) وذلك لتجنب بعض الإشكالات في الكود .

لإضافة مرفقات إضافية تكرر سطر إضافة مرفق كل مرة كما هو موضح بالكود .. لأن في الصورة لديك مرفقان بينما في برنامجك مرفق واحد ..

فإذا كنت ستكتفي بمرفق واحد ألغِ سطر المرفق الإضافي ..

Dim MyOutlook As Object
Set MyOutlook = CreateObject("Outlook.Application")

Dim MyMail As Object
Set MyMail = MyOutlook.CreateItem(olMailItem)

MyMail.Attachments.Add Me.Imagepath.Value    ' المرفقات
MyMail.Attachments.Add "C:\file2.PDF"    ' إضافة مرفق ثانٍ

MyMail.Display ' لتشغيل برنامج الأوتلوك والتركيز عليه


Set MyOutlook = Nothing
Set MyMail = Nothing

 

ارسال ايميل مع المرفق (1).rar 38.38 kB · 3 downloads

شكرآ اخي @Moosak وجزاكم الله خير الجزاء