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

[ابو تميم]

في المرفقات ملف اكسل يحتوي على كود يعمل على ارسال الورقة النشطة من ملف الاكسل عبر البريد الالكتروني الفعال على الجهاز Outlook

هل يمكن التعديل على الكود بحيث يعمل ما يلي:

1. إرسال الملف كاملا وليس الورقة النشطة فقط ( إرسال الملف بكامل الأكواد الموجودة فيه بدون تغيير )

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

3. إمكانية إضافة ( نسخة إلى .. ) بحيث يمكننا أن نرسل الملف إلى شخص ونسخة منه إلى شخص آخر أو أشخاص آخرين وليس بالضرورة عدد محدود من المستخدمين.

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

أضف إلى ذلك فإنه عند الضغط على زر إرسال الملف عبر الإيميل تظهر لدي الرسالة التالية ( مرفقات ) هل يمكن تعديل الكود لمنع ظهور هذه الرسالة

sendEmail.rar

تم تعديل أكتوبر 23, 2012 بواسطه ابو تميم

[توكل]

الأخ أبو تميم إليك هذا الكود

طبعاً يجب عليك وضعه في الـ personal folder

كما يمكنك تعديل الرسائل باللغة العربية إذا شئت

أرجو أن أكون قد أفتكم

Sub Mail_workbook_Outlook_1()

'Working in 2007-2010

'This example send the last saved version of the Activeworkbook

Dim OutApp As Object

Dim OutMail As Object

Dim Msg As String, URL As String

Set OutApp = CreateObject("Outlook.Application")

OutApp.Session.Logon

Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail

.To = "tawakool@itco.com"

.CC = "tawakool@itco.com"

.BCC = "tawakool@itco.com"

.Subject = "Daly Report"

.Body = "Dear All" & vbNewLine & vbNewLine & _

"hello" & vbNewLine & _

"please find attached excel file" & vbNewLine & _

"Thank you & Best regards " & vbNewLine & vbNewLine & _

"Copy MD" & vbNewLine & _

" Copy GM"

.Attachments.Add ActiveWorkbook.FullName

'You can add other files also like this

'.Attachments.Add ("C:\test.txt")

.Display 'or use .Send

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

End Sub

 

[ابو تميم]

أخي الكريم توكل

شكرا على هذا الكود ولكن هناك مشكلة

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

ولكن أنا لا أريد أن تظهر لدي صفحة الآوت لوك أصلا وإنما يتم إرسال الملف مباشرة كمرفق دون فتح الآوت لوك وفتح رسالة جديدة ويتم الارسال مباشرة من الاكسل كما في الكود الموجود حاليا في الملف الخاص بي في المشاركة الاصلية رقم 1

شكرا مرة أخرى

الكود الأصلي يقوم بإرسال الملف كمرفق مباشرة ولكن عيوبه هي ما ورد في المشاركة رقم 1 وأريد تطبيق المطلوب التالي من الكود

1. إرسال الملف كاملا وليس الورقة النشطة فقط ( إرسال الملف بكامل الأكواد الموجودة فيه بدون تغيير )

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

3. إمكانية إضافة ( نسخة إلى .. ) بحيث يمكننا أن نرسل الملف إلى شخص ونسخة منه إلى شخص آخر أو أشخاص آخرين وليس بالضرورة عدد محدود من المستخدمين.

4. منع ظهور رسالة ( السماح بإرسال الملف ) ورفض الارسال ) كما في الصورة المرفقة في المشاركة الأصلية

شكرا جزيلا

تم تعديل أكتوبر 24, 2012 بواسطه ابو تميم

[عبدالله باقشير]

السلام عليكم

هذا الكود ما نفعش معاك

Sub Mail_workbook_1()

'Working in 97-2007

    Dim wb As Workbook

    Set wb = ActiveWorkbook


    If Val(Application.Version) >= 12 Then

        If wb.FileFormat = 51 And wb.HasVBProject = True Then

            MsgBox "There is VBA code in this xlsx file, there will be no VBA code in the file you send." & vbNewLine & _

                   "Save the file first as xlsm and then try the macro again.", vbInformation

            Exit Sub

        End If

    End If


    On Error Resume Next

    wb.SendMail "", _

                "This is the Subject line"

    On Error GoTo 0

End Sub

وهو منقول

من ملف عندي خاص بارسال ايميل

فيه نفس الكود الذي تريد تعديله

المرفق 2003

SendMail(Attachment)Testers.rar

[ابو تميم]

أستاذنا الكبير عبد الله باقشير

جزاك الله خيرا وسلمت يداك

المطلب الأول انتهى وتمت العملية بنجاح ... جربتها وهي تعمل بشكل ممتاز

تبقت لدينا باقي المتطلبات

وأهم المتطلبات هي إلغاء رسالة المطالبة بإرسال الملف أو رفض الإرسال كما في الصورة في المشاركة رقم 1

[عبدالله باقشير]

الصورة تبين ان الرسالة من الاوت لوك

طيب انقر على تعليمات مثل ما هو موضح في الصورة

انا اصلا لا استخدم الاوت لوك

ولا ارسل رسائل بالاكواد

[ابو تميم]

شكرا جزاكم الله خيرا

[hal]

جزاكم الله خيراً

أبحث عن مثل هذا 

 

هل يمكن أن يكون فيه خلية

يُكتب بها الايميل

ويرسل له ؟

[hanjkordesa]

السادة الاساتذة

جزاكم الله خيرا

ارجوا تعديل الكود ليقوم بارسال ملف الاكسل بعد تحولة الي صيغة البي دي اف

[رشادجباح]

تعديل كود هذا الملف حتى يدمج بيانات المصنفات بشكل عمودي

DataCollectorWithSheet.xlsm DataCollectorWithSheet.xlsm