انتقل إلى المحتوى الرئيسي
Note: The other languages of the website are Google-translated. Back to English

كيفية تطبيق زر لإرسال بريد إلكتروني مرفق به ملف Word الحالي؟ 

إذا كنت بحاجة إلى إرسال رسالة بريد إلكتروني من مستند Word عبر Outlook ، وإرفاق ملف Word الحالي أيضًا ، يمكنك إنشاء زر أمر ، ثم إرسال الرسالة بالنقر فوق هذا الزر دون فتح Outlook. في هذه المقالة سوف أعرض عليكم كيفية التعامل معها بسرعة وسهولة.

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


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

يرجى اتباع الخطوات التالية لحل هذه المهمة في ملف Word:

1. أولاً ، يجب إنشاء زر أمر ، الرجاء النقر فوق المطور > أدوات قديمة > زر الأمر (عنصر تحكم ActiveX)، انظر لقطة الشاشة:

زر doc لإرسال بريد إلكتروني 1

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

زر doc لإرسال بريد إلكتروني 2

3. ثم أغلق ملف عقارات جزء الآن ، انقر بزر الماوس الأيمن فوق الزر واختر عرض الرمز، انظر لقطة الشاشة:

زر doc لإرسال بريد إلكتروني 3

4. وبعد ذلك ، في الشاشة المعروضة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق الكود أدناه بين النصوص الأصلية ، انظر لقطة الشاشة:

Dim xOutlookObj As Object
    Dim xEmail As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmail = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmail
        .Subject = "Fax-data"
        .Body = "This is a test email."
        .To = "yy@addin99.com"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True

زر doc لإرسال بريد إلكتروني 4

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

5. ثم ، احفظ وأغلق هذا الرمز ، انقر فوق وضع التصميم لإيقاف وضع التصميم. الآن ، عند النقر فوق زر الأمر الذي قمت بإنشائه ، سيتم إنشاء بريد إلكتروني باستخدام مستند Word الحالي كمرفق ، انظر لقطة الشاشة:

زر doc لإرسال بريد إلكتروني 5

6. أخيرًا ، ما عليك سوى النقر فوق إرسال زر لإرسال هذه الرسالة.


أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لبرنامج Word ، وفر وقتك بنسبة 50٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (29)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحاول إرسال البريد الإلكتروني بحيث يكون سطر الموضوع هو محتويات أحد الحقول الخاصة بي. هل هذا ممكن؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hola، me podrían apoyar para que el archivo se convierta en PDF y se addunte all correo en ves del word por favor.
شكرا جزيلا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا فريق Extend Office ،

أعتقد أن "xEmile" خطأ إملائي. يجب أن يكون "xEmail".

أثناء تشغيل الكود وعدم وجود مشكلة ، فإن العبارة التالية لن تفعل شيئًا:

تعيين xEmail = لا شيء
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا , ابهي
شكرا لتعليقك ، كما قلت ، "xEmile" بها خطأ إملائي ، يجب أن تكون "xEmail". لقد قمت بتحديث الرمز.
شكرا مرة اخرى!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكن القيام بذلك بحيث تقوم بإرسال صفحة واحدة فقط من المستند؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا دون ،
للتعامل مع مهمتك ، يرجى تطبيق الكود أدناه , في الكود ، يجب عليك تغيير صفحة البداية وصفحة النهاية إلى صفحتك الخاصة:

أمر فرعي خاص

قم بتعتيم xCurPage ابدأ بنفس الطول ، xCurPageEnd بنفس الطول ، xCurPageRange كنطاق

Dim xCurPage كعدد صحيح ، xPages كعدد صحيح

تعتيم xOutlookObj ككائن

خافت xEmail ككائن

Dim xDoc كمستند ، xNewDoc كمستند

خافت xFilePath كسلسلة

خافت xOldStart بالطول xOldEnd As Long

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

Application.ScreenUpdating = خطأ

قم بتعيين xOutlookObj = CreateObject ("Outlook.Application")

قم بتعيين xEmail = xOutlookObj.CreateItem (olMailItem)

xFilePath = CreateObject ("WScript.Shell"). SpecialFolders (16)

قم بتعيين xDoc = ActiveDocument

xOldStart = xDoc.Application.Selection.Start

