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

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

تتحدث هذه المقالة عن إرسال بريد إلكتروني عبر Outlook عند حفظ مصنف معين في Excel. يرجى القيام بما يظهر في البرنامج التعليمي.

أرسل بريدًا إلكترونيًا عبر Outlook عندما يتم حفظ المصنف برمز VBA


أرسل بريدًا إلكترونيًا عبر Outlook عندما يتم حفظ المصنف برمز VBA

لإرسال بريد إلكتروني عبر Outlook عند حفظ المصنف في Excel ، يرجى القيام بما يلي.

1. يرجى حفظ المصنف كمصنف Excel Macro-Enabled في البداية. انقر قم بتقديم > حفظ باسم. في حفظ باسم في مربع الحوار ، حدد مجلدًا لحفظ المصنف ، وقم بتسميته في المربع اسم الملف ، وحدد مصنف Excel ممكن بماكرو من حفظ كنوع القائمة المنسدلة ، ثم انقر فوق حفظ زر. انظر لقطة الشاشة:

2. افتح مصنف Excel Macro-Enabled الذي قمت بحفظه الآن ، اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء النقر المزدوج ThisWorkbook في الشريط الأيسر ، ثم انسخ والصق رمز VBA أدناه في ملف ThisWorkbook نافذة التعليمات البرمجية. انظر لقطة الشاشة:

رمز فبا: أرسل بريدًا إلكترونيًا عند حفظ المصنف

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .CC = ""
        .Subject = "The workbook has been saved"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

ملاحظة: الرجاء استبدال عنوان البريد الإلكتروني مع عنوان البريد الإلكتروني للمستلم في السطر .To = "عنوان البريد الإلكتروني"و قم بتغيير حقول Cc والموضوع بالإضافة إلى حقول الجسم في رمز VBA حسب حاجتك.

3. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

من الآن فصاعدًا ، عند تحديث المصنف وحفظه ، سيتم إنشاء بريد إلكتروني تلقائيًا مع إرفاق المصنف المحدث. الرجاء النقر فوق إرسال زر لإرسال البريد الإلكتروني. انظر لقطة الشاشة:

ملاحظة: يعمل رمز VBA فقط عند استخدام Outlook كبرنامج بريد إلكتروني.


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


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (17)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية أتمتة إعلام البريد الإلكتروني في VBA استنادًا إلى نطاق التاريخ ، دون الحاجة إلى رؤية النافذة المنبثقة للحصول على إذن الأمان للسماح لـ VBA بإرسال البريد الإلكتروني.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جراسياس. Consulta:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أعزائي جميعًا ، أود أن أسأل عن كيفية إرفاق ارتباط وظيفي بمجلد معين على الخادم ، إذا قمت بلصق الرابط ، فسيظهر في المصنف تمامًا مثل النص العادي وبالتالي لا يعمل في البريد الإلكتروني المستلم ، كيف يمكنني تحويله إلى رابط ، حتى يتمكن المستلمون من النقر فوقه؟
أود استخدام هذه الطريقة بدلاً من إرسال ملف Excel مرفق.
شكرا للنصيحة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا روبرت،
معذرةً لا يمكنني المساعدة في ذلك ، مرحبًا بك لنشر أي سؤال حول Excel في منتدانا: https://www.extendoffice.com/forum.html. ستحصل على المزيد من دعم Excel من المحترفين أو محبي Excel الآخرين.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد وضعت هذا في نص البريد الإلكتروني وقد نجح معي ...
"الملف: /// Z: \ dir1 \ dir2 \ dir3 \ Test1.xlsm"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ، مقال جميل! شيء واحد كنت تحاول تحقيقه مع هذا هو إرفاق الحالة الحالية للمصنف بالبريد الإلكتروني.

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

أي أفكار حول كيفية تنفيذ هذا باستخدام الماكرو؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريس،
تم تحديث الكود مع حل المشكلة ، يرجى المحاولة. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريس،

لقد صادفت نفس المشكلة.
تستخدم الرموز حاليًا في وحدة "الحفظ المسبق".
مما يعني أن البريد الإلكتروني سيرسل جدول البيانات الذي تم حفظه من قبل.

هناك وحدة أخرى "حفظ بعد".
لقد قمت بتطبيق الكود في هذه الوحدة وعملت مثل السحر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف سيتم التعامل مع هذا لمستند Office 365. يتم حفظه تلقائيًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لتشفير البريد الإلكتروني التلقائي؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا مايك،
آسف لا يمكن أن تساعد في حل هذه المشكلة. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! شكرًا جزيلاً على هذا المبدأ التوجيهي :-) أود أن أفعل شيئًا أكثر في هذا الرمز - أرسل بريدًا إلكترونيًا بناءً على البلدان. هذا يعني أنه يجب علي إنشاء أوامر باستخدام if وتحديد. حق؟ لقد قمت بالفعل بحذف المرفق من البريد الإلكتروني. أود إضافة الارتباط بالمسار إلى المجلد بدلاً من ذلك. ولكن عند تشغيل الماكرو ، يكون الأمر غير صالح :-(
أنا أقدر كل مساعدة في كيفية إضافتها هناك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا - كيف يمكنني تضمين بيانات الخلية في حقل البريد الإلكتروني "cc"؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا برنت ،
لنفترض أنك تريد تضمين القيمة الموجودة في الخلية a7 في حقل البريد الإلكتروني "cc" ، يرجى تجربة VBA أدناه.

مصنف فرعي خاص_AfterSave (نجاح ByVal كـ منطقي)

'تم التحديث بواسطة Extendoffice 20200628

خافت xOutApp ككائن

خافت xMailItem ككائن

خافت xName كسلسلة

على خطأ استئناف التالي

تعيين xOutApp = CreateObject ("Outlook.Application")

قم بتعيين xMailItem = xOutApp.CreateItem (0)

xName = ActiveWorkbook.FullName

مع xMailItem

.To = "عنوان البريد الإلكتروني"

.CC = Range ("a7"). القيمة


.Subject = "تم حفظ المصنف"

.Body = "مرحبًا ،" & Chr (13) & Chr (13) & "تم تحديث الملف الآن."

المرفقات. إضافة xName

.عرض

'.يرسل

انتهت ب

تعيين xMailItem = لا شيء

تعيين xOutApp = لا شيء

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي الجميع ، هل يمكن لأحد أن يساعدني ، أنا مبتدئ في ترميز VBA ، لقد أجريت بعض التعديلات ، ولكن كيف يمكنني إرسال بريد إلكتروني إذا تم حفظ المصنف ، وإذا كان اسم المستخدم مختلفًا ، مثل إذا كان اسم المستخدم لـ المحطة هي glade2 ثم إرسال بريد إلكتروني إذا تم حفظ المصنف ، وإلا لا ترسل.

شكرا جزيلا لدعمكم
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا فلورين ،
لم أفهم وجهة نظرك. ماذا يمثل اسم المستخدم الخاص بك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا كريستال ، شكرًا لك على ردك ، المستخدم هو بيئة مفيدة ، وقد فعلت ذلك ، لقد استخدمت وظيفة if وخرج الفرعي.
شكرا جزيلا.
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

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