شرح ارسال بريد الكتروني عبر الاكسل

[ابو تراب]

السلام عليكم ورحمة الله وبركاته

 

الى السادة اعضاء منتدانا الكرام اليكم اليوم شرح طريقة ارسال بريد الكتروني من خلال الاكسل

 

لهذا الغرض عملت دلة صغيرة لارسال االايميل بلخيارات الاساسية التي ستحتاجها

 

و سأحاول ان اعرضها اليكم بطريقة بسيطه مع توضيح كيفية عملها و الشروط التي يجب ان تتوافر قبل استخدامها

 

سنفترض التالي

 

البريد المرسل هو : send@gmail.com

البريد المستلم هو : emp01@gmail.com

 

تطبيق الدالة

عنوان الرسالة ياتي قبل نصها ... ولكن بسبب تنسيق الكود في المنتدى فمعظم الاكواد تظهر نص الرسالة قبل العنوان

 

1 - ارسال رسالة بعنوان: اختبار و نص الرسالة: هذا اختبار ارسال رسالة 

SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","هذا اختبار ارسال رسالة" 

2 - ارسال رسالة مع نسخة (CC) لـ manager01@gmail.com

SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة", "manager01@gmail.com"

3 - ارسال رسالة مع نسخة (CC) لـ manager01@gmail.com و نسخة كربونية (BCC) لـ  send@gmail.com

 

يفضل دائما ان تحتفظ بنسخة من الرسائل التي ارسلتها.

SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة", "manager01@gmail.com","send@gmail.com"

4 - ارسال رسالة وارفاق ملف واحد

SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة",,,"c:\work\pic1.jpg"

5 - ارسال رسالة وارفاق اكثر من ملف

SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة",,,Array("c:\work\pic1.jpg","c:\work\pic2.jpg")

6 - ارسال رسالة لاكثر من مرسل اليه

SendEMail "send@gmail.com", Array("emp01@gmail.com","emp02@gmail.com"), "اختبار","اختبار ارسال رسالة"

7 - ارسال رسالة لاكثر من نسخة (CC)

SendEMail "send@gmail.com","emp01@gmail.com","اختبار" ,"اختبار ارسال رسالة", Array("manager01@gmail.com","manager02@gmail.com")

8 - ارسال رسالة بتنسيق HTML

SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار", "<B>نص الرسال</B>", , , , True

شروط استخدام الدالة و افتراضات

 

1- الدلة تستخدم ملقم SMTP تبع ال GMail  ولهذا يجب ان يكن لديك حساب في القوقل ... تم الافتراض هنا ان الحساب هو send@gmail.com (يجب ان تستخدم حساب حقيقي)

2-  افترضنا كلمة السر هى password  (غير كلمة السر للكلمة الحقيقية ) 

 

غير القيم كما في الصورة

 

 

هذا فقط ما يجب عليك فعله لبدء استخدام الدالة الا ان هناك ملاحظة مهمة

 

شركة قوقل في شهر 7 الماضي رفعت متطلبات الامن لديها و لهذا فان ارسال الايميل عبر ملقمها smtp.gmail.com لن يتم الا اذا خفضنا درجة الامان.

 

ولهذا انصح ان تنشئ بريد الكتروني جديد لاتستخدمة الا في ارسال البريد عبر الاكسل

 

لتخفيض درجة الامن لحساب قوقل اتبع الخطوات التالية:

 

- ادخل على حسابك و اختر Account 

 

 

- في القسم Account Settings و اختر Access for less secure Apps

 

 

- اختر Enable

 

 

يمكنك تحميل الدالة من الملف المرفق

 

 

اسال الله تعالى ان يتقبل منى ومنكم صالح الاعمال

كود ارسال بيريد الكتروني.zip

[KHMB]

السلام عليكم ورحمة الله

موضوع وشرح مميز مشكور وجزاك الله خير

هل من الممكن ان يتم عمل متغير للبريد المرسل والمرسل إليه ويستند هذا المتغير الى خليتين

[ابو تراب]

وعليكم السلام ورحمة الله و بركاته

 

