اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

 

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

 

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

 

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

 

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

 

البريد المرسل هو : 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  (غير كلمة السر للكلمة الحقيقية ) 

 

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

 

LPxbap.png

 

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

 

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

 

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

 

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

 

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

 

pxyXtz.jpg

 

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

 

Anp5IY.jpg

 

- اختر Enable

 

C1hFI9.jpg

 

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

 

 

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

 

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

 

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

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

ملاحظة:

=====

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

 

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

 

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

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

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

تحياتي

 

رابط هذا التعليق
شارك

 

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

 

 

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

رابط هذا التعليق
شارك

السلام عليكم 

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

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

 

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

اميل 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

 

تحياتي

 

  

رابط هذا التعليق
شارك

  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information