I am trying to set my cod up so I can email my excel sheet to multiple people. I tried using a ";" to separate the email addresses (as shown below) but that doesn't seem to work.
With ActiveWorkbook    .SendMail Recipients:="bubba@gmail.com;bubba2@gmail.com", Subject:=s    .Message = m    .Close SaveChanges:=False    End With
Here is my code below for a program that opens a user interface, lists all the names of tabs in the spreadsheet in a list box. By selecting an item (or sheet name) in the list box then clicking "email" a specific area of that selected sheet is sent to an email address located on the sheet.
What I would like to have happen is with the click of a button email each sheet to the specified email address. So if there were 100 sheets rather than clicking on each name then clicking email, have one button to email the each individual sheet to the associated email address. I am guessing something like a "For" loop would be required but am not quite sure how to implement.
Code:
Private Sub CommandButton2_Click()
ActiveWorkbook.Close
End Sub
Private Sub ListBox1_Click()
'this will set the label caption depending on which sheet is selected in the list box
Label1.Caption = Sheets(ListBox1.Value).Range("b2").Value
[Code] ..........
My excel sheet keeps a list of Email addresses on column B (with duplicate email addresses), and their particulars from column C (Item price, purchase date, etc) onwards.
I need the vba to email multiple recipients (those with the "notification" field marked as yes) with their purchasing details in it. It should also prevent multiple emails to the same email address.
PS.Using Excel/Outlook 2010
get the code for sending multiple emails as per the spreadsheet list. Assume the spreadsheet has 100 line items and each columns specifies the name of the person, value, recipient email address ("To" and "CC") and sender name.
And the Body of text is :
Hi "Name of the person" Please find the value of "Value" to be paid for the moth of xxx and kindly let me know for further clarification.
I'm trying to email multiple worksheets from a list to multiple recipients in a list, but in one file per person. In a sheet called "Email list", for example, I have a list of 50 worksheet names (e.g. one for each cost centre) in column A (with a heading in cell A1, if that's OK, so the list starts in A2) and in columns B-F up to 5 recipients for each worksheet (e.g. 3 recipients might be 2 supervisors and their manager).
Also, each manager and supervisor might also receive several sheets.
Although columns B-F are presently free-format (they can be anyone's email address, regardless of whether they're a supervisor or manager), it might be easier to split these columns so B,C,D are supervisors emails and E,F are managers, if that makes it any easier creating the collated file of worksheets..?
Unfortunately the recipients might change occasionally so they can not be hard keyed into the macro itself (which would be much easier), but need to be in a table so it's easier for the user to update and maintain - in the past, I've managed to hard key the requirement into a macro which I've maintained (by recording and editing the macro), but I don't know the VB to figure this new request.
Ideally, I am trying to create a macro that can collate the various worksheets each person will receive and send the selected sheets in one file to that recipient, rather than multiple files within one email and/or multiple emails.
I'm not sure if this is a macro problem or an Outlook problem. I'm using the routine below to email a group of recipients through Outlook (not Outlook Express). The routine works fine for one recipient, but doesn't seem to work for multiples. I searched online, and found a solution of putting the email addresses like this:
"Joe@email.com;Bob@email.com;Mary@email.com"
That didn't work, so I tried it below with AND, which also doesn't work. What happens in both examples is that Outlook tells me something else is sending a message, and do I want to allow it (same as message when I send to a single recipient). I say "yes", it appears to go through, but nothing is sent from my outbox. Here's the
I have obtained the following code which works great apart from the fact that I want to just send one email to all addressees instead of multiple emails.
View 11 Replies View RelatedI am using the following code to try and send a workbook via attachment to multiple email recipients however it will not work. If I only include one recipient then the code runs fine however it crashes when there is more than one.
View 8 Replies View RelatedMy Macro sends a PDF to a "To:" recipient and a "CC:" recipient. Both email addresses are referenced from cells. Here are the first four lines of the code:
With OutMail
.SentOnBehalfOfName = "myaddress@mycompanyname.com"
.to = Sheets("Sheet1").Range("N8").Value
.CC = Sheets("Sheet1").Range("T8").Value
The code works great right now. However.......
I've added another email address to Sheet1. The address is in U8. I need it to be the SECOND CC. I could BCC it easily, but that is not an option.
Code I would add behind .CC = Sheets("Sheet1").Range("T8").Value to make it also CC the email address in U8?
I have searched high and low on the forum and can not seem to find a solution to my problem. Here is my problem (besides being new to Lotus Notes): I need a button on my excel worksheet that gets information from Column H in the attached spreadsheet and puts all the emails in the To: (could be >than 100 email addresses) Field in Lotus Notes. I would like to have the subject read "New Email from Your Basin Coordinator" and have the CC list come from a second worksheet (CC).
View 4 Replies View RelatedMy vb code works well for sending worksheets to multiple recipients (about 400 rows) IF I have only one email address in a cell, however, I have some rows that have more than one email address (eg. bob@hotmail.com, dan@gmail.com). I've spent hours researching a clean way to do this and I think I need to be able to extract each of them and assign them to a variable to use in an array???
I'm using Lotus Notes 6.5 and Excel 2003.
'Here is where I get the email address to put in the mailAddress variable
Workbooks("GSA Mileage Report.xls").Activate
mailAddress = ""
On Error Resume Next
mailAddress = Application.WorksheetFunction. _
VLookup(EmailAddrSheet.Cells(RowNum, 1).Value, _
Worksheets("MailInfo").Range("A1:B" & _
Worksheets("MailInfo").Rows.Count), 2, False)
On Error GoTo 0
I have a macro which sends an excel file to certain recipients via outlook. I have embedded the voting buttons in the same macro. However, when I respond to the voting buttons, I am unable to add the sender and another group. The current macro .readrecipients, enables me to send it to the sender. I would like to add another group id to the same.
View 1 Replies View RelatedI feel like I almost have the Excel button I need (thanks to an exhaustive forum search), but I have 2 problems that I need help to correct. First, the code works fine if I have one email address in my Email column, but If I add a second or third email in my column, the code sends the mail, but bounces back because of an Invalid Internet address specified error. The response looks to me like it is taking the first address and appending to the second email recipient. An example would be <example@example.com,example>@example.com. Here is the code I am using:
View 3 Replies View RelatedI found the following macro after much digging and got it to work for me, but I'd like to go one better. Currently it sends a simple breakdown of orders that need to be placed. The data lies in a sheet called "Orders" where column A is the vendor name and column B is the order total.
This data is pulled from numerous other sheets, one for each vendor. What would be awesome is if I could send each vendor an email consisting of:
1. Item Number - Column C
2. Item Description - Column D
3. My Cost - Column F
4. Quantity to Order - Column J
5. Order Total - Column K
The complications I've thought of so far:
1. Each sheet is an inventory for the items we have from that vendor. It could be just a few items, or it could be two hundred.
2. There is one row per item, but not every item will have need to be ordered. I don't want an item to be included in the email unless there is an order quantity in column J associated with it.
3. Each sheet should be emailed to a different address which I'll put in A1 for that sheet.
I'm thinking I should do this under each sheet so I can just hit a button on that vendor's sheet and send each order independently.
Code:
Sub LNotesEmailPartsOrders()
Dim NSession As Object
Dim NDatabase As Object
Dim NUIWorkSpace As Object
Dim NDoc As Object
Dim NUIdoc As Object
[Code]....
I have a macro currently using the activeworkbook.sendmail command to send out an email using LOTUS NOTES with the workbook as an attachment. Unfortunately, the code appears to only support putting recipients in the TO field. I need to be able to also add additional recipients under the CC field.
View 1 Replies View RelatedI know there are plenty of examples on how to do this at a basic level but I am looking at making it a bit more custom.
I would like to put some variables on a sheet in a workbook and use those to drive the behavior of the code.
EG I would like to specify the save-as-pdf path (eg c:users.etc), the email addresses to be emailed TO (specify a range eg A1:A14 where each cell has a different email addy in it), like wise for CC and then BCC (new ranges), also be able to specify subject of email (EG Cell F1.value is email subject).
I have an excel sheet with 25,000+ emails in column A with hyperlinked emails addresses, Column B has different Subject lines based on the category the clients belongs to but on the same sheet, Column C has the following hyperlink :
=HYPERLINK("mailto:"&A2&"?subject="&B2,"Email")
To create a hyperlink of the email address with the desired subject line.
macros that i could use to open about 25/50 outlook message with the email ids in column A of the sheet and the subject lines in column B.
I don't want the messages to be sent automatically but i want to have the option to change the body of the email if necessary.
I need a code to convert different excel files into pdf and send to different recipients.
View 3 Replies View RelatedAuto generating an e-mail that will consolidate duplicate rows for 'column a' in my attachment. The key here isn't necessarily deleting the rows... What i really need is vba code that will enumerate through the table and auto generate an e-mail for each individual. For each individual, i need the code to generate a table in the body of the e-mail & attach the activity for that recipient and the date. The trip up here is when a recipient has two activities associated to their name, and their name shows up multiple times in the data set.
I need the code to
a) identify the duplicate recipient,
b) send out 1 email for that person, and
c) attach each activitiy/date (2 or more) to a table.
Automate the Consolidation of Duplicate Recipients to 1 Email (2).xlsm
I been trying to create stuff that will make my work life real easy. I need creating a program that will send an email to different recipients. I created a spreadsheet the contains different information. When a persons name is selected on Column D, excel/outlook will generate an email to that person containing the info on Column A to D.
And then as soon as the work is processed and column G is filled, outlook will generate an email back to who created the requests column A.
I have been trying to write a couple of macros;
1) save file as pdf, to be saved as filename=(cell in A1 & todays date (format yyyy-mm-dd)) and overwrite any existing file of the same name.
2) Email the pdf to a set of recipients round in Range "A2:A3", and subject = (cell in A1 & todays date (format yyyy-mm-dd))
I have this code below to send a workbook as an attachment to different recipients.
The macro finds the recipents by going through a list. The problem I am having is when it moves through the second loop and enters the line which is starred in the coding below.
Run-time error '-2147221238(8004010a)':
The Item has been moved or deleted.
Sub Mail_Workbook_1()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
[code].....
How I solved my problem of sending out information to more than one email recipient using Lotus notes email and Excel 2003 vb code. I created groups in Lotus Notes for those with more than one email address Then I assigned a string to vaRecipient like so:
.SendTo = vaRecipientThe string was either one email address or a lotus notes group name.
Dim wb As Workbook
Set wb = ActiveWorkbook
wb.SendMail "person@address", _
"This is the Subject line"
and this seems to work fine. Could there be any potential problems with this? All senders and recipients should be using outlook. Also is there a way to send the workbook but lose any macros attached. I'm not sure that all recipients will be able to receive workbooks containing macros.
I am attaching workbooks which reflect my original work. I have some questions :
1. How can I allow users to view this with everything working fine? (zipping and emailing was suggested, but I am getting some errors)
2. How can I ensure that the viewing format remains same for everyone viewing it?Al colleague of mine, tried and the formatting is wierd for him
Does any want know how to do the following:
1. In the same Workbook, I have one sheet with email addresses.
2. On Sheet 1, in Cell D3, I have the actual email address I want to send(Used data validation drop-down to get email address)
3. I´ve used many codes and it sends very well, however it does not send the email as a fully functioning workbook.
4. The recipient gets the following message "This book contains links to other sources"
I have a spreadsheet that I email daily after I update the information in it.
I was unable to find a "Code" to do so when I wrote it so what I did instead is use the Sendkeys funtion to emulate the keystrokes as if I were doing it manually. This works well with one exception.
I now have 5 email accounts and I do NOT want it to email via the default. I need to SPECIFY wich account to email thru. But I can ot figure out how to do this.
Sub Email()
' EMAIL Macro
ActiveWorkbook.Save
Application.DisplayAlerts = False
Windows("Load List.xls").Activate
Sheets("email").Visible = True
Sheets("email").Select
Range("a1").Select
SendKeys ("%f")
SendKeys ("d")
SendKeys ("m")
Application.DisplayAlerts = True
ThisWorkbook. Saved = True
I'm trying to create a macro the saves a report and then opens an email dialogue box populating the recipients from a list. I have the following code so far but the receivers are constant.
[Code] .....
I have attached a simplified example of the list. The list is always sorted by time and date. Not including headers, the list can be from 1 to an unspecified number of users long and users may repeat throughout the list any number of times.
The user name always appears as their email address prefix and the email address will always end in "@example.com".
I am aware that a loop could perform this task but do not know how to employ it in this case as it must not repeat recipients and will also need to populate the EmTo line. Possibly a second loop for this?
Attached File : Report Test.xlsx
When I attach a 1 page spreadsheet to an email and send it to my boss, the spreadsheet is no longer on one page when he opens it. What causes this and how can I fix it on my end or fix it from his end to keep the same format?
View 2 Replies View RelatedAdd worksheet as an attachment to an outlook email by having a button on the spreadsheet itself. However I have added another worksheet which i would like to add to the same email ie 2 attached worksheets to the same email this being decontamination certificate. I have tried to do this myself by copying and pasting some of the code and changing the paths and name but all I get is one or the other or the wrong name to the worksheet.
View 10 Replies View Related