Set myitem = Application.CreateItemFromTemplate("C:\Users\*\WorkMSG3.msg")
Set EX = CreateObject("Excel.Application")
Set WB = EX.Workbooks.Open("C:\Users\*\epm\ÅÏÌ_ÓÏÊÑÁ1.xlsm")
 
i = 2
massiv1(1) = 1
 
For a = 1 To 5
i = 2
massiv1(1) = 1
Do Until massiv1(1) = 0
If WB.worksheets("ГЏГ«Г*Г* ìåðîïðèÿòèé").Cells(i, 2) <> "" Then
  If WB.worksheets("ГЏГ«Г*Г* ìåðîïðèÿòèé").Cells(i, 15) = "Ïðîñðî÷åГ*Г®" Then
     If WB.worksheets("ГЏГ«Г*Г* ìåðîïðèÿòèé").Cells(i, 8) = massiv3(a) Or WB.worksheets("ГЏГ«Г*Г* ìåðîïðèÿòèé").Cells(i, 8) = "ГўГ±ГҐ ГђГЉГЊ" Then
        massiv1(massiv1(1) + 1) = i
        massiv1(1) = massiv1(1) + 1
      End If
  End If
Else
    Exit Do
End If
i = i + 1
Loop
Call delaem_elementi
 
Erase massiv1
Next a
 
myitem.SaveAs ("C:\*\Worker_" & Format(Now, "dd mm yy") & ".msg")
Set myitem = Application.CreateItemFromTemplate("C:\*\Worker_" & Format(Now, "dd mm yy") & ".msg")
 
myitem.Display