الثلاثاء، 20 سبتمبر 2022
  1 الردود
  1.7 ألف زيارة
0
الأصوات
فك
مرحبًا ، أنا جديد جدًا في التفوق وكنت أتساءل عما إذا كان من الممكن إعداد رمز Excel بطريقة ترسل بريدًا إلكترونيًا إلى شخص معين عندما يتم وضع علامة على قيمة في عمود على أنها مكتملة. على سبيل المثال ، إذا كانت JobX في A2 ، وفي نفس الصف تكون الأحرف الأولى لمديري المشروع في هذا الصف ، B2 ، يتم وضع علامة على هذه المهمة مكتملة في C2 ، عندما يتم وضع علامة على العمود C مكتمل ، يجب إرسال بريد إلكتروني إلى PM الذي الأحرف الأولى منه في هذا الصف. لقد وجدت رمزًا يمكنه إرسال بريد إلكتروني عندما يتم وضع علامة على خلية العمود على أنها مكتملة ، ولكني كنت أتساءل عما إذا كان بإمكاني أن أكون أكثر تحديدًا مثل إرسال بريد إلكتروني إلى شخص معين عند استيفاء شروط معينة. شكرًا،
كريس
منذ أشهر 4
·
#3076
0
الأصوات
فك
مرحبا هناك،

من فضلك جرب الكود أدناه :)
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
. العرض "أو الاستخدام
' .إرسال
انتهت ب


إذا كان لديك أي أسئلة ، فلا تتردد في طرحها علي.

أماندا
  • الصفحة:
  • 1
لا توجد ردود لهذا المنصب حتى الآن.