fileextstr

I am using the code that follows this message to email the active sheet in my workbook. The active sheet has a number of macros that, when executed, hide and unhide columns. Can this code be adapted to also copy the VBA macro code so that the sheet will be functional for the recipient? Thanks...

I am using the Ron De Bruin code to try and send a worksheet through e-mail. I have checked the Microsoft Outlook 16 Object Library and have this code that I am using, however on the 3 lines that are in red font, I am getting errors: (I have put the error that im getting in green on the line...

Hi All, Could someone help me with below macro. I have spreadsheet with one "Set Up" sheet where on column A is sheet name and column B email address where the sheet should be sent and in column C where that sheet should be CC. The below macro require email address to be stored in each sheet in...

Hello, I am working on automating email for my workbook using the below code and need to add more content to the body of the email. I have seen a few examples of how to add more lines but have so far been unable to get anything to work. Please can anyone advise? Option Explicit Sub...

Have been searching for hours and can't find anything to answer this... I have a worksheet that users will insert pictures (jpeg, gif etc.) as visual aids. What I would like is a way to extract all of the object images present on the worksheet and insert them as attachments in an Outlook email...

I am currently working on a workbook that all I need exported into a network path is the first worksheet. I am able to get this to save and move. However, it is saving on the main file. It is not saving within the folder I need it saved at. Below is the code I am using... ** Sub...

I have the following macro below which extract sheet 'Imported assets' and attaches it to outlook but without the email address/s I have the email addresses in S1 to S5 on sheet7 I would like the macro amended so as to extract the email address from sheet 7 which is in S1 to S5 Sheet...

Hi, I am using this macro to email every sheet in a workbook but can anyone tell me what lines I need to add/amend so if a person is receiving more than 1 sheet, they will only get 1 email containing several attachments and not say 10 emails. I will be emailing hundreds of sheets to several...

Hi I want to use this macro to email every sheet in a workboot but can anyone tell me what lines I need to add/amend so if a person is receiving more than 1 sheet, they will only get 1 email with each attachment and not say 10 emails. I will be emailing hundreds of sheets to several people but I...

I have the following code below that includes a range name The name AutoEmail is on sheet Macro V1:V2 The name Auto_Name is in sheet Macro U1:U2 On Error Resume Next With OutMail .To = Join(Application.Transpose(Range("AutoEmail").Value), ";") .CC = ""...

Found this code online, but making adjustments. I have a worksheet in my workbook (say Sheet5) that has a list of user defined sheet names (say the range is defined from C2:C20 in sheet5). I need to send an email with the sheets defined from the user that are listed in C2:C20 as attachments...

I have a financial template with about 40 worksheets that I use to create reports for various departments and financials. I currently have a VBA script that takes each worksheet in the workbook and copies it to its own new workbook (also puts all the files into their own folder), but the new...

I had this code working on a previous excel version ActiveWorkbook.SaveAs filename:=Path & "SA-" & FileName1 & "-" & DATES & FileExtStr = ".xls": FileFormatNum = 56 now I get an error. Can anybody help me ? Greets

Any suggestions on how to send an email from excel? I'm not sure my code is working or not. Sub Mail_Range() Dim Source As Range Dim Dest As Workbook Dim wb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim FileExtStr As String Dim FileFormatNum...

Hello everyone, I have spread sheet for like handover and each day needs to be send out Is it possible instead of FileExtStr = ".xlsm" get .pdf somehow? This is code I am using at the moment to create email Sub EmailWorkbook() 'PURPOSE: Create email message with ActiveWorkbook attachedDim...

Hello all, I have a workbook and would like to email a specific sheet in the workbook as an attachment. I've been using the code found on https://www.rondebruin.nl/ for years and it works well! I recently added a table on the worksheet i intend to email out and now the VBA keeps erroring out...

Hello I am using below macro to save my current workbook to a location on my desktop and email through out look. But what its doing is taking just my sheet1 of personal.xls and saving it an attaching in email. What am I doing wrong. Please help. Dim FileExtStr As String Dim FileFormatNum...

Hi, I'm not too experienced with VBA so resort to lots of Google searching and trial and error. I am trying to have Excel create one email for each Worksheet that has an email address in cell L2. Currently my macro successfully creates an email, attaches each worksheet as a workbook, and...

Hi everyone, I want to backup my workbook with below codes. First of all, codes are checking backup folder whether or not. If not the folder, being created in C:\ and then being identified. Finally, this code must saveAs active workbook. But not. Where I am making mistake I don't know. Could...

Anyone have a list for all of the file format numbers? I've done some poking around on the interwebsbut have only come up with the following... <o:p></o:p> <o:p></o:p> FileExtStr = ".xlsb": FileFormatNum = 50<o:p></o:p> FileExtStr = ".xlsx": FileFormatNum = 51<o:p></o:p> FileExtStr = ".xlsm"...