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

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

أدخل التوقيع في بريد Outlook الإلكتروني عند الإرسال عن طريق Excel VBA
أدخل توقيع Outlook بسهولة عند إرسال بريد إلكتروني في Excel باستخدام أداة رائعة
المزيد من البرامج التعليمية لإرسالها بالبريد في Excel ...

أدخل التوقيع في بريد Outlook الإلكتروني عند الإرسال عن طريق Excel VBA

على سبيل المثال ، هناك قائمة بعناوين البريد الإلكتروني في ورقة العمل ، لإرسال رسائل البريد الإلكتروني إلى جميع هذه العناوين في Excel وإضافة توقيع Outlook الافتراضي في رسائل البريد الإلكتروني. يرجى تطبيق كود فبا أدناه لتحقيق ذلك.

1. افتح ورقة العمل التي تحتوي على قائمة عناوين البريد الإلكتروني التي تريد إرسالها بالبريد الإلكتروني ، ثم اضغط على قديم + F11 مفاتيح.

2. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ ما يلي VBA 2 في نافذة كود الوحدة النمطية.

3. الآن أنت بحاجة إلى استبدال ملف .الجسم في الخط VBA 2 مع الكود في VBA 1. بعد ذلك ، انقل الخط .عرض تحت الخط مع xMailOut.

VBA 1: قالب إرسال رسائل البريد الإلكتروني مع توقيع Outlook الافتراضي في Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

فبا 2: إرسال بريد إلكتروني إلى عناوين البريد الإلكتروني المحددة في الخلايا في إكسيل

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

يمكن أن تساعدك لقطة الشاشة التالية في العثور بسهولة على الاختلافات بعد تغيير رمز VBA.

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

ثم يتم إنشاء رسائل البريد الإلكتروني. يمكنك رؤية توقيع Outlook الافتراضي مضافًا في نهاية نص البريد الإلكتروني.

نصيحة:

• 1. يمكنك تغيير نص البريد الإلكتروني في رمز VBA 1 بناءً على احتياجاتك.
• 2. بعد تشغيل الرمز ، إذا انبثق مربع حوار خطأ يحذر من أن النوع المحدد من قبل المستخدم غير محدد ، يرجى إغلاق مربع الحوار هذا ، ثم الانتقال للنقر الأدوات > المحلية في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. في الافتتاح المراجع - VBAProject النافذة ، تحقق من مكتبة كائنات Microsoft Outlook مربع وانقر حسنا. ثم قم بتشغيل الكود مرة أخرى.
  

أدخل توقيع Outlook بسهولة عند إرسال بريد إلكتروني في Excel باستخدام أداة رائعة

إذا كنت مبتدئًا في VBA ، فنوصي بشدة هنا ببرنامج إرسال رسائل البريد الإلكتروني فائدة كوتولس ل إكسيل لك. باستخدام هذه الميزة ، يمكنك بسهولة إرسال رسائل بريد إلكتروني بناءً على حقول معينة في Excel وإضافة توقيع Outlook إليها. الرجاء القيام بما يلي.

أولاً ، تحتاج إلى إنشاء قائمة بريدية بحقول مختلفة سوف ترسل رسائل بريد إلكتروني بناءً عليها.

يمكنك إنشاء قائمة بريدية يدويًا حسب حاجتك أو تطبيق ميزة إنشاء قائمة بريدية لإنجاز ذلك بسرعة.

1. انقر كوتولس بلس > إنشاء قائمة بريدية.

2. في ال إنشاء قائمة بريدية مربع الحوار ، وحدد الحقول التي تريدها ، واختر مكان إخراج القائمة ، ثم انقر فوق OK .

3. الآن يتم إنشاء عينة قائمة بريدية. نظرًا لأنها قائمة عينة ، فأنت بحاجة إلى تغيير الحقول إلى محتوى مطلوب معين. (مسموح بعدة صفوف)

4. بعد ذلك ، حدد القائمة بأكملها (بما في ذلك الرؤوس) ، انقر فوق كوتولس بلس > إرسال رسائل البريد الإلكتروني.

5. في ال إرسال رسائل البريد الإلكتروني صندوق المحادثة:

• 5.1) يتم وضع العناصر الموجودة في القائمة البريدية المحددة في الحقول المقابلة تلقائيًا ؛
• 5.2) إنهاء نص البريد الإلكتروني ؛
• 5.3) تحقق من كل من أرسل بريدًا إلكترونيًا عبر Outlook و استخدم إعدادات توقيع Outlook مربعات؛
• شنومكس) انقر فوق إرسال زر. انظر لقطة الشاشة:

الآن يتم إرسال رسائل البريد الإلكتروني. ويتم إضافة توقيع Outlook الافتراضي في نهاية نص البريد الإلكتروني.

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

---

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

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

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

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...