لا يتطلب استخدام البرامج النصية لـ VBA في Excel أي معرفة بالبرمجة. يساعدك VBA على القيام بالعديد من المهام المتقدمة مثل إنشاء تقرير جدول بيانات يحتوي على جميع معلومات الكمبيوتر الشخصي ، وإرسال بريد إلكتروني مباشرة من جدول بيانات ...
لإرسال بريد إلكتروني من Microsoft Excel تحتاج فقط إلى بعض البرامج النصية البسيطة. لا تخف من إضافة هذه الميزة إلى جدول البيانات الخاص بك إذا كنت ترغب حقًا في الحصول على أقصى استفادة من برنامج Office Excel.
هناك العديد من الأسباب التي تجعلك ترغب في إرسال البريد الإلكتروني مباشرة في Microsoft Excel. على سبيل المثال ، يقوم موظفوك بتحديث المستندات وجداول البيانات أسبوعيًا وتريد تلقي إشعارات البريد الإلكتروني عند اكتمال هذا الإجراء أو في بعض الأحيان ، تريد إرسال جميع جهات الاتصال بالبريد الإلكتروني في مصنف واحد. في ...
لابد أنك فكرت في استخدام برنامج نصي معقد للبريد الإلكتروني في Excel ، ولكنه في الواقع بسيط للغاية. ستوجهك هذه المقالة للاستفادة من ميزة كانت متوفرة منذ فترة طويلة في Excel VBA ، تسمى كائنات بيانات التعاون (CDO) .
CDO هو مكون مراسلة يستخدم في Windows مباشرة من الإصدارات الأولى. كان يطلق عليه CDONTS. بعد ولادة Windows 2000 و XP ، تم استبداله بـ "CDO لـ Windows 2000". يتم تضمين هذا المكون في تثبيت VBA في Microsoft Word أو Excel وهو متاح للاستخدام في أي وقت.
يعد استخدام هذا المكون لإرسال بريد إلكتروني إلى منتجات Windows باستخدام VBA أمرًا سهلاً للغاية. على سبيل المثال ، تستخدم هذه المقالة CDO في Excel لإرسال رسائل البريد الإلكتروني التي تحتوي على نتائج في خلية واحدة.
أولاً ، انتقل إلى علامة تبويب Excel Developer > انقر فوق إدراج في لوحة عناصر التحكم ، ثم حدد زر أمر.
اسحبه إلى ورقة العمل هذه ، ثم قم بإنشاء ماكرو جديد بالنقر فوق وحدات الماكرو في شريط المطور.
عند النقر فوق الزر إنشاء ، فإنه يفتح محرر VBA.
أضف مرجعًا إلى مكتبة CDO بالانتقال إلى الأدوات> المراجع في المحرر.
قم بالتمرير لأسفل القائمة حتى ترى Microsoft CDO لمكتبة Windows 2000 . حدد مربع الاختيار وانقر فوق موافق .
عند النقر فوق " موافق" ، لاحظ اسم الوظيفة حيث يتم لصق البرنامج النصي ، لأنك ستحتاج إليه لاحقًا.
للقيام بذلك ، تحتاج أولاً إلى إنشاء كائنات ذات صلة بالبريد الإلكتروني وإعداد جميع حقول تسليم البريد الإلكتروني المطلوبة.
تذكر أن العديد من الحقول قد تكون أو لا ، ولكن من وإلى إلى مطلوبة.
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
strSubject = "النتائج من جدول بيانات Excel"
strFrom = "[email protected]"
strTo = "[email protected]"
strCc = ""
strBcc = ""
strBcc = " " strBody = "النتائج الإجمالية لهذا الربع هي:" & Str (Sheet1 .خلية (2 ، 1))
الشيء المثير للاهتمام هو أنه يمكنك إنشاء أي سلسلة مطلوبة لتخصيص رسالة البريد الإلكتروني بالكامل وتعيينها متغير strBody.
المكونات وضعت في محتوى البريد الإلكتروني معا باستخدام سلسلة و إدراج البيانات من مايكروسوفت اكسل أوراق العمل أي حق في البريد الإلكتروني (كما هو موضح أعلاه).
الجزء التالي من التعليمات البرمجية هو تكوين CDO لاستخدام أي خادم SMTP خارجي لإرسال البريد الإلكتروني.
لا يعمل هذا المثال على إعداد SSL عبر Gmail ، ويمكن لـ CDO استبدال SSL ولكنه خارج نطاق هذه المقالة. إذا كنت بحاجة إلى استخدام SSL ، فيمكن أن يساعدك الرمز المتقدم في Github.
تعيين CDO_Mail = CreateObject ("CDO.Message")
على خطأ GoTo Error_Handling
تعيين CDO_Config = CreateObject ("CDO.Configuration")
CDO_Config.Load -1
تعيين SMTP_Config = CDO_Config.Fields
باستخدام SMTP_Config
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp. gmail.com "
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 1.
البند (" http://schemas.microsoft.com/cdo/configuration/sendusername ") =" [email protected] "
.Item (" http://schemas.microsoft.com/cdo/configuration/sendpassword ") =" password "
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = صحيح.
تحديث
ينتهي بـ
مع CDO_Mail
Set .Configuration = CDO_Config
End With
لقد قمت الآن بتكوين خادم SMTP الخاص بك لإرسال بريد إلكتروني. كل ما عليك فعله هو ملء الحقول المناسبة لكائن CDO_Mail وإصدار الأمر إرسال .
إليك كيفية القيام بذلك:
CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send
Error_Handling:
إذا Err.Description <> "" ثم MsgBox Err.Description
لا تظهر أي من النوافذ المنبثقة أو تنبيهات الأمان كما تراها عادةً عند استخدام كائن البريد الإلكتروني في Outlook.
يضع CDO ببساطة مكونات البريد الإلكتروني جنبًا إلى جنب ويستخدم تفاصيل اتصال الخادم لتمكين إرسال المعلومات. هذه هي أسهل طريقة لدمج رسائل البريد الإلكتروني في برامج Microsoft Word أو Excel VBA.
لتوصيل زر الأمر بهذا البرنامج النصي ، قم بالوصول إلى محرر التعليمات البرمجية وانقر فوق الورقة 1 لرؤية رمز VBA لورقة العمل هذه.
اكتب اسم الوظيفة حيث قمت بلصق البرنامج النصي أعلاه.
هذه هي المعلومات التي تتلقاها في البريد الوارد.
ملاحظة : إذا تلقيت رسالة الخطأ فشل النقل في الاتصال بالخادم ، فتأكد من إدخال اسم المستخدم وكلمة المرور وخادم SMTP ورقم المنفذ الصحيحين في سطر الرمز المدرج في SMTP_Config .
يعد إرسال رسائل البريد الإلكتروني من Excel باستخدام زر واحد آمنًا ومريحًا حقًا. إذا كنت ترغب في استخدام هذه الميزة في كثير من الأحيان ، يمكنك تشغيلها تلقائيًا.
للقيام بذلك ، تحتاج إلى تغيير الماكرو. انتقل إلى محرر Visual Basic ، انسخ والصق الرمز الذي تم جمعه بالكامل. بعد ذلك ، حدد ThisWorkbook من التسلسل الهرمي للمشروع .
من الحقلين المنسدلين أعلى نافذة التعليمات البرمجية ، حدد المصنف وانقر فوق فتح من قائمة الأساليب . قم بلصق البرنامج النصي للبريد الإلكتروني أعلاه في Private Sub Workbook_Open () . سيؤدي هذا الإجراء إلى تشغيل الماكرو عند فتح ملف Excel.
بعد ذلك ، افتح برنامج جدولة المهام . ستستخدم هذه الأداة لمطالبة Windows بفتح جداول البيانات تلقائيًا في فترات زمنية محددة. في ذلك الوقت ، سيتم تنشيط الماكرو الخاص بك وإرساله عبر البريد الإلكتروني.
حدد إنشاء مهمة أساسية ... من قائمة الإجراء واتبع التعليمات حتى تصل إلى شاشة الإجراء.
حدد بدء برنامج وانقر فوق التالي .
استخدم الزر " استعراض" للعثور على موقع Microsoft Excel على الكمبيوتر أو انسخ والصق المسار في حقل البرنامج / البرنامج النصي .
ثم أدخل المسار إلى مستند Microsoft Excel في حقل إضافة وسيطات .
التعليمات الكاملة والجدول الزمني الذي سيجري.
يجب اختبار هذه الميزة من خلال جدولة الإجراء في الدقائق القليلة القادمة ، ثم مراجعة المهمة بعد رؤيتها تعمل بشكل فعال.
ملاحظة : قد تحتاج إلى ضبط إعدادات مركز التوثيق للتأكد من تشغيل الماكرو على النحو التالي:
افتح جدول البيانات وانتقل إلى ملف> خيارات> مركز التوثيق .
هنا ، انقر فوق إعدادات مركز التوثيق . في الشاشة التالية ، حدد عدم عرض معلومات حول المحتوى المحظور .
يعد Microsoft Excel أداة قوية للغاية ، ولكن تعلم كيفية استخدامه يمكن أن يمثل تحديًا للكثيرين في بعض الأحيان. إذا كنت تريد إتقان هذا البرنامج ، فأنت بحاجة إلى معرفة كيفية استخدام VBA. هذا ليس سهلا.
ومع ذلك ، مع القليل من تجربة VBA ، يمكنك أتمتة المهام الأساسية على Microsoft Excel والحصول على مزيد من الوقت للتركيز على المهام الأكثر أهمية.
آمل أن تكون المقالة مفيدة لك. أتمنى لك النجاح!
Struggling with Microsoft Teams Password Error because you forgot your password? Follow our step-by-step guide on how to fix Microsoft Teams password error forgot issues quickly and securely. No tech skills needed!
هل تشعر بالإحباط من بطء برنامج مايكروسوفت تيمز؟ اكتشف سبب بطء مايكروسوفت تيمز وطبّق هذه النصائح العشر المجربة لتسريعه بشكل كبير في عام 2026 من أجل تعاون سلس للغاية.
هل تواجه مشكلة في تحميل علامة تبويب ويكي في مايكروسوفت تيمز؟ اكتشف حلولاً مجربة خطوة بخطوة لحل المشكلة بسرعة، واستعادة علامات تبويب ويكي، وتعزيز إنتاجية فريقك دون عناء.
هل سئمت من أخطاء مزامنة إدارة المهام في مايكروسوفت تيمز التي تعيق سير عملك؟ اتبع حلولنا الخبيرة خطوة بخطوة لاستعادة مزامنة المهام بسلاسة بين تيمز، وبلانييه، وقائمة المهام. حلول سريعة لراحة فورية!
هل تواجه مشكلة في بطء تطبيق مايكروسوفت تيمز؟ تعرّف على كيفية مسح ذاكرة التخزين المؤقت لتطبيق مايكروسوفت تيمز خطوة بخطوة لحل مشاكل الأداء، والبطء، والتعطل، وتحسين السرعة على أنظمة ويندوز، وماك، والويب، والهواتف المحمولة. حلول سريعة وفعّالة!
هل سئمت من مشاكل تشغيل الوسائط في مايكروسوفت تيمز التي تُفسد اجتماعاتك لعام 2026؟ اتبع دليلنا المُفصّل خطوة بخطوة لإصلاح مشاكل الصوت والفيديو والمشاركة بسرعة - دون الحاجة لأي مهارات تقنية. تعاون سلس بانتظارك!
هل سئمت من خطأ مايكروسوفت تيمز رقم 1200 الذي يتسبب في انقطاع مكالماتك الهاتفية؟ اكتشف حلولاً سريعة وبسيطة لأنظمة iOS وAndroid للعودة إلى العمل الجماعي بسلاسة وسرعة - دون الحاجة إلى أي مهارات تقنية!
هل تواجه مشكلة في إعدادات بروكسي مايكروسوفت تيمز؟ اكتشف خطوات فعّالة لحل هذه المشكلة. امسح ذاكرة التخزين المؤقت، وعدّل إعدادات البروكسي، واستمتع بمكالمات سلسة في دقائق معدودة مع دليلنا المتخصص.
تعلّم كيفية تسجيل الدخول إلى مركز إدارة مايكروسوفت تيمز بشكل صحيح من خلال دليلنا المفصل خطوة بخطوة. عالج الأخطاء الشائعة، واضمن الأمان، وقم بإدارة تيمز بسهولة تامة للمسؤولين في كل مكان.
هل تواجه مشكلة في مزامنة تقويم Teams الخاص بك؟ إليك دليلًا خطوة بخطوة لحل مشاكل المزامنة في Microsoft Teams. استعد عرض التقويم وقم بالمزامنة بسهولة تامة - نصائح الخبراء متوفرة هنا!
هل سئمت من تعطل مايكروسوفت تيمز بسبب خطأ فادح؟ إليك الحل الأمثل لإصلاح سجل النظام لعام 2026، والذي يحل المشكلة في دقائق. دليل خطوة بخطوة، لقطات شاشة، ونصائح لحل دائم. يعمل على أحدث الإصدارات!
اكتشف كيفية استخدام ميزة "المساعدة في مايكروسوفت تيمز" لتعزيز الإنتاجية المدعومة بالذكاء الاصطناعي. دليل خطوة بخطوة، وميزات رئيسية، ونصائح لتحويل الاجتماعات والمحادثات والمهام بسلاسة. أطلق العنان لتعاون أكثر ذكاءً اليوم!
هل تواجه مشكلة في استخدام حساب مايكروسوفت تيمز غير الصحيح على نظام ويندوز 11؟ إليك تعليمات بسيطة خطوة بخطوة لإزالة حساب مايكروسوفت تيمز الخاص بك وتغييره بكل سهولة. مثالي لإدارة ملفات تعريف العمل والملفات الشخصية!
هل تشعر بالإحباط بسبب فشل تسجيلك في مايكروسوفت تيمز؟ اكتشف أهم الأسباب الشائعة مثل مشاكل الأذونات، وحدود التخزين، وأعطال الشبكة، بالإضافة إلى حلول خطوة بخطوة لمنع حالات الفشل المستقبلية والتسجيل بسلاسة في كل مرة.
هل تواجه صعوبة في قراءة النصوص الصغيرة في مايكروسوفت تيمز؟ اكتشف خطوات مجربة لتكبير واجهة المستخدم وجعلها أكثر وضوحًا. تعديلات سهلة لإعدادات سطح المكتب والويب وإمكانية الوصول لتحسين الوضوح وتقليل إجهاد العين.
