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

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

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

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

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

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

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

3. الآن أنت بحاجة إلى استبدال ملف .الجسم في الخط فبا 2 مع الكود في فبا 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 الافتراضي في نهاية نص البريد الإلكتروني.

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