Note: The other languages of the website are Google-translated. Back to English

كيفية إرسال ورقة العمل فقط من خلال Outlook من Excel؟

إذا كنت تريد إرسال ورقة عمل واحدة بالبريد الإلكتروني من مصنف في Excel عبر Outlook ، فيمكنك إرسال ورقة العمل كمرفق أو كمحتوى أساسي أو كملف PDF. ولكن هل هناك طرق أسرع للتعامل مع هذه المشكلة في Excel؟

أرسل ورقة عمل واحدة كجسم من Excel باستخدام الأمر Send to Mail Recipient

أرسل ورقة عمل واحدة كمرفق من Excel برمز VBA

أرسل ورقة عمل واحدة كملف PDF من Excel مع كود VBA


السهم الأزرق الحق فقاعة أرسل ورقة عمل واحدة كجسم من Excel باستخدام الأمر Send to Mail Recipient

يدعمنا Excel إرسال ورقة العمل النشطة بالبريد الإلكتروني كمحتوى أساسي باستخدام الأمر إرسال إلى مستلم البريد. يمكنك القيام بما يلي:

إذا كنت تستخدم Excel 2007 أو 2010 أو 2013 ، فستحتاج إلى إضافة هذا أرسل إلى مستلم البريد الأمر إلى شريط أدوات الوصول السريع لأول مرة.

1. انقر فوق أيقونة تخصيص شريط أدوات الوصول السريع، و اختار المزيد من الأوامر، انظر لقطة الشاشة:

وثيقة البريد الإلكتروني ورقة 1

2. وفي خيارات إكسيل مربع الحوار، اختر الأوامر ليست في الشريط في ال اختر أوامر من القائمة المنسدلة ، ثم حدد ملف أرسل إلى مستلم البريد الخيار، وانقر أضف >> زر لإضافة هذا الأمر ، في آخر نقرة OK لحفظ هذا الإعداد. انظر لقطة الشاشة:

وثيقة البريد الإلكتروني ورقة 2

3.أرسل إلى مستلم البريد تم إدخال الأمر في ملف شريط أدوات الوصول السريع، انظر لقطة الشاشة:

وثيقة البريد الإلكتروني ورقة 3

4. ثم انقر فوق هذا أرسل إلى مستلم البريد رمز الزر ، وينبثق مربع مطالبة في ملف البريد الإلكتروني مربع موجه ، تحقق أرسل الورقة الحالية كنص الرسالة، ثم انقر OK. انظر لقطة الشاشة:

وثيقة البريد الإلكتروني ورقة 4

5. ويتم عرض مربع تحرير البريد الإلكتروني فوق بيانات ورقة العمل ، يمكنك إدخال المستلمين والموضوع والمقدمة في مربع النص المقابل. انظر لقطة الشاشة:

وثيقة البريد الإلكتروني ورقة 5

6. ثم اضغط أرسل هذه هير لإرسال ورقة العمل النشطة هذه كنص رسالة إلى شخص معين.


السهم الأزرق الحق فقاعة أرسل ورقة عمل واحدة كمرفق من Excel برمز VBA

إذا كنت ترغب في إرسال ورقة العمل النشطة بالبريد الإلكتروني كمرفق ، فيمكن لكود VBA التالي تقديم خدمة لك.

1. قم بتنشيط ورقة العمل التي تريد إرسالها.

2. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

3. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: أرسل ورقة العمل الحالية كمرفق من إكسيل

Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add Wb2.FullName
    .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

ملاحظة: في الكود أعلاه ، يمكنك تغيير المعلومات التالية حسب حاجتك.

  • . إلى = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .Subject = "ميزات kte"
  • .Body = "الرجاء مراجعة هذا المستند وقراءته."

4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسوف يظهر مربع موجه ، انقر فوق السماح عند انتهاء شريط التقدم ، ثم يتم إرسال ورقة العمل الحالية إلى المستلم كمرفق.

وثيقة البريد الإلكتروني ورقة 6


