كيف تُرسل بريدًا إلكترونيًا من Excel يتضمّن رابطًا تشعبيًّا في نص الرسالة؟
في العديد من سيناريوهات العمل، قد تحتاج إلى إرسال رسائل بريد إلكتروني مباشرة من Excel، وفي بعض الحالات تريد تضمين روابط قابلة للنقر داخل نص الرسالة. على سبيل المثال، قد ترغب في تمكين المستلمين من الوصول إلى ملفات أو زيارة مواقع ويب أو فتح مستندات أخرى ذات صلة مباشرة من البريد الإلكتروني. يمكنك تحقيق ذلك في Excel بعدة طرق عملية، بما في ذلك الأتمتة باستخدام VBA، وميزات الروابط التشعبية المدمجة في Excel، واستخدام الصيغ. لكل طريقة مزايا مميزة وتناسب حالات استخدام مختلفة—سواء كنت تفضل الأتمتة أو التخصيص اليدوي أو إنشاء الروابط انطلاقًا من جدول البيانات. في هذا الدليل، نعرض عدة طرق لـ إنشاء ارتباط تشعبي في نص رسالة بريد إلكتروني تُرسل من Excel، ونناقش القيمة التطبيقية والاعتبارات الخاصة بكل طريقة.
- إنشاء ارتباط تشعبي في نص رسالة البريد الإلكتروني باستخدام كود VBA
- إنشاء روابط mailto باستخدام صيغة HYPERLINK في Excel
إنشاء ارتباط تشعبي في نص رسالة البريد الإلكتروني باستخدام كود VBA
هذه الطريقة مُصممة خصيصًا للمستخدمين الذين يحتاجون إلى إرسال رسائل بريد إلكتروني تحتوي على روابط تشعبية مضمنة مباشرةً في نص الرسالة، باستخدام Outlook كعميل الإرسال. وباستخدام VBA، يمكنك تأليف الرسائل وتخصيصها تلقائيًا من داخل Excel، مع إدراج أي رابط تشعبي أو نص منسَّق تريده ضمن محتوى الرسالة. وهي مثالية لإرسال الرسائل الدفعية، وأتمتة سير العمل، أو أي حالة تتطلب دمج نص قالب مع قيم ديناميكية مستخرجة من ورقة العمل.
1. افتح ملفك، ثم اضغطAlt+F11 للوصول إلى نافذةMicrosoft Visual Basic for Applications.
2. في محرر Visual Basic، انتقل إلىإدراج > وحدة نمطية، ثم الصق كود 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 ليناسب متطلباتك. يتم استخدام وسم HTML
هنا—تذكّر التحقق من صحة رابطك والنص الظاهر. - استبدل “عنوان البريد الإلكتروني” في الحقولTo،CC، وBCC بعناوين المستلمين الفعلية. يمكنك حذف حقول CC/BCC إذا لم تكن ضرورية (عن طريق حذف الأسطر أو تعطيلها بالتعليقات).
- حدّث “سطر الموضوع” في السطر.Subject ليعبّر بدقة عن موضوع البريد الإلكتروني المقصود.
- تأكد من تثبيت Microsoft Outlook والتمكن من الوصول إليه قبل تشغيل هذا الماكرو.
3. بعد تعديل الكود، اضغطF5 لتشغيله. سيتم فتح نافذة إنشاء بريد إلكتروني جديد في Outlook، مملوءة مسبقًا بالحقول المحددة مع تضمين الرابط التشعبي في النص. راجع الرسالة، ثم انقرإرساللإرسالها.
تلميح: إذا ظهرت لك نوافذ تحذير أمان في Outlook، فتأكد من أنك تمتلك الصلاحية لإرسال رسائل بريد إلكتروني عبر الكود، وأن إعدادات أمان ماكرو تسمح بالتنفيذ. وللحصول على أفضل النتائج، اختبر الرسالة دائمًا على عينة قبل أتمتة إرسالها لجمهور أوسع.
المزايا:يدعم إرسال رسائل بريد إلكتروني مخصصة ومنسَّقة بصيغة HTML، مع روابط مضمنة وإرسال آلي. ويمكن أن توفر الأتمتة وقتك الثمين بشكل كبير عند التعامل مع الرسائل المتكررة أو الجماعية.
العيوب:يتطلب وجود Outlook وقد يحتاج إلى تعديل إعدادات أمان الماكرو. كما أنه غير مناسب للمستخدمين غير الملمِّين بلغة VBA.
إنشاء روابط mailto باستخدام صيغة HYPERLINK في Excel
تستخدم هذه الطريقة دالةHYPERLINK في Excel لإنشاء روابط قابلة للنقر داخل ورقة العمل. عند النقر على هذه الروابط، يتم تشغيل عميل البريد الإلكتروني الافتراضي (مثل Outlook أو Mail) لفتح رسالة مُعدة مسبقًا. وباستخدام هذه الطريقة، يمكنك تحديد المستلم والموضوع ونص الرسالة وحتى إضافة روابط إضافية مسبقًا، مما يوفّر انطلاقة سريعة لإنشاء رسالتك—مع ملاحظة أن الإرسال لا يزال يتطلب تدخلاً يدويًا منك.
هذه الطريقة مثالية إذا كنت ترغب في مشاركة روابط قوالب مع الآخرين أو تسريع مهام البريد الإلكتروني المتكررة دون الحاجة إلى الأتمتة. كما يمكنك دمجها مع بيانات ورقة العمل لإنشاء قوالب بريد إلكتروني ديناميكية تناسب مختلف المستخدمين.
1. حدد الخلية التي تريد إدراج رابطmailto فيها، مثلًا: B2.
=HYPERLINK("mailto:someone@example.com?subject=Test Subject&body=Please review this link: https://www.example.com","Send Email")2.بعد إدخال الصيغة، سيُحوِّل الضغط على Enter الخلية إلى رابط قابل للنقر. وعند النقر عليه، سيتم فتح تطبيق البريد الإلكتروني الافتراضي لديك مع تعبئة حقول To وSubject وBody تلقائيًا وفقًا لمحتوى الصيغة. كما يمكنك تعديل الصيغة باستخدام مراجع الخلايا لإنشاء رسائل ديناميكية!
- على سبيل المثال، لاستخدام القيم من الخلية A2 للمستلم والخلية B2 للرابط:
=HYPERLINK("mailto:"&A2&"?subject=Hello&body=Please visit: "&B2, "Email User")
المزايا:سهل التنفيذ ولا يتطلب برمجة، ويدعم المحتوى الديناميكي. يتميّز بالمرونة عند التعامل مع مجموعات البيانات أو إنشاء العديد من الروابط دفعة واحدة.
العيوب:لا يُرسل الرسائل تلقائيًا—يجب على المستخدم مراجعة كل رسالة وإرسالها يدويًا. كما أن طول نص الرسالة محدود ببروتوكول mailto؛ فقد يتم اقتطاع النصوص الطويلة أو تلك ذات التنسيق المعقد، أو عرضها بشكل غير صحيح.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بناءً على أوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب ونفِّذ أكواد VBA بمنتهى السهولة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية بسهولة!
مقالات ذات صلة
إرسال بريد إلكتروني تلقائيًا بناءً على قيمة خلية في Excel
افترض أنك تريد إرسال بريد إلكتروني تلقائيًا عبر Outlook إلى مستلم معيّن بمجرد أن تتجاوز قيمة خلية محددة في Excel عتبةً معينة. على سبيل المثال، عندما تكون قيمة الخلية D7 في ورقة العمل أكبر من 200، يُنشأ بريد إلكتروني تلقائيًا. تعرض هذه المقالة طريقة سريعة لحل هذه المهمة باستخدام VBA.
إرسال بريد إلكتروني عند النقر على زر في Excel
هل تحتاج إلى إرسال بريد إلكتروني عبر Outlook بمجرد النقر على زر في ورقة عمل Excel؟ تُظهر لك هذه المقالة طريقة تنفيذ ذلك خطوة بخطوة باستخدام VBA!
إرسال بريد إلكتروني تلقائيًا عند اقتراب تاريخ الاستحقاق في Excel
افترض أن تاريخ الاستحقاق في العمود C يصبح أقل من أو يساوي 7 أيام (مع العلم أن التاريخ الحالي هو 2017/9/13)، فسيتم إرسال تذكير بريدي إلكتروني تلقائيًا إلى المستلم المحدد في العمود A، متضمّنًا المحتوى الموجود في العمود B. كيف يمكنك تحقيق ذلك؟ تقدّم لك هذه المقالة الحل الذي تحتاجه!
أفضل أدوات إنتاجية Office
عزّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعش الكفاءة كما لم يحدث من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، بالإضافة إلى Publisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة ضمن النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر عليك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools مُثبَّتة في حزمة واحدة.
Kutools for Office تضم الحزمة الإضافات المخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة— إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، ولا بطاقة ائتمان
- أفضل قيمة— وفّر مقارنةً بشراء الإضافات بشكل منفصل