كيفية إرسال بريد إلكتروني من Excel مع ارتباط تشعبي في نص البريد الإلكتروني؟
هل سبق لك أن حاولت إرسال بريد إلكتروني برمز VBA في Excel؟ وكيف تضيف ارتباطات تشعبية إلى نص البريد الإلكتروني عند إرسال بريد إلكتروني؟ هذه المقالة سوف تساعد في حل هذه المشكلة.
قم بإدراج ارتباط تشعبي في نص البريد الإلكتروني باستخدام رمز VBA
قم بإدراج ارتباط تشعبي في نص البريد الإلكتروني باستخدام رمز VBA
يمكن أن يساعد رمز VBA أدناه في إرسال بريد إلكتروني من Excel وإدراج ارتباط تشعبي محدد في نص البريد الإلكتروني. الرجاء القيام بما يلي.
1. قم بتشغيل المصنف الخاص بك ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ رمز 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 الخط.
- استبدل "البريد الإلكتروني"في . ول, .نسخة و.BCC تحتوي على عناوين البريد الإلكتروني الفعلية التي سترسل إليها بريدًا إلكترونيًا. إذا لم تكن بحاجة إلى سطور CC و BCC ، فما عليك سوى إزالتها من الكود بالكامل ، أو إضافة اقتباس واحد قبل السطور ، مثل "CC =" عنوان البريد الإلكتروني ".
- استبدل "سطر الموضوع"في .موضوع تتماشى مع موضوع البريد الإلكتروني الخاص بك.
3. اضغط على F5 مفتاح لتشغيل الكود. ثم يتم إنشاء البريد الإلكتروني مع الحقول المحددة والجسم مع وجود ارتباط تشعبي مدرج بالداخل ، انقر فوق الزر إرسال لإرساله.
مقالات ذات صلة
إرسال البريد الإلكتروني تلقائيًا بناءً على قيمة الخلية في Excel
لنفترض أنك تريد إرسال بريد إلكتروني عبر Outlook إلى مستلم معين بناءً على قيمة خلية محددة في Excel. على سبيل المثال ، عندما تكون قيمة الخلية D7 في ورقة العمل أكبر من 200 ، يتم إنشاء بريد إلكتروني تلقائيًا. تقدم هذه المقالة طريقة VBA لك لحل هذه المشكلة بسرعة.
أرسل بريدًا إلكترونيًا إذا تم النقر فوق الزر في Excel
لنفترض أنك بحاجة إلى إرسال بريد إلكتروني من خلال Outlook بالنقر فوق زر في ورقة عمل Excel ، كيف يمكنك القيام بذلك؟ ستقدم هذه المقالة طريقة VBA لتحقيق ذلك بالتفصيل.
أرسل بريدًا إلكترونيًا إذا تم الوفاء بتاريخ الاستحقاق في Excel
لنفترض أن تاريخ الاستحقاق في العمود C أقل من أو يساوي 7 أيام (التاريخ الحالي هو 2017/9/13) ، ثم أرسل تذكيرًا بالبريد الإلكتروني إلى المستلم المحدد في العمود A بمحتوى محدد في العمود B. كيف يتم تحقيق ذلك؟ الطريقة في هذه المقالة يمكن أن تقدم لك معروفًا.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!