فوائد إرسال رسائل البريد الإلكتروني عبر برنامج إكسل مع المرفقات

 إكسل vba/ الدرس 332/ اضافة جديدة للفورم السحري ارسال الملفا ت والايميلات من خلال الفورم

فوائد إرسال رسائل البريد الإلكتروني عبر برنامج Excel مع المرفقات

 

يعد إرسال رسائل البريد الإلكتروني عبر Excel مع المرفقات طريقة رائعة لتوفير الوقت وزيادة الإنتاجية. يتيح لك إرسال رسائل بريد إلكتروني تحتوي على مرفقات بسرعة وسهولة دون الحاجة إلى الخروج من البرنامج. هذا مفيد بشكل خاص عند العمل في مشاريع كبيرة أو عند التعامل مع عدة مستلمين. بالإضافة إلى ذلك، فإنه يستخدم برنامج Outlook في Office، والذي يوفر واجهة سهلة الاستخدام لإرسال رسائل البريد الإلكتروني.

 

تتمثل إحدى المزايا الرئيسية لإرسال رسائل البريد الإلكتروني عبر Excel في أنه يلغي الحاجة إلى فتح بريد إلكتروني منفصل مثل Outlook أو Gmail. يوفر هذا الوقت والجهد حيث لا يتعين عليك التبديل بين البرامج أو البحث عن جهات الاتصال في أماكن مختلفة. علاوة على ذلك، يسمح لك بإرفاق الملفات بسرعة من جهاز الكمبيوتر الخاص بك أو من خدمات التخزين السحابية مثل Dropbox أو Google Drive.

 

فائدة أخرى لإرسال رسائل البريد الإلكتروني عبر Excel هي أنه يتيح لك إدارة قوائم جهات الاتصال الكبيرة بسهولة. يمكنك إنشاء جدول بيانات بجميع جهات الاتصال الخاصة بك وعناوين البريد الإلكتروني الخاصة بهم، ثم استخدام هذه القائمة عند إرسال رسائل البريد الإلكتروني. هذا يجعل من السهل تتبع من تلقى رسالتك ومن لم يستلمها، بالإضافة إلى ضمان أن كل شخص يتلقى نفس الرسالة في نفس الوقت.

 

بالإضافة إلى ذلك، فإن إرسال رسائل البريد الإلكتروني عبر Excel يسهل أيضًا تخصيص الرسائل لكل مستلم. يمكنك بسهولة إضافة نص أو صور مخصصة إلى كل بريد إلكتروني، مما يجعلها أكثر شخصية وجذابة للمتلقي. يمكن أن يكون هذا مفيدًا بشكل خاص عند محاولة بناء علاقات مع العملاء أو العملاء المحتملين.

 

أخيرًا، يساعد إرسال رسائل البريد الإلكتروني عبر Excel أيضًا في ضمان إرسال الرسائل بشكل آمن وموثوق. يوفر برنامج Outlook في Office تقنية تشفير تضمن إرسال الرسائل بأمان عبر الإنترنت دون اعتراضها من قبل أطراف ثالثة. بالإضافة إلى ذلك، يوفر Outlook أيضًا ميزات مثل إعلانات القراءة التي تتيح لك تتبع ما إذا كان المستلم قد فتح رسالتك أم لا.

 

بشكل عام، يعد إرسال رسائل البريد الإلكتروني عبر Excel مع المرفقات طريقة رائعة لتوفير الوقت وزيادة الإنتاجية مع ضمان إرسال الرسائل بشكل آمن وموثوق. إنه يلغي الحاجة إلى التبديل بين البرامج ويجعل إدارة قوائم الاتصال الكبيرة أسهل من أي وقت مضى. علاوة على ذلك، يسمح لك بتخصيص الرسائل لكل مستلم والتي يمكن أن تكون مفيدة بشكل خاص عند بناء علاقات مع العملاء أو العملاء المحتملين.

***********************************************************************

الأكواد

Sub SendEmail() 'استدعاء في زر الارسال

Dim OutApp As Object, OutMail As Object, strbody As String

Dim x As String, y As String, z As String

On Error Resume Next

x = form1.p4txt1.Text

y = form1.p4cmb1.Text

z = form1.p4lbl1.Caption

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

strbody = x

With OutMail

.To = y

.CC = ""

.BCC = ""

.Subject = "الملف المرسل"

.Body = strbody

.Attachments.Add (z)

.Send

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

MsgBox "تم ارسال الملف بنجاح"

x = ""

y = ""

z = ""

End Sub

********************************************************************************

Sub cmbgo() 'استدعاء في بداية التشغيل

form1.p4cmb1.List = Array("wagdy2040@gmail.com", "wagdy2064@gmail.com")

End Sub

*******************************************************************************

Sub pathgo() 'استدعاء في زر اضافة ملف

On Error Resume Next

Dim fd As FileDialog, x As String

Set fd = Application.FileDialog(msoFileDialogOpen)

With fd

.AllowMultiSelect = False

.Filters.Clear

.Filters.Add "All Files", "*.*"

If .Show = -1 Then

x = fd.SelectedItems(1)

form1.p4lbl1.Caption = x

End If

End With

MsgBox "تم اضافة الملف بنجاح"

End Sub