ارسال ايميل من اوت لوك اذا تحقق شرط في خليه

[best smile]

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

Private Sub CommandButton7_Click()
Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = ""
Email_Send_From = ""
Email_Send_To = ""
Email_Cc = ""
Email_Bcc = ""
Email_Body = ""
On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.CC = Email_Cc
.BCC = Email_Bcc
.Body = Email_Body
.send
End With
debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub

 

[best smile]

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

[best smile]

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