السهم الأزرق الحق فقاعة أرسل ورقة عمل واحدة كملف PDF من Excel مع كود VBA

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

1. قم بتنشيط ورقة العمل التي تريد إرسالها.

2. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

3. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: أرسل ورقة العمل الحالية كملف PDF من إكسيل

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add FileName
    .Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

ملاحظة: في الكود أعلاه ، يمكنك تغيير المعلومات التالية حسب حاجتك.

  • . إلى = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .Subject = "ميزات kte"
  • .Body = "الرجاء مراجعة هذا المستند وقراءته."

4. ثم اضغط F5 مفتاح ، وسوف يظهر مربع موجه ، انقر فوق السماح بعد الانتهاء من شريط التقدم ، يتم إرسال ورقة العمل النشطة إلى الشخص المحدد كملف PDF.

وثيقة البريد الإلكتروني ورقة 6

الملاحظات:

1. لا تتوفر هذه الطرق إلا عند استخدام Outlook كبرنامج البريد الخاص بك.

2. بعد إرسال ورقة العمل الحالية ، يمكنك الانتقال إلى Outlook الخاص بك للتأكد من إرسال البريد الإلكتروني بنجاح.


أنشئ قائمة بريدية ثم أرسل رسائل بريد إلكتروني

كوتولس ل إكسيل's إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني يمكن للأدوات المساعدة إنشاء قائمة بريدية بسرعة في ورقة عمل ، ثم إرسال نفس الموضوع ونفس المحتويات ونفس المرفقات إلى عناوين بريد إلكتروني متعددة.
القائمة البريدية للمستندات 1
السهم لأسفل
القائمة البريدية للمستندات 2

مقالات ذات صلة:

كيفية إرسال المصنف الحالي من خلال Outlook من Excel؟