xOldEnd = xDoc.Application.Selection.End

xDoc.Save

xFilePath = xFilePath + "\ ملف مرفق" + VBA.Mid (xDoc.FullName، VBA.InStrRev (xDoc.FullName، ".")) 'الملف المرفق هو اسم ملف المرفق ، قم بالتغيير حسب حاجتك

xCurPageStart = 2 'صفحة البداية

xCurPageEnd = 2 'صفحة النهاية

xPages = Selection.Information (wdNumberOfPagesInDocument)

xCurPageStart = Selection.GoTo (what: = wdGoToPage ، الذي: = wdGoToNext ، الاسم: = xCurPageStart). ابدأ

إذا كان xCurPage = xPages ثم

xCurPageEnd = ActiveDocument.Content.End

آخر

xCurPageEnd = Selection.GoTo (what: = wdGoToPage ، والذي: = wdGoToNext ، الاسم: = xCurPageEnd + 1). ابدأ

إنهاء حالة

قم بتعيين xCurPageRange = ActiveDocument.Range (xCurPageStart ، xCurPageEnd)

xCurPageRange. حدد

xCurPageRange.Copy

قم بتعيين xNewDoc = Application.Documents.Add (Visible: = False)

xNewDoc.Activate

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 FileName: = xFilePath

xNewDoc.Close

xDoc.Range (xOldStart ، xOldEnd)

مع xEmail

.Subject = "بيانات الفاكس"

. Body = "هذا بريد إلكتروني تجريبي."

. إلى = "yy@addin99.com"

.Importance = olImportanceNormal

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

.عرض

انتهت ب

قتل xFilePath

قم بتعيين xDoc = لا شيء

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

قم بتعيين xOutlookObj = لا شيء

Application.ScreenUpdating = ترو

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بعمل نموذج قابل للتعبئة في MS word. لقد استخدمت أدوات قديمة للحساب وما إلى ذلك. أضفت أيضًا زر إرسال يعمل على إرسال النموذج إلى البريد الإلكتروني. المشكلة هي أنه عند إعادة فتح هذا المستند بعد الحفظ ، فإنه لا يعمل. لقد حاولت حتى حفظه كمستند ممكّن للماكرو ولكن بدون فائدة. يمكنك الرجاء المساعدة ؟
شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد عملت في البداية ، ثم لسبب ما الآن ، أعطتني خطأ 429 حول عدم تمكن مكون activeX من إنشاء كائن. أنا حرفيا فقط نسخ ولصق. لقد نجح هذا من قبل ولكني قمت بتغيير حجم الخط ، وجعل الزر أكبر ، وإعادة تسمية التسمية التوضيحية. لا أعتقد أنني غيرت عن طريق الخطأ بعض الإعدادات الأخرى؟ أي فكرة عما يمكن أن يكون؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! أرغب في جعل زر الأمر يرسل بريدًا إلكترونيًا يحتوي على مستند Word باعتباره نص البريد الإلكتروني (مستند كلامي عبارة عن نموذج). هل هناك طريقة للقيام بذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أرغب في إرسال المستند الخاص بي كمستند PDF بدلاً من مستند Word.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
على سبيل المثال ، استخدام نص من مربع نص / حقل نص في مستند Word ، وإدراجه كنص في سطر الموضوع في بريدك الإلكتروني؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم ، هذا أيضًا ما أسعى بعده ، هل يمكن لأي شخص المساعدة في هذا الطلب؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يعمل هذا أيضًا مع Lotus Notes؟
ما الذي يجب علي تغييره في "xOutlookObj"؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بتوسيع المكتب ،
هل يمكننا تعيين بريد إلكتروني مختلف غير مرتبط بـ Outlook؟ مثل البريد الإلكتروني المباشر لحساب GoDaddy؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحاول العثور على نفس المعلومات. أنا أستخدم gmail وأحتاج إلى إنشاء نموذج لإرساله إلى عناوين بريد إلكتروني مختلفة يمكنها إرسالها تلقائيًا إلى حساب gmail الخاص بي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت بإنشاء المستند ولكن مشكلتي الآن هي أنه إذا قمت بإرسال هذا النموذج لإكمال 4 أشخاص ، فعند فتحه من مرفق البريد الإلكتروني ، يتم فتحه في وضع القراءة فقط وعندما ينقرون على إرسال ، يطلب منهم الحفظ كما كان من قبل سيسمح للكود بفتح بريد إلكتروني موجه إلي. هل هناك طريقة للتغلب على هذا بخلاف منحهم موقع الملف؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك إضافة مخفية إلى هذا الرمز؟ لقد حاولت إضافة نسخة مخفية وتلقيت خطأ تجميع للتعبير المتوقع.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا هيذر ،

يمكنك إضافة مخفية إلى هذا الرمز. على سبيل المثال ، يمكنك إضافة .Bcc = "zmt@addin99.com" أسفل. إلى = "yy@addin99.com". لذلك يصبح الرمز:

تعتيم xOutlookObj ككائن
خافت xEmail ككائن
Dim xDoc كمستند
Application.ScreenUpdating = خطأ
قم بتعيين xOutlookObj = CreateObject ("Outlook.Application")
قم بتعيين xEmail = xOutlookObj.CreateItem (olMailItem)
قم بتعيين xDoc = ActiveDocument
xDoc.Save
مع xEmail
.Subject = "بيانات الفاكس"
. Body = "هذا بريد إلكتروني تجريبي."
. إلى = "yy@addin99.com"
.Bcc = "zmt@addin99.com"
.Importance = olImportanceNormal
المرفقات.إضافة xDoc.FullName
.عرض
انتهت ب
قم بتعيين xDoc = لا شيء
تعيين xEmail = لا شيء
قم بتعيين xOutlookObj = لا شيء
Application.ScreenUpdating = ترو

يرجى الاطلاع على الصورة المرفقة. طاب يومك.
مع خالص الشكر والتقدير،
مانديhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا الناس ،

أريد تطبيق زر حيث أنقر وأرسل المستند كبريد إلكتروني ، وليس كمرفق ، إلى عنوان بريد إلكتروني واحد. بحيث يكون المستند هو نص البريد الإلكتروني. تمامًا مثل تأثير الزر "إرسال إلى المستلم" على الشريط.

هل يمكن لأي شخص أن يعطيني الكود الصحيح لذلك؟

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

شكرا لك على مساعدتك!

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

شكرا لك على مساعدتك!

سأحاول مع اقتراحك. هل يمكن أن تعطيني رمز دمج البريد؟

شكر!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
لإرسال مستند Word الحالي كنص بريد ، يمكنك إضافة أرسل إلى مستلم البريد الأمر الخاص بك QAT، يرجى القيام بذلك على النحو التالي:
1. افتح ملف Word الذي تريد إرساله ، ثم انقر فوق قم بتقديم > العلاج.
2. في الجزء الأيمن ، حدد شريط أدوات الوصول السريع.
3. حدد الأوامر ليست في الشريط من اختر الأوامر من.
4. اختر وحدد أرسل إلى مستلم البريد وانقر على الزر أضف>>.
5. انقر OK لإغلاق الحوار.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

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

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-3.png

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

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

شكر،

ميكروفون
تم تصغير هذا التعليق بواسطة المشرف على الموقع
اهلا مايك،
لقد اختبرت ملفك في جهاز الكمبيوتر الخاص بي ، إنه يسوء جيدًا. أنا أستخدم Office 2019. يرجى الاطلاع على العرض التوضيحي أدناه:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Skyyang ،

لقد وجدت أن هذا يعمل عندما يكون لدى المستخدم برنامج MS Word ولكن يبدو أن رسائل البريد الإلكتروني مثلhotmail ؛ gmail ؛ وlive عناوين البريد الإلكتروني التي يواجهها هؤلاء المستخدمون مشكلات حيث لا يعمل الزر؟
يبدو أيضًا أنه لا يعمل على الهواتف الذكية إما إذا كان المستخدم يعتمد على استخدامها بدلاً من الكمبيوتر.
أخيرًا ، تلقيت استجابة من مستخدم آخر يستخدم Windows 11 حيث لا يعمل الزر على الإطلاق.

ما الذي جربته مع الأمثلة المذكورة أعلاه من فضلك؟

شكر،

ميكروفون
لا توجد تعليقات منشورة هنا حتى الآن