Excel 2007 :: Automatically Generate Email When Button Is Pushed
Oct 25, 2012
I am using the following piece of VBA code in Excel 2007 to automatically generate an email when a button is pushed:
Sub SendEMail()
Dim Email As String, Subj As String
Dim Msg As String, URL As String
Dim r As Integer, x As Double
r = ActiveCell.Row
'Get the email address
Email = Cells(r, 3)
[Code] .....
The button to launch this code sits in cell AK7. What I would like to do is have the macro copy the email address present in cell E7 into the email address section of my created email. In addition I would like the reference provided in cell AJ7 to appear in the Message Subject part of the generated email in the format " RCS Reference contents of cell AJ7".
View 3 Replies
ADVERTISEMENT
Sep 13, 2013
I am using Excel 2007 and have to send monthly payslips to respective email ids. I have the Name and Email ids in Sheet 2 Range B1:C59 , and employee codes in A1:A59. And in Sheet 1 i have the Payslip format which was automatically displayed when i select the employee code from drop down list in the cell E7 in sheet 1.
Every time i manually save the files as PDF and send to their Emails. I want the out put as whenever i select the employee code from drop down list , it should automatically save as PDF with Name of that employee ( Name of the employee is located in B1:B59 in Sheet 2 ) and attachment should automatically go to that employee's email Id.
View 2 Replies
View Related
Jan 2, 2009
I have a spreadsheet that automatically creates an email (based on code from rondebruin.com and some manipulation from a consultant) and initially would just save a copy of the message on our network (for records purposes) as well as sending it.
However it occured to me after that there will be times when attachments are required and as such for archiving purposes it really needs any attachments to also be saved as part of the email. What I believe to be the relevant code is shown below:
With OutMail
.To = TextBox6.Value
.CC = ""
.BCC = ""
.subject = "MRWA response to your inquiry on " & ComboBox9.Value
.body = strbody
.Display 'or use .Send
.SaveAs "\Dacsrv02
tddataAdviceTech QueriesTRIM Emails" & emailname
End With
On Error GoTo 0
The thing is it is storing the email at the same time it opens it for display. As such any attachments would be made post save. How would I go about getting it to wait until after attachments have been made (presumably once it detects the 'Send' button has been pushed on the email)?
View 9 Replies
View Related
Dec 10, 2008
After hours of searching the web and not finding what I am looking for, I am starting to doubt whether or not this is possible. Here is what I am trying to do.
I have about 10 form buttons on top of one of my worksheets. Each one is attached to a macro that filters 10 pivot charts. All the macros work just fine, but it starts to get confusing what data is being represented. So, what I would like to do is have each button set to display as depressed (or similar) when its pushed using vba in each macro. That way, there will be no confusion as to what buttons (filters) people have pushed.
View 9 Replies
View Related
Jun 18, 2014
I am looking for Excel to auto generate an email (to myself) when the following happens:
Basically, I have products with promotions which each have a start and end date. I have an excel sheet which we manually enter the promotions start and end dates into. I have a seperate column which has a basic formula to indicate the days remaining until the promotion comes to an end.
I would like excel to automatically send me an email to notify me when the promotion is due to end one week in advance.
So I will have a column which effectively shows the days remaining (number) until the promotion ends, when this number hits 7, I would like the email to be sent to myself stating (Model number XYZ. Promo ending soon).
View 1 Replies
View Related
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
View Related
Mar 10, 2014
I have a spreadsheet that contains an email address (Each row will most likley have the same email address but there are occasions when it could be different). Ideally I want a button that when clicked will open up an email, popoulate it with the persons email (that is in a specific column and row), add a subject and some text to the main body of the email and then attach the spreadhseet itself.
View 4 Replies
View Related
Jan 2, 2014
I would like to generate a blank email with a list of recipients (no more than 40) in the 'To' field. I would like to do this in a single click on a cell with the text 'newsletter group' in it (cell B17). The recipients email addresses are in the format of one complete email address per cell in a column starting at C17 (C17, C18, C19, etc...). I thought I had found a way to do this (using the hyperlink function I think, but can't quite remember)but it turned out you could only string together about 8 email address before the function stopped working.
Also just to be clear, I don't want to send the workbook to the recipients.
View 4 Replies
View Related
Jun 26, 2012
I'm trying to set up a system of sorts to track "services"
At the top of my 'new service" page, I need a button, which I then need to have a macro run on.
Sheet 1 is basically where I'd be entering the info, and sheet 2 where it would be stored. The button at the top is called Generate New "service' Number. This then needs to generate a new number on sheet 2 in A2 (then once 2 is populated, generate new in 3, then 4, then 5 etc...
I have a macro on Save Service Button at the bottom, which transposes the data into what would be used as a database to store all the services. That Macro then also needs to only transpose and paste data into the row corresponding with the "service number".
View 2 Replies
View Related
Mar 11, 2012
I have a sheet with 500 rows and 20 columns. I want to put an input box and a button on a different sheet. What I would like to happen is that when you put the criteria in the input box and click the button it opens the form for the row corresponding to the criteria and allows you to edit the 20 columns. Excel 2007.
View 6 Replies
View Related
Nov 5, 2012
I've 3 series that are
1- From 0-9
2- From 0-3, and
3- From 0-27
I want to generate possible combination of these 3 series in Excel 2007.
I think total combinations would be (10*4*28=1,120)
View 1 Replies
View Related
Jan 17, 2012
I am looking for macro where it can generate multiple workbooks with a single worksheet data source. I have this worksheet with data which is look like this:
[IMG][/IMG]
This data will be places in 1 workbook for each of line with given file name as page number above those workbooks generated will have same information for each line but at different cell position such as: take this example at line 3
and
Microsoft Excel 2007
Window 7Pro 64bit
This line could be up to 50 lines of data. I try google search but found most about consolidate multiple workbooks to single worksheet. I do have VBA reference that I refer to from [URL] ......
How to put the information from the worksheet into specific position in the workbooks.
View 1 Replies
View Related
Jan 4, 2012
Automating Excel from Access, I'm attempting to generate a single sheet workbook and save to a Sharepoint site. This process works fine on my machine (XL2007, XP), but on a coworkers computer (XL2003, XP), the code throws a 1004 error on the save as line. However, the really odd thing is that stepping through the code doesn't throw an error on the coworkers machine.
Here's the sub being ran; the line it errors out on is the first branch in the .saveas block.
Code:
Private Const csSharePointSaveAs = "\sharepoint-us.mycompany.comsitesfinance adminlah blahlah-blahCustomer Publication Tracking.xls"
Private Sub PublishXLtoMOSS()
Dim objXL As Excel.Application 'Object
Dim wb As Excel.workbook 'Object
Dim ws As Excel.Worksheet 'Object
Dim rs As DAO.Recordset
Dim i As Long
'Set objXL = CreateObject("Excel.Application")
[Code] ...........
View 1 Replies
View Related
Jun 18, 2012
I need to generate a microsoft word document from the data encoded in my excel spreadsheet. I am currently using MS office 2007.
in the Excel Spreadsheet from columns C to F "a) b) c) d)" was not typed but in the word document it automatically appears before the choices encoded in excel. Another thing is that some of the choices typed in the excel spreadsheet are in bold font and I want it to be generated in word document with the bold font as well.
By the way I am planning to use this technique to create a 100 item multiple choice exam for my students as I find using EXCEL to generate the document a lot easier than creating the test manually in WORD.
View 1 Replies
View Related
Aug 4, 2014
I have my data in column A as Reminder Description and in column B as Due Date.
I was wishing to send an email using excel 2007 with outlook using excel vba... I want to send email 2 days before due dates and also i want excel to type in when the email was sent... Is this possible....???
A B C D E
Reminder Description Due Date Send Email1 Send Email2 Send Email3
Insurance due date is 06/08/14 06/08/14 04/08/14 05/08/14 06/08/14
Also can this vba code be executed whenever workbook opens....???
View 1 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
Feb 21, 2012
send the sheet to an email address based on the email address in a cell.
The cell populates from a dropdown list a user selects.
The email will be sent to myself, and one authoriser. If a second authoriser is required then the first authoriser will send this on. I'm trying to make this simple, so when a user clicks a 'send' button on the form this happens automatically.
The code I'm using to send to myself is
Application.Dialogs(xlDialogSendMail).Show arg1:="bibbyd01@myemailaddress.com", _
arg2:="Auth Details"
Nice and easy. So how do I replace that email addres with the email address in a cell? I assume I have to create a DIM to hold the data, then use it to populate the address field?
I'm using excel 2007 if it makes any difference.
View 1 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
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
Aug 26, 2008
I want to create a communication excel sheet. I want it in such a way that if any one of the team member make update and save the file, then the whole team should receive an email that the file has been updated.
View 9 Replies
View Related
Sep 3, 2012
I am using 2007. This may be something simple but I can't seem to find a solution to this, I have an excel macro enabled workbook which produces a daily report the final task is to save and send an email but I need the file to save as an xls rather than xlsx as some of the recipients are unable to open the file here is the code used for the tasks in the
workbook:Sub Step1_Refresh()
'
' Step1_Refresh Macro
'
'
ActiveWorkbook.RefreshAll
End Sub
Sub step2_save_close()
[Code] ........
View 1 Replies
View Related
Sep 3, 2012
I am using 2007, I have an excel macro enabled workbook which produces a daily report the final task is to save and send an email but I need the file to save as an xls rather than xlsx as some of the recipients are unable to open the file.
Here is the code used for the tasks in the:
workbook:Sub Step1_Refresh()
'
' Step1_Refresh Macro
'
'
[Code]....
View 7 Replies
View Related
Oct 25, 2012
I have the need to email the current worksheet in Excel 2007, which I have been able to do with the following ...
Sub SendTab()
'Declare and initialize your variables, and turn off screen updating.
Dim wks As Worksheet
Application.ScreenUpdating = False
Set wks = ActiveSheet
[Code] .......
Is there a way I can also get it to also rename the sheet from the default "Book1" to the information in a referenced cell.
View 7 Replies
View Related
Mar 16, 2014
I've set up an email to be sent via a macro (excel 2007 and outlook) and I expanded the body of the message and it now comes up with an error "Compile error: invalid outside procedure"
It was working when I only had 4 lines and now it's not working.
strbody = "Hi," & vbNewLine &_
"abc." & vbNewLine &_
"def." & vbNewLine & vbNewLine & _
"ghi" & InputBox("Enter Response date (dd/mm/yyyy)") & vbNewLine & vbNewLine & _
"jlk." & vbNewLine & vbNewLine & _
"lmn" & vbNewLine & vbNewLine & _
"ABC" & vbNewLine & vbNewLine & _
"XYZ" & vbNewLine & _
[code]....
View 3 Replies
View Related
Jan 10, 2014
I need to write a macro to split an excel file into separate workbooks and automatically email our project managers.
View 1 Replies
View Related
Apr 12, 2011
Am working in Excel 07, but this would need to work in 2000 as well.
Need a macro that will...
1. Select a range of cells from B4 to RX. X is defined as the last row where Column A has a value.
2. Copy the visible cells
3. Open an email in Outlook (not via the email workbook function of excel), enter "Submission" into the title, enter "Dear X," insert 2 returns.
4. Paste the copied table (not the workbook, just what is on the clipboard) into the body the email.
View 4 Replies
View Related
May 20, 2014
I ma using exel 2007 and I tryed to use this codes,I need faster to finish this project
Soo I have done only 2 buttons OK and Close the tab works like this I CLICK "Kerko" and then I write the name that I want to search in my Phonelist and when I click Ok it shows me his surname his telephone name and his City prephix
But the next and previous button I cant make them work,soo when I have to click next the name down the name that I first wroted will apear with his surname telepphone name and city prphix,and when I click prevoious will happend the same think but will not apear the next persone but the previous.
View 1 Replies
View Related
Nov 26, 2011
I want to import data from 1 excel sheet to another sheet in excel 2007 by clicking the button which i was created through.
Developer>insert>forum control>button
View 9 Replies
View Related
Jan 10, 2012
I'm trying to work with a user form with a customized SUM button.
What I want is that the user can select a range and then press SUM and it will sum (and store) the range and then the user can click another button to place the sum in any other cell.
Here is the code I have on the SUM button but it fails
Code:
Private Sub CommandButton1_Click()
MsgBox (Application.Sum(ActiveWorkbook.ActiveSheet.Selected))
End Sub
I'm using a userform1.show vbmodeless so the user can click off the form. I tested it being able to work cross workbooks and sheets and I could see where it was returning the activeworkbook/worksheet but I don't understand the range/selected part.
Excel 2007
View 6 Replies
View Related
Sep 26, 2013
My excel version is 2007 and i am on WIN7 64bit
I have a workbook with VBA which was working fine earlier. Lately i have been getting
"Runtime error 1004" Select method of button class failed.
I am adding buttons dynamically in a loop in a sheet and what surprise me is , i go to debug mode when error pops up and it points to below line
MySheet.Buttons.Add(ActiveCell.Left - 5, 25, 20).Select
but my code is running in a loop and i can see that atleast 20 buttons were added and it fails to select when it try to add this iteration. It is completely confusing me.
My entire below code is in a loop
maWrk.Cells(xIt1, yIt2).Select
mySheet.Buttons.Add(ActiveCell.Left - 5, 25, 20).Select
Selection.OnAction = "callMe"
[Code].....
I also notice that when it fails, on select method .. the button was actually added to the sheet with caption/name as "Button 65536" but then fails to select it. What makes the select to fail after adding the button? Could there be anything special with Button 65536?
Is there any better way to code the adding button and setting action and name for excel 2007?
note before entering the loop i am deleting all the shapes with myShape.Delete which name matches "btRun"
View 3 Replies
View Related