TempFileName = "Copy of " & wb1.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")įileExtStr = "." & LCase(Right(wb1.Name, Len(wb1.Name) - InStrRev(wb1.Name, ".",, 1))) 'If you want to change the file name then change only TempFileName 'Make a copy of the file/Open it/Mail it/Delete it Private Attachment, Expression, Matches, FilenameMatch, i Are there any other considerations I should be aware of when its executing on MAC OSX with Office 2016? Private Message As CDO.Message The method I'm currently using to send an email is Windows CDO. The attachment is a temporary version of the ActiveWorkbook which is deleted after the email is sent. The macro creates an email with a workbook attachment. Instead of making two versions of the macro with separate buttons for Windows and Mac users, I would like the script to recognize the current OS and run the appropriate set of commands for that OS. ![]() My following code works correctly on PC but does not work on a Mac.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |