كيفية إرسال بريد إلكتروني من Excel مع وجود ارتباط تشعبي في نص البريد؟

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

إدراج ارتباط تشعبي في نص البريد باستخدام كود VBA

إدراج ارتباط تشعبي في نص البريد باستخدام كود VBA

يمكن للشفرة البرمجية VBA أدناه مساعدتك في إرسال بريد إلكتروني من Excel وإدراج ارتباط تشعبي محدد في نص البريد. يرجى القيام بما يلي.

1. قم بتشغيل مصنفك، واضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة، ثم قم بنسخ الشفرة البرمجية VBA أدناه إلى محرر الوحدة.

شفرة VBA: إدراج ارتباط تشعبي في نص البريد

Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
    xStrBody = "Hi there:" & "<br>" _
              & "Please click " & "<a href="/ & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
              & "Thank you."
    On Error Resume Next
    Set xOtl = CreateObject("Outlook.Application")
    Set xOtlMail = xOtl.CreateItem(olMailItem)
    With xOtlMail
        .To = "Email Address"
        .CC = "Email Address "
        .BCC = " Email Address "
        .Subject = "Subject line"
        .HTMLBody = .HTMLBody & xStrBody
        .Display
    End With
    Set xOtl = Nothing
    Set xOtlMail = Nothing
End Sub

ملاحظات:

• يرجى تغيير محتوى النص والارتباط التشعبي في سطر xStrBody.
• استبدل “عنوان البريد الإلكتروني” في أسطر .To و.CC و.BCC بالعناوين الفعلية التي سترسل إليها البريد الإلكتروني. إذا لم تكن بحاجة إلى أسطر CC و BCC، فما عليك سوى إزالتها من الكود بالكامل أو إضافة علامة اقتباس قبل الأسطر، مثل 'CC =”عنوان البريد الإلكتروني”.
• استبدل “سطر الموضوع” في سطر .Subject بموضوع بريدك الإلكتروني الخاص.

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

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

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