شكرا على كلماتك الطيبة

 

نعم يمكنك استخدام خلية كما في المثال التالي:

SendEMail [A1], [A2], "اختبار","هذا اختبار ارسال رسالة"

ملاحظة:

=====

بالنسبة لعنوان المرسل فانه القوقل سيمسحه و يكتب بدلا عنه العنوان الذي سجلت الدخول. السبب ان القوقل يريد ان يقلل من البريد المزعج او Spam

 

ماذا يمكنك فعله في هذه الحالة

 

1 - اضافة بريد اخر لدى حسابك في القوقل ليتم استخدمة بدلا عن الحساب الحالي ... لمزيد من المعلومات انظر للرابط التالي:  Send mail as another address

2 - يمكنك فقط اظهار اسم معين مع البقاء على عنوان المرسل مثال:

SendEMail """اسم الشركة"" <test@gmail.com>", [A2], [D1], [D3] 

تحياتي

 

[KHMB]

السلام عليكم ورحمة الله

جزاك الله خير ابا تراب

[ياسر خليل أبو البراء]

موضوع في منتهى الروعة ..تسلم يا كبير على هذه الأفكار الجبارة والمفيدة جداً

[ابو تراب]

 

موضوع في منتهى الروعة ..تسلم يا كبير على هذه الأفكار الجبارة والمفيدة جداً

 

 

حيا الله من زارنا ... جزاك الله خيرا على كلماتك المشجعة و مرورك العطر .... ماقدمته لاشيء امام ماتقدموة كل يوم للمنتدى .... مازلت طالب علم و سأضل من المحبرة الى المقبرة

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

الاخ الفاضل ابوتراب

سلمت يداك وافكارك ..هذا حال الاساتذه .. عونا دائما للجميع 

 

اخى الحبيب هل يوجد اى تغير اذا تم ارسال الاميل من

اميل Microsoft Outlook 

[ابو تراب]

 

السلام عليكم 

الاخ الفاضل ابوتراب

سلمت يداك وافكارك ..هذا حال الاساتذه .. عونا دائما للجميع 

 

اخى الحبيب هل يوجد اى تغير اذا تم ارسال الاميل من

اميل Microsoft Outlook 

 

 

هلا بالغالي ابو حنين و شكرا على كلماتك الطيبة المشجعة .... ما نحن الا طلاب علم و المنتدى يعج بالاساتذة الفضلاء و الخبراء بارك الله فيهم في ما يقدمون لنا من مساعدة و علم و جهد.

 

 

الدالة تعتمد على السيرفر تبع القوقل لارسال البريد بغض النظر عن ايميل المرسل سوى كان في hotmail او outlook سيتم استبداله داخليا بحساب ال gmail الذي تم التسجيل الدخول عبره.

 

المهم اذا كان ال outlook محمل لديك فلن تحتاج لاستخدام هذه الدالة فكود مثل ActiveWorkbook.FollowHyperlink  يمكن ان يفتح لك برنامج الoutlook و يضع ايميل المرسل اليه و العنوان و نص الرسالة

 

الكود  ارسال الرسالة

==============

 

Private Sub SendEmail(ToEmail As String, Subject As String, EmailMsg As String, Optional CC As String, Optional BCC As String)


Dim EmailLink As String


EmailLink = "mailto:" & ToEmail & "?" & "cc=" & CC & "&" & "bcc=" & BCC & "&"
EmailLink = EmailLink & "subject=" & Subject & "&"
EmailLink = EmailLink & "body=" & EmailMsg


ActiveWorkbook.FollowHyperlink (EmailLink)
Application.Wait (Now + TimeValue("0:00:03"))
''/ ارسل الرسالة
Application.SendKeys "%s"


End Sub

تجد مثال لاستخدامها في الرابط التالي:

 

http://www.officena.net/ib/index.php?showtopic=57606&hl=

 

 

في حالة الرغبة بتحكم اكبر فربما ستحتاج لبرمجة الكائن Outlook.Application

 

تحياتي

 

  

[وليد زقزوق]

رائع