Is there anyway this can be done using a button in the spreadsheet?
For Example.
I send numerous almost identical forms to a colleague and to eliminate subject line typo's (Reference numbers) i would like the Subject line to match a cell in the document itself.
I have experience in working with Excel, but none on using code/macros
I would like to select File/Send to/Main Recipient (As Attachment) within my Excel Spreadsheet. Within the email, I would like the subject line to be automatically filled in with an entered value of a cell block from within the spreadsheet.
For Example, If cell block A1 had Thursday entered in the cell. Then once I chose send to/Mail Recipient, The subject line would read Thursday.
I have tried a number of things, but have not been able to figure it out. It may not be available with this particular code, but I am not sure what limitations this code has. Does anyone know how to include the contents of a particular cell in the subject line? Currently the subject line says "Notification." What I am looking for is for the subject to say "Notification - John Doe" where John Doe would be the contents of cell D13.
View 2 Replies View RelatedI am using the following code to automatically send an attachment to a specific email with a specific subject line.
ActiveWorkbook.SendMail Recipients:="johndoe@yahoo.com", Subject:="General subject"
ActiveWorkbook.Close SaveChanges:=False
Is there a way to reference a specific field in the active workbook as the subject line?
I need to take contents of cells (which are results of formulas and references to other cells) and use the contents to compose an email.
Here are some cells to illustrate. NOTE: the information in brackets is the formula that's contained in the cell, while the text is the result of the formula.
B3 = This is the link used to compose an email.
C19 = abc@domain.com (an email address)
C22 = Login expired on node citrix08. [=concatenate("Login expired on node ",C7,".")]
C25 = Dear Company A, [=concatenate("Dear ",C6,",")]
C27 = The login for citrix08 has expired. [=concatenate("The login for ",C7," has expired.")
C29 = Contact us within 15 days to continue. [=concatenate("Contact us within ",C9," days ...]
C31 = Ticket 444 has been created to track the issue. [=concatenate("Ticket ",C10," has...]
C33 = Lots of other text
D33 = More text
E33 = More text
C48 = Sincerely,
B3 (Named "SEND MAIL") contains the formula used to compose the email from the cells above, however, I cannot add all the cells to the formula without an error. At some point, there is too much data (contained in the referenced cells) and B3 returns #VALUE error.
=HYPERLINK("mailto:" & C19 &"?subject=" & C22 & "&body=" & C25 & "%0D%0A" & "%0D%0A" & C27 & "%0D%0A" & "%0D%0A" & "%0D%0A", "SEND MAIL")
The above formula works now, because it doesn't contain all of the body (of email) I need.
When I click on B3, it properly launches the email client, puts in an address, subject, and two lines of text in the body.
My workaround to this problem is to manually highlight cells C29 through E48, select copy, then go to the partially formed email and paste the rest of the body.
Is there a way to include all the body into an email? I think this can be accomplished with a VBA code, but have no idea how to do it.
I dont want to send the mail, just compose it using cells that have calculated what is needed in the body. I can then read the email, confirm it's content, and click send in the email client manually.
Does anyone have any suggestions? Is there a better (but simple) approach?
I know this could be done via javascript on an html page, but I dont know how to code this at all.
I do know excell quite well and have many cells to calculate what is needed in the body of the email, but, alas,
still can't compose the ENTIRE email from the formula in B3.
I would like to search an outlook folder for a variable in the subject line and return the date when that email was received. Here is the code i have so far...
Code:
Sub Get_pos()
Set olApp = CreateObject("Outlook.Application")
Dim olNs As Outlook.Namespace
Dim Fldr As Outlook.MAPIFolder
Dim olMail As Variant
Set olApp = New Outlook.Application
[Code] ........
I currently have the below in my VBA which adds the text to the subject of an email:
Application.Text(today - 1, "MM-DD-YY")
today = Int(Now()) is part of the macro. How do i format this to display workdays only.
For instance if today is 07/21 (monday) i need this to display 07/18 vs 07/20.
In excel that function would be =WORKDAY(A1,-1) where A1 is =Today(), just not sure how to translate this to VBA.
I have an email hyperlink setup on my excel sheet and I would like to automatically (not manually) add a sentence that is another cell (that changes from time to time) to the subject line or the body of the email.
View 1 Replies View RelatedI use gmail, and have an excel sheet with hundreds of rows. I need to send each recepient an e-mail using their e-mail address (row D), and their name in the body and subject (row A). The rest of the body of the email will all be the same.
View 6 Replies View RelatedI did this 10 years ago so I admit I am rusty at this but here are what I had in my notes that worked with Excel XP. I am currently using Excel 2010
With ThisWorkbook
.HasRoutingSlip = True
With .RoutingSlip
[Code]....
The last line will send the workbook but I need a Subject and Message to go with it.
My task here is to generate email automatically. When i enter x to run the sub findvalue macro.
Any cells on the column D that has the value of 10 should generate email with the message body, subject and email address automatically.
Example if there are 3 task that are 10 days to deadline, 3 email will be generated after entering "x"
I have edited the Sendmail sub to locate the email's body, subject line and email from the excel.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target = "x" Then
If Not Intersect(Target, Target.Worksheet.Range("G2")) Is Nothing Then
Call Findvalue
End If
End If
End Sub
Code:
Sub Findvalue()
Dim Rng1 As Range
Dim foundemail As Range
Dim a As Variant
Set Rng1 = Range("D2:D10")
For Each a In Rng1
If a.Value = 10 Then
Set foundemail = Sheets("Email").Range("A:A").Find(What:=Cells(Target.Row, 1), _
[Code] .......
I am new to excel and to the bubble chart function and need creating one for a presentation.
I was asked to do a bubble chart to show the open and click to open percentage by subject line
E.g.
Subject line: Win 20% open, 23 % Click to Open, Getaway 20$ Open, 21% CTO etc., to include an industry average for open and CTO in the chart.
X axis: click to open and Y axis: open
I tried the following in the picture and it doesn't look right.
Capture.JPG
I am working on a manpower spreadsheet and need for one spreadsheet to extract data from another and automatically update if it is changed and I am struggling below is an example of what is on spreadsheet 1:
Mentor.jpg
and the information from spreadsheet 1 is copied to spreadsheet 2, however if amendments are made to spreadsheet 1 they are automatically updated on spreadsheet 2:
Spreadsheet 2:
C0-ord.jpg
I need to send out an order form (spreadsheet) to 100's of people that need to complete the form and email back to me as an attachment. If I was completing the order form myself I would use the "email" icon that I have pinned to my Quick Access Toolbar (QAT). However, most of the recipients don't even know the Toolbar exists.
Is there a way I can insert an icon / hyperlink in the spreadsheet that does the same thing as the QAT icon. I can insert text to say "click here to email your order" (or similar).
I need to keep it in an excel format and an icon is so much better that asking them to save to their hard-drive and attach to an email, etc.
The QAT icon is exactly what is needed but I need to provide a spreadsheet that works for folk who haven't got the icon.
I have some code (authored by Dangler) that i want to pull not just one range but also the contents of one specific cell and then copy the range and cell to a line on another spreadsheet.
Question:
f .Cells(i, 8).Value > 0 Then
.Range(Cells(i, 1), Cells(i, 200)).Copy
Sheets("all").Range("a65536").End(xlUp).Offset(1).PasteSpecial (xlValues)
End If
I want to add a single cells contents to the LINE that is being copied .... something like this...
f .Cells(i, 8).Value > 0 Then
.Range(Cells(i, 1), Cells(i, 200)) AND A1.Copy
Sheets("all").Range("a65536").End(xlUp).Offset(1).PasteSpecial (xlValues)
End If
the output would be like this: CELL CONTENTS, RANGE CONTENTS
or
K21, 40012122 400 450 450 50 001 BAGS
I have a the following macro that looks through a range of cells and generates emails based on the date. The macro generates the email but does not insert my signature line.
[Code] .....
Basically, we have 2 tablets tallying data and writing to the same .csv file. That csv file is then copied into a front page of a much larger excel worksheet where the tallied data is sorted and used for a variety of reasons. This works perfectly using index and match when only 1 tablet is being used, however, when both tablets are writing to the same csv at the same time it creates 2 lines instead of 1 line.
For example 1 tablet might look like this:
Lot 45689 4 6 8 9 1 5
2 tablets looks like this:
Lot 45689 2 3 1 8 1 4
Lot 45689 2 3 7 1 0 1
for the tallies, i would imagine a =SUMIF function might suffice, but that doesn't solve my problem of there being 2 lines with the same lot #.
I am only dealing with this issue from the excel side, and have no control over the tablet functionality or the CSV file which further limits me.
Wanted to add that the Lot #s change daily and often so with my understanding of pivot tables this rules them out as a viable option.
I'm running a Ron DeBruin's mail routine to copy and send a spreadsheet. The code I'm using is below. The problem is the source spreadsheet contains cells with more than 255 characters, and so that information is being truncated when the sheet is copied. I'm sure there's any easy fix for this, but I haven't been able to find it. Here's my code:
View 3 Replies View RelatedIs there any way I can e-mail an Excel spreadsheet through code?
View 9 Replies View RelatedI am trying to create a macro that loops through a spreadsheet, copies data over to another workbook then emails the new document.
I have taken this code from an old macro that I found but cant seem to get it to work.
This is the code
Sub EmailAssessments()
Dim strTempName As String
Dim strForename As String
Dim strSurname As String
Dim strBookingNumber As String
Dim strReportingTo As String
Dim strBookingGivenBy As String
Dim strJobTitle As String
Dim dtmStartDate As Date
Dim strEndDate As String ''Need to use a string as there maybe no end date
Dim strDepartment As String
Dim strTierName As String
Dim r1 As Range ''For loop
Dim intNumberOfRows As Integer ''Count how many rows.........
I have a Excel Addin file which i would like to open and view the contents on the spreadsheet
View 1 Replies View Relatedmacro code to clear a spread sheet of all of its content? (The extent of the content can vary.)
View 2 Replies View Relatedif it's possible to have a red line going across the spreadsheet while using the arrow keys it follows you down through all cells. And is there a vba coding that someone has ready written.
View 9 Replies View RelatedI 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 RelatedI am trying to send as an attachment "sheet1" to a email list in "sheet2" range "A1-A50"
I looked at Ron De Bruin examples but didn't find one to email a single sheet from a list.
I looked at examples at Mr. Excel but didn't find it. I apologize if I overlooked it. If I did just point me to it.
How do I write a macro that will delete every other line on a spreadsheet? I can create a macro that delete one line using the Record a macro command but what do I ad at the end of the macro to keep it going until stopped with Ctrl Break?
View 13 Replies View RelatedI 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)
Trying to add a macro to generate an approval email with certain data from the spreadsheet within the body of the email. I have the following in place currently to deploy the email:
Sub Sendemail()
Dim Email_Subject, Email_Send_To, _
Email_Cc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = "New Account Approval"
[Code] ....
What do I need to add the following cell values into the body of the email, All Sheet 1?
B6
B4
B8
F14
E16 : F16
E17 : F17
A25 : B25
A26 : B26
A27 : B27
Is there something simple I can insert to make this work?
I need to email a page from a worksheet to a series of people and am currently using the following
Worksheets("Report").Activate
ActiveWorkbook.Save
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application. ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
however, I also need the worksheet to be email to the person currently running the macro (i.e. when they email it to the others, a copy is sent to thier own inbox too), is there any way in which this can be done?
The user's email address could be formed from data in the spreadsheet, if there is an easier way to do this (i.e. email address is based on a cell in the spreadsheet).
I have attached a workbook stating my problem.
file1.xlsx