
:max_bytes(150000):strip_icc()/ScreenShot2020-01-30at10.56.43AM-d21b478335ff4e988fc21910ba8d8b0c.jpg)
It works by creating a new workbook comprised of the Activesheet, saving it, then emailing the saved file alone to a recipient(s). The following will email the activeWorkbook to a mail recipient via Microsoft Outlook.

Public Sub SendAllFiles() Dim Files As VBA.Collection Dim File As Scripting.File Dim Mail As Outlook.MailItem Dim Atts As Outlook.Attachments 'Send the files of this directory m_Send = "C:/Sample/" 'Move send files here m_Done = "C:/Sample/Sent/" 'Recipient m_To = "" Set Files = GetFiles If Files.Count Then For Each File In Files Set Mail.The format of the timestamp is "YYYYMMDD_HHMM". When you select this option, a timestamp is appended to the filename. By default the filename of an email attachment is also used as filename for the attachment in the JIRA issue. Add timestamp to filenames of attachments. The image is added as attachment to the JIRA issue.