كيفية إرسال / إرسال مجموعة من الخلايا عبر البريد الإلكتروني من خلال Outlook من Excel؟


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (33)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف تضيف عدة مستلمين في المثال الثاني باستخدام كود فبا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل هذا ، ولكن كيف يمكننا إضافة المرسل تلقائيًا في نسخة إلى المرسل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أستخدم كود VBA للإرسال كملف pdf ، فإن البريد الإلكتروني يرسل بشكل جيد ، ولكن لا يوجد مرفق. ما الخطأ الذي افعله؟ شكرا تشاندا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل حصلت على إجابة لهذا؟ أنا أيضا أواجه نفس الصعوبة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أريد إرسال الخلايا المحددة فقط من خلال زر أمر في التفوق إلى الإيصالات من خلال Outlook.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد أرفقت إرسال إلى مستلم البريد ، ولكن لم يتم تنشيطه عندما أنقر لإرسال ملف Excel. ما الخطأ الذي أرتكبه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحاول إرسال نطاقات أسماء متعددة داخل مصنفات معينة كملفات PDF عبر Outlook. أتمتة فتح وإغلاق العديد من المصنفات. لست متأكدًا من كيفية تعديل الكود المذكور أدناه والذي يعمل بشكل رائع لإرسال ورقة عمل مع جميع الإصدارات الجديدة على الكمبيوتر المحمول. لقد قمت بإرسال تقارير متعددة كل ليلة من أعلى مكتبي Windows 7 Excel و Outlook 10 Adobe Acrobat Pro 10 ومحاولة إعادة التكوين للقيام بالمثل على الكمبيوتر المحمول مع إصدارات تمت ترقيتها من Windows 8.1 Office 15 و adobe acrobat Xl. الرموز الموصى بها لإرسال أوراق العمل الفرعية SendWorkSheetToPDF () 'Update 20131209 Dim Wb كـ Workbook Dim FileName كسلسلة باهتة OutlookApp ككائن خافت OutlookMail ككائن عند الخطأ ، استئناف المجموعة التالية Wb = Application.ActiveWorkbook FileName = Wb.FullName xIndex = VBA.InStrRev (( FileName، ".") إذا xIndex> 1 ثم FileName = VBA.Left (FileName، xIndex - 1) FileName = FileName & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type: = xlTypePDF، FileName: = تعيين اسم الملف OutlookApp = CreateObject ("Outlook.Application") تعيين OutlookMail = OutlookApp.CreateItem (0) باستخدام OutlookMail .To = "jbristow1@gmail.com" .CC = "" .BCC = "" .Subject = "رمز Outlook" .Body = "يرجى مراجعة هذا المستند وقراءته." .Attachments.Add FileName. Send End With Kill FileName Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جيم ، يجب أن تضيف ؛ خلف عنوان البريد الإلكتروني وإضافة آخر ، انظر المثال أدناه:. إلى = "jbristow1@gmail.com ؛ someone@gmail.com ؛ onemoreperson@gmail.com"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أنا أستخدم هذا الرمز ولكن لدي أي مشكلة عند الإرسال. إنها ليست مشكلة كبيرة ولكني لا أحبها :-) أقوم أولاً بحفظ الملف تلقائيًا إلى موقع معين عبر VBA قبل إرسال الملف بالبريد. الملف له اسم ينتهي بالفعل بـ .xlsx. عند إرسال الملف بالبريد الإلكتروني ، يقرأ المرفق .xlsx.xlsx بحيث يضيف .xslx إلى الملف. هل يعرف أحد ما إذا كان بإمكاني تجاهل الحفظ قبل إرساله كمرفق؟ لقد حفظته بالفعل قبل الإرسال ... شكرًا ،
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أستخدم المثال الثاني أعلاه لإرسال ورقة واحدة من المصنف ، لكنها ترسل المصنف بأكمله. لقد قمت بنسخ المثال أعلاه وكان الجزء الوحيد الذي قمت بتغييره هو عنوان البريد الإلكتروني. انا لست متأكد ما هو الخطأ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أستخدم الكود أعلاه لإرسال ورقة واحدة كمرفق Excel ، والمشكلة التي أواجهها هي أنها ترسل المصنف بأكمله ، وليس مجرد ورقة عمل واحدة. لقد غيرت فقط "إلى" و "الموضوع" و "النص الأساسي" للبريد الإلكتروني. لست متأكدا ما الخطأ الذي حدث. ساعدنى من فضلك! :حزين:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] أنا أستخدم الكود أعلاه لإرسال ورقة واحدة كمرفق إكسل ، والمشكلة التي أواجهها هي أنها ترسل المصنف بأكمله ، وليس مجرد ورقة عمل واحدة. لقد غيرت فقط "إلى" و "الموضوع" و "النص الأساسي" للبريد الإلكتروني. لست متأكدا ما الخطأ الذي حدث. ساعدنى من فضلك! :حزين:بواسطة جانيت[/ quote] مرحبًا ، من فضلك قل لي معلومات إصدار Office ونظام الكمبيوتر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أنا أستخدم Office 2010 و Windows 7. شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] مرحبًا ، أنا أستخدم Office 2010 و Windows 7. شكرًا!بواسطة جانيت[/ quote] مرحبًا ، VBA هذا مناسب مع Office 2010 في Window 7. يرجى التأكد من فتح Outlook الخاص بك قبل تشغيل VBA.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحاول استخدام هذا الرمز لإرسال جدول بيانات واحد باستخدام ملف قالب * .ost تم إنشاؤه شخصيًا والموجود على محرك الأقراص c: \. لا يمكن أن يبدو أنه اكتشف كيفية تكييف الكود أعلاه لذلك. أي مؤشرات؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أرسل ورقة عمل واحدة كمرفق من Excel برمز VBA: كود VBA الممتاز. يعمل بشكل رائع !!! شكرًا لك!!! :-) بدلاً من إدخال إلى: & CC: رسائل البريد الإلكتروني يدويًا ، أريد سحب عناوين البريد الإلكتروني من ورقة عمل منفصلة تسمى "قائمة البريد الإلكتروني". يحتوي (a1) على عنوان البريد الإلكتروني "إلى" و (b1) له عنوان البريد الإلكتروني "CC". أعلم أن حل هذا سهل نسبيًا ولكن لا يمكنني معرفة الخطأ الذي أفعله. شكرا لكم جميعا مقدما. Wb2.SaveAs FilePath & FileName & xFile، FileFormat: = xFormat With OutlookMail .To = "skyyang @extendoffice.com ".CC =" ".BCC =" ".Subject =" kte features ". Body =" الرجاء مراجعة هذا المستند وقراءته. ".Attachments.Add Wb2.FullName. أرسل النهاية بـ Wb2. أغلق Kill FilePath & FileName & xFile Set OutlookMail = لم يتم تعيين أي شيء OutlookApp = لا يوجد تطبيق .creenUpdating = True End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أنا أستخدم عملية أتمتة في شركتي ، أحتاج إلى ترقية كل جهاز الكمبيوتر الخاص بي باستخدام برنامج Excel and outlook 2010 ، لدي رمز في نظام التشغيل windows xp الذي أرسل به ورقة باستخدام outlook express ، حيث يعمل الكود بشكل جيد في xp ولكني الآن بحاجة إلى ترقيته مع windows 7. لقد حاولت كثيرًا ولكن لا يمكنني إرسال الورقة ، لذا يرجى المساعدة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، الماكرو يعمل جيدًا بالنسبة لي. لم أستخدم وحدات الماكرو مطلقًا من قبل ، لذا هل يمكن لأي شخص أن يضعني في الاتجاه الصحيح - أحاول إرسال هذا إلى أكثر من شخص ولكني لست متأكدًا من كيفية وضع عناوين بريد إلكتروني إضافية في قسم "إلى" من الماكرو. شكرا لك مقدما
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أنا فرنسي ، آسف لغتي الإنجليزية. كيف يمكن وضع خلية قيمة الورقة الخاصة بي في .oo / .CC ... أعتقد أنها مثل: Sub SendWorkSheet () 'Update 20131209 Dim xFile As String Dim xFormat As Long Wb as Workbook Dim Wb2 As Workbook مسار ملف خافت كسلسلة خافتة اسم ملف كسلسلة باهتة OutlookApp ككائن خافت OutlookMail ككائن عند الخطأ ، استئناف التطبيق التالي. ".xlsx" xFormat = xlOpenXMLWorkbook Case xlOpenXMLWorkbookMacroEnabled: If Wb2.HasVBProject ثم xFile = ".xlsm" xFormat = xlOpenXMLWorkbookMacroEnabled Else xFile = ".xlsx" xFormat : xFile = ".xlsb" xFormat = xlExcel2 End حدد FilePath = Environ $ ("temp") & "\" FileName = Wb.Name & Format (الآن ، "dd-mmm-yy h-mm-ss") تعيين OutlookApp = CreateObject ("Outlook.Application") قم بتعيين OutlookMail = OutlookApp.Cre ateItem (8) Wb8.SaveAs FilePath & FileName & xFile، FileFormat: = xFormat With OutlookMail .To = "skyyang @extendoffice.com "& RANGE (" AVIVA! b12 ") .CC =" "& RANGE (" AVIVA! c12 ") .BCC =" ".Subject =" NOUVEAU DOSSIER ".body =" يرجى مراجعة هذا المستند وقراءته. " .Attachments.Add Wb2.FullName .DISPLAY. أرسل النهاية بـ Wb2. أغلق Kill FilePath & FileName & xFile Set OutlookMail = Nothing Set
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكننا السماح للمستخدم بإضافة معرف البريد الإلكتروني بالرمز المذكور أعلاه ... إنه يعمل بشكل جيد حقًا إذا ذكرنا معرف البريد الإلكتروني ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سيدي أنا قادر على إرسال ورقة العمل المحددة كمرفق من خلال تضمين الموضوع والنص. لكن اسم الملف يظهر كـ book1-02-apr-2016 .... بدلاً من ذلك أريد إعطاء اسم الملف في الكود نفسه (نفس الاسم للمتابعة في كل مرة أقوم بإرسالها)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الرجاء مساعدتي على وجه السرعة. هذه هي المرة الأولى التي أستخدم فيها ورقة العمل الحالية كملف PDF لكن الكود أدناه لم يعمل على الإطلاق ولم يظهر الحوار للسماح به عند الضغط على ctrl + G. أريد أيضًا أن أعرف ما يجب تغييره للإشارة إلى خلية تحتوي على عنوان البريد الإلكتروني بدلاً من "إلى عنوان بريد إلكتروني محدد. خطأ استئناف المجموعة التالية Wb = Application.ActiveWorkbook FileName = Wb.FullName xIndex = VBA.InStrRev (FileName، ".") إذا كان xIndex> 20131209 ثم FileName = VBA.Left (FileName، xIndex - 1) FileName = FileName & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type: = xlTypePDF، FileName: = FileName Set OutlookApp = CreateObject ("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem (1) مع OutlookMail .To = "skyyang @extendoffice.com ".CC =" ".BCC =" ".Subject =" ميزات kte ". Body =" يرجى التحقق من هذا المستند وقراءته. ".Attachments.Add FileName. إرسال النهاية مع Kill FileName Set OutlookMail = لا شيء يتم تعيين OutlookApp = لا شيء ينتهي Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل هذا الرمز جيدًا ، ومع ذلك ، هل يعرف أي شخص طريقة لأتمتة حقل كتنبيه لإرسال البريد الإلكتروني تلقائيًا استنادًا إلى عمود التاريخ؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! هل من الممكن استخدام هذا الرمز ، ولكن بدلاً من الإرسال الفوري يفتح البريد؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنك تجربة هذا الرمز:
Sub SendWorkSheet ()
تحديث 20180109
خافت x ملف كسلسلة
Dim xFormat As Long
Dim Wb كمصنف
خافت Wb2 كمصنف
خافت مسار ملف كسلسلة
خافت اسم الملف كسلسلة
تعتيم OutlookApp ككائن
تعتيم OutlookMail ككائن
على خطأ استئناف التالي
Application.ScreenUpdating = خطأ
تعيين Wb = Application.ActiveWorkbook
ActiveSheet.Copy
قم بتعيين Wb2 = Application.ActiveWorkbook
حدد حالة Wb.FileFormat
حالة xlOpenXML
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
حالة xlOpenXMLWorkbookMacroEnabled:
إذا كان Wb2.HasVBProject ثم
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
آخر
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
إنهاء حالة
حالة Excel8:
xFile = ".xls"
xFormat = Excel8
الحالة xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
إنهاء اختر
FilePath = Environ $ ("temp") & "\"
FileName = Wb.Name & Format (الآن ، "dd-mmm-yy h-mm-ss")
تعيين OutlookApp = CreateObject ("Outlook.Application")
تعيين OutlookMail = OutlookApp.CreateItem (0)
Wb2.SaveAs FilePath & FileName & xFile، FileFormat: = xFormat
مع OutlookMail
. إلى = "skyyang @extendoffice.com "
.CC = ""
.BCC = ""
.Subject = "ميزات kte"
.Body = "الرجاء مراجعة هذا المستند وقراءته."
المرفقات أضف Wb2.FullName
.عرض
' .يرسل
انتهت ب
Wb2. إغلاق
اقتل مسار الملف & اسم الملف & xFile
تعيين OutlookMail = لا شيء
تعيين OutlookApp = لا شيء
Application.ScreenUpdating = ترو
نهاية الفرعية

يرجى إعلامي إذا كان يعمل من أجلك ، شكرًا لك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
على أي حال يمكنني بسهولة إرسال ورقة عمل Excel من خلال نظري بدون كل هذا ؟؟ يمكنني إرسال سياق ورقة العمل ، ولكن لا يمكنني إرسال المصنف كمرفق. على كمبيوتر عملي يمكنني الإرسال من برنامج Word و Excel ، ولكني أواجه مشكلة في المنزل.
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL