مرحبا هناك،
من فضلك جرب الكود أدناه
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Range("c:c"), Target) Is Nothing Then Exit Sub
If Target.Value = "done" Then
Set xRg = Target.Offset(0, -1) 'Find email address
Call Mail_small_Text_Outlook(xRg.Value)
End If
End Sub
Sub Mail_small_Text_Outlook(ByVal xTo As String)
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = xTo
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use
' .Send
End With
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
لقد ذكرت أنك تريد إرسال بريد إلكتروني إلى رئيس الوزراء الذي تتعامل مع بداياته كما هو الحال في نفس الصف الذي تم وضع علامة عليه كمكتمل. هل عنوان بريده الإلكتروني موجود في نفس الصف؟ يساعد الكود الموجود في الصف السادس في العثور على الأحرف الأولى من اسم مديري المشروع ، ويمكنك تغييره لجعله يجد عنوان البريد الإلكتروني.
الرجاء تغيير السلسلة "تم" في الصف الخامس إلى السلسلة الفعلية التي تستخدمها لتمييز المهمة مكتملة.
لاحظ أنه يمكنك تغيير المقتطف أدناه حسب احتياجاتك.
xMailBody = "مرحبًا" & vbNewLine & vbNewLine & _
"هذا هو السطر 1" & vbNewLine & _
"هذا هو السطر 2"
على خطأ استئناف التالي
مع xOutMail
إلى = xTo
.CC = ""
.BCC = ""
.Subject = "إرسال عن طريق اختبار قيمة الخلية"
. الجسم = xMailBody
. العرض "أو الاستخدام
' .إرسال
انتهت ب
إذا كان لديك أي أسئلة ، فلا تتردد في طرحها علي.
أماندا