Excel 2010 :: VBA Loop Code To Automatically Email Range Of Cells And Email Addresses
Sep 16, 2013
I am using Excel 2010. I have been given a task at work that can save my team a lot of time if I can solve the problem. Every month, we have a spreadsheet with about 5000 rows that we have to email. In each row, there is a range that we have to email to a specific email. For example, I would have to copy and paste Range A2-R2 in the body of the email, and then email it to whatever email is in cell S2. I would then continue this for the next 5000 lines, making it a possibility that i will be sending 5000 emails manually.
I have been trying to come up with a solution through VBA that would automatically send these emails. My goal is to automatically send the Range A2-R2 to outlook email, then cell S2 into the "To" email address box, and then automatically send it. So far, i have successfully been able to send one row, but cannot figure out how to loop it for the remainder of the rows.
A couple other key points are that I have column headings as well (Range A1-R1). If possible, I want to be able to include the column headings in the email body as well. Example - first email would be range A1-R2. second email would be range A1-R1 and A3-R3, and so forth. The body of the email would also contain a standard script, such as "Please review the information below."
The goal here is to save everyone from having to send 5000+ manual emails. This would be a big boost for my team.
Code:
Sub Email()
Dim rng As Range
Dim OutApp As Object
[Code].....
View 5 Replies
ADVERTISEMENT
Jun 21, 2014
Have an Excel 2010 spreadsheet with 902 email addresses in one column, and 927 email addresses in other column, sorted in alphabetical order.
Overview: Organization database has 902 Members (some have 2 email addresses subscribed to listserv) and Organizational Listserv which has all 927 (Difference is numbers are some members have 2 email addresses subscribed) BUT 902 of emails should be the same
Objective to compare Listserv Members 927 with Database Members 902. I am trying to isolate the email addresses which do NOT exist in Listserv Column, or who do not exist in Database Column for Audit purposes. All Members from the Database column should be subscribed or entered into the Listserv column.
If it's a perfect world the 902 email addresses will all be exactly the same as 902 out of the 927 Listserv email addresses.
Trying to highlight or sort and put identical email addresses on same line or using Conditionally formatting? Highlight Cell Rules/Duplicate cell rules Even when same email addresses are on the same row conditional formatting does not recognize them.
View 4 Replies
View Related
Jan 24, 2012
what is the proper terminology for the Outlook "Thing" that opens up in excel (shown below)? Is it simply a toolbar? Add-in?
Second question, I have a excel file that automatically loads the outlook "Toolbar" each time it is opened.
The file was made in 2010 and password protected and locked, sent to a worker who edited the appropriate fields and saved, and then they sent the file back to me (2003 Format). Now this file automatically loads the outlook toolbar. I am trying to trouble shoot so what would cause this behavior?
View 4 Replies
View Related
Apr 15, 2014
We know that professional emails have a fixed format. I have a list of people with their names and emails and there are some people for which emails are missing. I am pasting my sample data below. But first let me explain the meaning of columns.
Column A: Means full name of the person for which we have email id
Column B & C: just split of Available full name into first name and last name
Column D: Email id of the person with full name in column A
Column E: For the names in this column, we need to get email ids
Column H: Sample result
Now basis on the Full Name(Column A) and Email Id(Column D) can we get the email id for person in Column E.
Sheet4
A
B
C
D
E
F
G
H
1
Available Full Name
Available FirstName
Available LastName
Email for available full name
Actual Full name
Actual firstname
Actual lastname
Sample result
[Code] .........
View 2 Replies
View Related
Oct 13, 2009
I am using the following code and it works great the only problem is that when I have more then one email address in the same cell it will not send the email. Even if I seperate it with a semicolon. It work fine if I have just one email address in the email field. How can I get it to send the same info to different email addresses.
View 4 Replies
View Related
Jan 4, 2010
I have a code that i got from here which will send the Workbooks named in col A to email addresses in col B, as below..
but i need it to send the named Worksheets from the currently active Workbook.
The name of the Worksheet will be contained in col A.
Sub SendWkbs()
Application.ScreenUpdating = False
Dim wks As Worksheet
Dim iRowA As Integer, iRowB As Integer
Set wks = ActiveSheet
iRowA = 2
On Error GoTo EH
Do Until IsEmpty(wks.Cells(iRowA, 1))
iRowB = 2
View 9 Replies
View Related
Apr 22, 2013
How do I copy 100 email addresses at the top of an email and post them in an Excell spreadsheet where each email address is in one cell i.e. 100 cells?
View 2 Replies
View Related
Apr 2, 2013
Column A has rows of email addressess.
I need a macro to grab each email address and concatanate with a ',' in between so I can send the list to someone and they can use to email this group.
View 1 Replies
View Related
Mar 7, 2013
I have a list of email addresses in the range K10:K33, (one address per row).
How can I use that range as the 'To' field of an email address, putting a ';' between each name?
This is what I am using at the moment but I want to amend it to do the above;
Code:
Sub Mail_Selection_Range_Outlook_Body1()
Dim rng As Range
Dim OutApp As Object
[Code]....
View 2 Replies
View Related
Apr 7, 2012
I have 450 names for which I would like to create email addresses. For example:
Name: John Doe
Required email address: John.Doe@boston.gov.tr
Is there a way to convert all 450 names in one go so I can then upload to MS Outlook and then send emails to these people? I am using MS Excel 2003 & 2007.
View 3 Replies
View Related
Apr 5, 2009
I'm a primary school class representative and I want to create an excel contact list of the parents email addresses so that I can click a button, it will open the default email (in my case MS Outlook) and then populate the "To" email address field with the email addresses (separated by a comma).
Can anyone provide me the VB code that I can paste into my worksheet VBA that will look at a range of cells (say E2:E30) that contain email addresses, and put them in the "To" field of a blank email?
I have put a button on the page and it's called "EmailButton" but I don't know what VB to put with it. I'm using MSExcel 2007 (at home) and 2003 (at work)
View 7 Replies
View Related
Sep 3, 2008
I am currently working with a team of people who are on connected to different networks, and frequently coming on and off the project. We hold a spreadsheet with everyones details, and some of these details are the mailing lists each person should be subscribed to. For example "System Downtime","Team Leads" etc.
As people come and go, we dont want them recieving emails when they are not on the project.
Attached is a greatly cut down version of what we have. For most users the data will be locked down - we want them to be able to copy the mailing lists to their clipboard via a dashboard so they can then paste it into their Outlook.
Pseudo
On clicking "Copy to your clipboard"
Lookup mailing list selected in drop down (This dropdown validates on the MailingList range D2:I2)
Look for the corresponding column for that mailing list
Only look at rows where the individual is on the project ("Yes")
For each person with "Yes" in the column for that list, concatenate their email address
Copy the result to the users clipboard, ready for them to paste into the To: field in their browser
View 5 Replies
View Related
Mar 2, 2009
I currently have a button then when pressed automatically sends a summary report taken from the first page of Sheet 1.
Worksheet needs to be protected all the time, but Macro only works on an unprotected worksheet.
I was wondering what additional code and where to put in so that when
protected back again after Macro has been executed?
Here’s the Macro taken from [url]
View 11 Replies
View Related
Apr 29, 2014
I have specified the email addresses in the code to whom the email will be sent when the user presses "Send Email" button but now I want to add all the addresses in the Access table and write down the code that will send an email to those people whose addresses are in the Access table.
[Code] .....
View 5 Replies
View Related
Mar 25, 2014
I am trying to send bulk emails from my excel 2010 - however I am getting a POP UP. find the screen shot in the enclosed word document So every time a new mail is sent from excel we need to press the button allow Is there a way where I can turn off this warning.
View 6 Replies
View Related
Jun 20, 2014
I need VBA code to automatically send an email notification when data is added to worksheet. I am not very familiar with writing code and have been using other code from other posts. Ideally I would like it to send an email notification with the added information attached, in this case it would be Row # and Columns A thru O.
View 1 Replies
View Related
Jan 30, 2014
I run excel 2010 on a windows 8.1 machine. In excel I have email address that I need to mail from however when I click the hyperlink it automatically directs me to Hotmail. Is there a way to change that to automatically load Outlook instead?
View 7 Replies
View Related
Jul 11, 2012
Code:
Sub email()
Dim myOutlook As Object
Dim myMailItem As Object
Dim FName As String
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
FName = ActiveWorkbook.Path & "" & ActiveWorkbook.Name
[Code] .....
This code runs fine in order to send an e-mail from outlook while i'm in excel. I would like to change it a bit
The excel has 4 sheets.
The third sheet is named "new items".
In this sheet in COLUMN K i have numbers and empty cells.
What i would like is when in COLUMN K number "7" exists then copy the enire row- and all other rows with "7" to a new excel named "new items" and send an e-mail to specific receipients with "new items" attached.
I will change the code above in order to run this macro by workbook.open()
Plus i'm thinking of adding a message box if no "7"'s exist.
View 4 Replies
View Related
Oct 31, 2011
I can create emails with Outlook in VBA (Excel 2010), but can't find how to select the font, font size and font colour I want.
View 9 Replies
View Related
Nov 10, 2011
I have a Macro in Excel 2010 which emails each tab to a distribution list.
However Outlook asks for permission each time to send the email, is there a way to disable this ?, or get Outlook to grant permission for a set amount of time ?
View 2 Replies
View Related
Aug 5, 2013
I have a list of email addresses with the periods stripped before the .com, .net, etc.
How to insert the period to go from example@mailcom to example@mail.com? Obviously the email addresses are of different lengths, but it's always 3 characters after the inserted period.
View 3 Replies
View Related
Sep 4, 2007
This time I have exported messages from Outlook to Excel in an attempt to extract email addresses that are held within the body of the email. An example ofthe email body is this:
This is the qmail-send program at lon5.mailcustodian.co.uk.
I'm afraid I wasn't able to deliver your message to the following addresses.
This is a permanent error; I've given up.
:
212.
All of this is held in one cell with line breaks as shown above. Is there a way of getting Excel to recognise an email address and plonk it in the cell nextdoor? Something like 'find the @ symbol and extract before and after until a space is reached'?
There are a lot of different styles of email body, therefore find and replace would be a very time consuming excersise.
View 9 Replies
View Related
Oct 22, 2007
In column AB i have a massive list of email addresses i want to capitalise the first letters of fist name and surname like:
adam.adam@nowhere.co.uk becomes Adam.Adam@nowhere.co.uk
But they could also be like this adam.2.adam@nowhere.co.uk so they wont always be in the same format.
I have a formula in another column which snatches the name from the email address then a maco which creates a mail based on this i need the email address first and last name to be capitilised so the mail created has the correct case: Dear Adam and not Dear adam.
View 9 Replies
View Related
Nov 3, 2011
I have a macro that will email a link of the worksheet.
the problem is I may have different email addresses to send it to. I want to be able to have an input box come up, and the person to enter in an email address, click ok and have the macro continue to email.
Sub Make_Outlook_Mail_With_File_Link()
'Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim StrBody As String
If ActiveWorkbook.Path "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
[code].....
View 2 Replies
View Related
Feb 20, 2012
i have Office 2010 and an Excel sheet that I need to use as the source in a Word Email merge.
I am trying to avoid the user having to open Word & run the Merge manually by providing some code in Excel to perform the task & create the emails.
View 3 Replies
View Related
Aug 30, 2012
I've got a file that works fine on my computer. When I email it to anyone with 2010 and they open it from their email account (Outlook 2010), the file automatically opens up in 'Protected Mode'. If the user selects "Enable Editing" the user receives 'Run Time error 91: Object variable or with block variable not set'.
If the user closes out the vba error and saves the file to their computer and reopens the file, it works fine.
BTW, it is not a complex macro, it is error out at
ActiveWorkbook.Sheets("Worksheet").Select
View 1 Replies
View Related
Jan 7, 2013
It copies one of the work books, Saves it and then emails this as an attachement to a few people.
All users are on Excel 2010, however the file originally was created in Excel 2003. The File Extension Was .xls as was the attachment.
First time I sent the email this year it came through corrupt. No changes had taken place in the workbooks or the code.
I have now updated the spreadsheet and saved it as a .xlsm
I have also updated the code so the attachments are .xlsx
The email attachments are always corrupt.
Code:
Sub copy2()
Application.ScreenUpdating = False
Dim fname As String 'filename
Sheets(Array("To Order", "WO To Chase", "PO To Chase", "Contact", "WO Report")).Copy
fname = Year(Date) & " " & Month(Date) & Day(Date) & " Chase & Order" 'filename!!
ActiveWorkbook.SaveAs FileName:= _
[code]...
where the corruption might come from? Its not via the email as if I go to the saved file its corrupt as well.
View 7 Replies
View Related
Oct 18, 2013
I am using MS Excel 2010.
I have a workbook with 2 separate spreadsheets.
Spreadsheet 1: GOLD
3 Columns:
A1 Number, B1 Name, C1 Acct Bal D1 (Empty)
Spreadsheet 2: Email
2 Columns
A1 Number, B1 Email
I would like to pull the email address for the corresponding Number From the Email sheet to the GOLD spreadsheet and have it end up in Column D
There are more rows in Sheet 2 than 1. I have already narrowed down the ones I need in Sheet 1. (Sheet 1 has 150 rows, Sheet 2 has 7315)
View 1 Replies
View Related
Mar 7, 2014
I have an excel workbook (Excel 2010) consisting on 30 sheets, I would like to add a command button to one (1) of the sheets that would attach just that sheet and not the whole workbook to my Outlook 2010 email, is this possible. What would the code look like.
View 1 Replies
View Related
Mar 12, 2014
I copied a series of email addresses that I would like to convert into text. The email addresses, when hovered over, have a mail to: in the address. If I remove the hyperlink, all I get is the person's name but not the actual email address. How can I get just the email address?
View 8 Replies
View Related