Visual Basic

''' If the long formula can be broken into parts, where the second part can
''' be replaced by a dummy function, this approach can be used...
Public Sub LongArrayFormula()
    Dim theFormulaPart1 As String
    Dim theFormulaPart2 As String
    theFormulaPart1 = "=IF(MONTH(DATE(YEAR(NOW()),MONTH(NOW()),1))-" & _
                          "MONTH(DATE(YEAR(NOW()),MONTH(NOW()),1)-" & _
                          "(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),1))-1)+" & _
                          "{0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}-1),""""," & _
                          "X_X_X())"
                          
    theFormulaPart2 = "DATE(YEAR(NOW()),MONTH(NOW()),1)-" & _
                      "(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),1))-1)+" & _
                      "{0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}-1)"
        
    With ActiveSheet.Range("E2:K7")
        .FormulaArray = theFormulaPart1
        .Replace "X_X_X())", theFormulaPart2
        .NumberFormat = "mmm dd"
    End With
    
End Sub

Dim smtpClient As New Net.Mail.SmtpClient()
        Dim mail As New Net.Mail.MailMessage()
        'create the message to be sent 
        mail.To.Add("test@test.com") ' Enter the Email of the person you want to send the mail to
        mail.From = New Net.Mail.MailAddress("username@gmail.com", "Your Display Name") ' Enter Your email address
        mail.Subject = "Test Message"
        mail.Body = "This is a test message"
        ' Prepare the client to send the above message
        'Attach the file as attachment 
        mail.Attachments.Add(new System.Net.Mail.Attachment("yourFileName.xls"))
        smtpClient.Host = "smtp.gmail.com"
        smtpClient.EnableSsl = True
        smtpClient.Port = 587
        smtpClient.Credentials = New Net.NetworkCredential("username@gmail.com", "password") 'Enter username and password of the account , you want to use to send mail
        smtpClient.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
        smtpClient.Send(mail)