كيفية ربط ملف الاكسيل outlook مهم جداً لكل موظفين
HTML-код
- Опубликовано: 5 сен 2024
- ارسل 1000 ايميل من الاكسل - ارسال ايميلات مختلفة من الاكسل مع مرفقات- ارسال ايميل عن طريق دمج المراسلات - تعقب الايميل - هل قرا المرسل اليه الايميل - هل وصل الايميل - مكان صاحب الايميل - موقع صاحب الايميل - ارسل رسائل للعديد من الاشخاص عن طريق الاكسل- ارسال 100 ايميل بضغطة واحدة - ارسل ايميلات تهنئة للموظفين باسمه - ارسل لكل العملاء ايميل - ارسل رسالة لكل عميل- ربط الاكسل بالايميل - ربط الاكسل بالاوت لوك - ارسال العقود للموظفين - ارسال وصل الراتب للموظفين - التعامل مع الايميلات الكثيرة
رابط ملفات العمل والماكرو
الكود :
Sub Send_Email()
Dim lr As Integer, cel As Range
Dim OutApp As Outlook.Application
Dim Attach As String
lr = Cells(Rows.Count, 2).End(xlUp).Row
On Error Resume Next
For Each cel In Range("b3:b" & lr)
Set OutApp = New Outlook.Application
Dim EmailItem As Outlook.MailItem
Set EmailItem = OutApp.CreateItem(olMailItem)
EmailItem.To = cel.Offset(0, 4).Value
EmailItem.CC = cel.Offset(0, 5).Value
EmailItem.BCC = cel.Offset(0, 6).Value
EmailItem.Subject = cel.Offset(0, 2).Value
EmailItem.HTMLBody = cel.Offset(0, 3).Value
Attach = cel.Offset(0, 7).Value
EmailItem.Attachments.Add Attach
EmailItem.Send
Next cel
End Sub
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
لمزيد من الشروحات :
شرح دالة vlookup 🔥
www.youtube.co....
شرح دالة countif | شرح دالة countifs في برنامج اكسل جمع عدد الخلايا باستخدام اكثر من شرط في الاكسل
www.youtube.co....
شرح دالة counta و count و countblank في برنامج اكسل (جمع عدد الخلايا التي تحتوي على نصوص وارقام و الخلايا الفارغة)
شرح دالة SumIfs الجمع الشرطي المتعدد في الاكسل
www.youtube.co....
شرح التنسيق الشرطى فى الاكسل Conditional Formatting in excel
www.youtube.co....
التعرف على واجهة البرنامج الاكسل # ( Excel Online ) Mr Excel Academy #
www.youtube.co....
شرح دالة Sumif - في خمس دقائق
www.youtube.co....
SUBTOTAL function in Excel - شرح دالة subtotal في اكسل
www.youtube.co....
SUMPRODUCT Function in EXCEL - شرح معادلة SumProduct
www.youtube.co....
معادلة sum & count & countA & count blank
www.youtube.co....
هو ده الشغل العاااااالى انزل بالتقيل يانجم النجوم ... الله ينور👍
ربنا يباركلك 🙏
فى سلسلة شرح الاكسل حتى الاحتراف
شير للناس المهتمة
جامدة اوى 💪 ربط الاكسل بالoutlook🙏
ممتاز
ربنا يباركلك 🙏
شكرا لحضرتك 🙏
بالتوفيق انشاء الله
رينا يجازيك كل خير
شكرا لحضرتك 🙏
ربنا يوفقك
السلام عليكم في رسالة تحذيرية بتظهر من الاوت لوك كل في امكانية لازالتها
محتاج الاكواد ضروري بعتلك ع الميل
من محمد سمير
كنت محتاج ملف الاكواد ياغالي
ابعتلى الميل بتاعك وانا هبعتلك
محتاج الاكواد
@Mohamed Samir بعتلك على الميل
الكود :
Sub whatsapp()
Dim vname, vmessage As String
ActiveWorkbook.FollowHyperlink Address:="web.whatsapp.com/?"
Application.Wait (Now + TimeValue("00:00:10"))
For I = 0 To Application.WorksheetFunction.CountA(Sheets("sheet1").Range("a:a")) - 2
vname = Sheets("sheet1").Range("b2").Offset(I, 0).Value
vmessage = Sheets("sheet1").Range("c2").Offset(I, 0).Value
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys(vname, True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys(vmessage, True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{TAB}", True)
Next I
End Sub