Convert this macro to office script

Question

Hi! Could you help me? I need convert this macro to office script Thank you!!!

Sub Envio_Datos()


ActiveSheet.Range("A3:L19").Select



For i = 1 To ThisWorkbook.Sheets("DATOS").Range("A4").Value

    ThisWorkbook.Sheets("Envio").Range("A1").Value = i
    
    
    ActiveWorkbook.EnvelopeVisible = True         

    With ActiveSheet.MailEnvelope        
        .Item.To = ThisWorkbook.Sheets("Envio").Range("B1").Value
        .Item.Subject = "Acumulado mensual Objetivos - PRV"
        .Item.Send
     End With
 Next i
 End Sub