طلب تعديل كود المرفقات والبريد الالكتروني في اكسل

[BoShibh]

الاخوة الاعزاء .. السلام عليكم ورحمة الله وبركاته .. تحية طيبة 

لدي ملف تم تصميمه ليتم ارسال رسالة بريد الكتروني مباشرة من الاكسل يتم فيه ارفاق تقرير الى موظفين معينيين يتم تحديدهم وفق دالة VLookUp 

والمشكلة الان لدي هو ان الكود لا يعمل عند الضغط على كلمة ( ارسال ) والاكواد :

Sub mail()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Gate")
Dim i As Integer

Dim OA As Object
Dim msg As Object

Set OA = CreateObject("outlook.application")

Dim last_row As Integer
last_row = Application.CountA(sh.Range("M86"))

For i = 86 To last_row
Set msg = OA.CreateItem(0)
msg.To = sh.Range("M76:M79").Value
msg.CC = sh.Range("M80").Value
msg.Subject = sh.Range("M81:O81").Value
msg.Body = sh.Range("M83").Value

If sh.Range("L85").Value <> "" Then
msg.Attachments.Add sh.Range("L85").Value
End If

msg.Send

sh.Range("L86").Value = "تم الارسال"

Next i

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

End Sub

وايضا كود ارفاق ملف التقرير ايضا لايعمل مع المحاولات العديدة والكود :

Sub Attachment()

Dim objFiledialog As FileDialog
Dim sFilename As String
Dim sFiles As String
Dim iFile As Integer

Set objFiledialog = Application.FileDialog(msoFileDialogFilePicker)
Set wb = ThisWorkbook
Set wsPanel = wb.Sheets("Gate")

With objFiledialog
    .AllowMultiSelect = True
    .ButtonName = "حدد الملف"
    .Filters.Add "Add Files", "*.*"
    .Title = "حدد الملف"
    .InitialView = msoFileDialogViewTiles
    .InitialFileName = ActiveWorkbook.Path
    .AllowMultiSelect = True
End With

If Not objFiledialog.Show() = True Then
    Exit Sub
End If

'If directory is empty
If objFiledialog.SelectedItems().Count = 0 Then
    Exit Sub
End If

sFiles = ""
For iFile = 1 To objFiledialog.SelectedItems.Count
    DoEvents
        sFilename = objFiledialog.SelectedItems(iFile)
        sFiles = sFiles & ";" & sFilename
Next

sFiles = Replace(sFiles, ";", "", 1, 1, vbBinaryCompare)
wsGate.Range("Attach").Value = sFiles

End Sub

نامل منكم المساعدة في معرفة الخطا اين يكون ومراعاة ترتيب الخلايا من ناحية العمود والصف ومرفق الملف لكم للاطلاع واجراء التجارب

ولاحركم الله الاجر 

المشكلة ان حجم الملف كبير ولم استطع ارفاقه

[BoShibh]

الملف موجود على هذا الرابط : https://drive.google.com/file/d/1whKMGSB0XKFf3HKclcoGv54hkaB5iklN/view?usp=sharing