Copying Subject And Body Text Of .msg Files To Excel
Nov 17, 2009
I receive around 40 emails per day, all in the following format:
Subject: "Team x.x - date"
Body text: "x files sent"
where x represents a number.
What I'm hoping to be able to do is drop all these emails into a folder (in .msg format), and use excel to look through them and extract the team number from the subject, and the number of files sent from the body text for each message.
Unfortunately, while I class myself as reasonably competent with excel vba, working with emails or .msg files is new to me, so I genuinely haven't a clue how to do this, or if it's even possible.
View 7 Replies
ADVERTISEMENT
Aug 10, 2009
I am trying to send out an e-mail from excel with all kinds of combined info. Here is what I have so far, which works to send out an e-mail to a certain address with a compiled subject. No luck with inserting the BODY of the e-mail yet from a certain cell.
=HYPERLINK(CONCATENATE("mailto:",E32,"?subject=",F32))
Also, How do I make the text in each of these cells read "send e-mail" rather than the whole jumbled mess that is currently in there from the combination of the cells?
View 6 Replies
View Related
May 10, 2013
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 Related
Feb 26, 2014
cannot seem to get a function that works.
I have a sheet named "Master" with student reference numbers (A2), student names (B2/C2) and their four subjects (D2, E2, F2, G2).
I need a separate sheet for each subject, so potentially 30 additional sheets, and i would like for where a subject is mentioned in one of the four columns of the master, the students reference and names would then be copied and pasted into a row on that subject specific sheet. Leaving the subject sheets with a list of names and numbers of the students studying.
So you would have a student on the master sheet and then they would appear on four additional subject sheets.
Ideally it would also update subject sheets as new students are added. And additional information is being added to the subjects sheets so they cannot be cleared.
View 7 Replies
View Related
Dec 18, 2008
I 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 Related
Aug 3, 2006
I have a form which is going to be used as an aid to staff, I have created Macro's that when clicked enter information in to fields in the worksheet, I would also like the macro to generate an email with a specified Subject and body filled out. At the moment all I have achieved is to generate an email through File - Send to - Mail recipient.
I have also tried to have an email created through Outlook using MAPI, but once again have been unable to create an email with or without a subject and message body. Below is how far I have got in creating an email using MAPI.
This is part of Macro to insert information Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("E12").Select
ActiveSheet.Paste
Call SendAMessage
End Sub......................
View 2 Replies
View Related
Feb 26, 2008
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.
View 9 Replies
View Related
May 9, 2013
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] .......
View 4 Replies
View Related
Jul 19, 2013
I am having trouble with copy-paste-from-outlook-to-excel routine. Is there a way where I can get a certain text (or numbers, perhaps) from an outlook email message and transfer it to an excel? It is fine to copy and paste one or a hundred emails, but it already exceeds 30 thousand email messages. I just wanted to know is there is a way for me to simplify my work through VBA.
Here is a sample of the email body:
"The lead with phone number 1231234567 is in the federal DNC list and has been rejected. We apologize for any inconvenience this may have caused. This email was automatically generated, please do not reply to it."
In this email body, i wanted to get only the number 1231234567 and paste it in the excel.
View 2 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
May 6, 2014
Copying data that is in one coloumn in an unsorted order to another file where I have the values in a specific order I want. There I want it sorted in a new row each time I click a button in the first file.
I have a script that does this in a new column each time. I need it in a new row in a table to keep the graphs auto updating without having to use a macro in the end file. Current VBA that copies it to a new column instead of a new row in the table (modified to remove file names).
How the current VBA works. It refreshes the file it is in to update the data from SQL, then opens the other file, copies it over using sumif compared to the first coloumn in the file. Adds the current date, copies everything it added and replaces it with values so the formula isn't kept once it saves and closes the file. It then saves the start file and stops.
Code:
ActiveWorkbook.RefreshAll
Workbooks.Open Filename:= _
"File2.xlsx"
[Code]....
View 3 Replies
View Related
Jan 19, 2014
a macro to copy the contents of a selected range in an excel table to an outlook mail generated using a macro.
The only thing is that I need the grid along with the formatting of the selected Excel range.
View 3 Replies
View Related
Aug 17, 2009
I have a workbook "revision.xls" i have two excel workbooks "A.xls" and "B.xls" in a folder ( revision ) in my desktop. the location of this folder is " C:Documents and SettingskrishnaDesktop evision )
Both the excel files inside this folder ( "A.xls" and "B.xls" ) have columns B to F in each of them filled with some data.
The no.of rows upto which the data is filled in these two files can vary.
What i want is a macro which can open both these files automatically and can copy the contents in column B to L in both these excel files into revision.xls in such a way that the column B TO L of the excel file alphabetically first in the folder has to be copied to A to K column of revision.xls then after leaving one column blank i.e leaving L blank column ,the column B TO L of the excel file alphabetically 2nd in the folder has to be copied to M to W column of revision.xls.
View 9 Replies
View Related
Jul 22, 2014
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.
View 5 Replies
View Related
Dec 7, 2013
I have some daily text files in a folder (so about 30 of them each month), which in the end of month, I need to open them up in excel, format them so that I can use the information for my analysis.
I would like to create a macro, to quickly open them all up at once and save them each individually in .xls or .xlsm format.
I am new to VBA and after some research online, I was able to have the files open with the following code. but now I don't know how to proceed further to save them one by one with the same name but in .xls or .xlsm format.
Sub Opentxtfiles()
Dim MyFolder As String
Dim myfile As String
[Code].....
View 2 Replies
View Related
Jul 17, 2014
I currently use CDO to email a range as body of an email in the form of a table, is there anyway to highlight the largest numbers in each column? This is how it appears in the email: (just noticed the spaces dont space out into a table like it does on email)
Resolving %88.96%
Total PhoneQueue Email F8 Notes AddedDays Worked AVERAGE
Leanne Stranks 673 300 286 87 475 14 48
[Code].....
View 3 Replies
View Related
May 19, 2014
I'm trying to write a macro that looks in cell A1:VGH1 for the text "Name:" within the row, then copy that cell and other following cells and paste into a new row. This macro can loop through the row until all instances of the text "Name:" and the following cells are on their own row.
What I have currently.
Name:xxx From:xxx Name:xxx To:xxx From:xxx Name:xxx: To:xxx
The result
Name:xxx From:xxxx
Name:xxx To:xxx From:xxxx
Name:xxx To:xxx
View 1 Replies
View Related
Nov 29, 2012
I 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.
View 9 Replies
View Related
Dec 16, 2011
I am using the following code to create several spreadsheets and send via email. This all works perfectly, but I would like to add text to the body of the email. What would I need to add to enable me to add text to the body of the email?
From Bottom of Code:
' Copy the Report sheet to a new book and e-mail
Sheets("Report").Copy
Application.Dialogs(xlDialogSendMail).Show _
[Code].....
View 2 Replies
View Related
Jan 7, 2012
I am using Excel 2007, here's my question:
I just wrote two macros that each produce separate text files (call them 'A' and 'B'). I want to open 'B' with Excel VBA, copy all of its contents, and paste that content into 'A' right after a specific location in 'A' (where I have 10 consecutive asterisks, i.e., **********).
Most topics relating to Excel VBA and .txt files have to do with either importing / exporting into Excel (not what I want), or with associating .txt files to Excel (also not what I want).
View 7 Replies
View Related
Jan 18, 2013
I have an email with body in tabular form. I need to copy this into excel in the as is condition.
When I do it manually, I see that the table nicely fits in different cells and looks good, but when I use a macro , I see that everything gets copied to a single cell.
View 6 Replies
View Related
Aug 14, 2012
I am trying to automate a process whereby i receive an email via outlook with a particular subject line every day and i want to copy the body of the email into an existing excel spreadsheet and save it.
It's the first time i've really used vba in outlook, and i have written one to save any attachments which works ok using rules/run a script, but i'm stuck when it comes to copying the body
It would be really useful if when pasting into excel it didn't go all into one cell and just pasted over like if you were performing it manually
View 1 Replies
View Related
Nov 11, 2011
I found a good piece of code to import data from text files into excel. they are delimited
I keep getting an overflow error, and then I get the error that the file is already open?
Option Explicit
Sub OpenTextFiles()
Dim strFiles() As String
Dim strFName As String
Dim strFPath As String
Dim IntFile As Integer
Dim sep As String
'define the directory
strFPath = "C:UsersXXXXXDesktopHOLDINGTEXT into Excel"
[Code] ..........
View 9 Replies
View Related
Nov 14, 2013
I want to get a vba which will convert an excel with different tabs to individual text files. IT MUST BE PIPE DELIMITED.
So if there is an .xls file with 5 different tabs, i should get 5 text files with each text file getting name of the worksheet it was created from.
I have a similar code but somehow it is doing the conversion only for last worksheet, also it is saving the file in the same name as workbook.
Code:
Sub save_as_text()
Dim i As Long, txt As String, delim As String
delim = "|"
With ActiveSheet.UsedRange
For i = 1 To .Rows.Count
txt = txt & vbCrLf & _
Join(Evaluate("transpose(transpose(" & .Rows(i).Address & "))"), delim)
Next
End With
Open Replace(ThisWorkbook.FullName, ".xls", ".txt") For Output As #1
Print #1, Mid$(txt, 2)
Close #1
End Sub
View 2 Replies
View Related
Aug 6, 2014
So I have (some sort of standard) code to generate a Html emailbody.
Problem is I have data and on this data there is a chart.
Now when I copy and paste the range of these 2 sections it only gives me the data but not the chart (leaves that space blank).
How I can adjust this code so it also will paste the chart?
This is the code :
[Code] .....
View 2 Replies
View Related
Dec 11, 2009
I need help for reading data from text files and saving it under different columns in the excel file using vba macro.
For example: I have many text files in the following format ....
View 9 Replies
View Related
Apr 2, 2012
I need to create a function which will take a objectname (a query or table) and a file name format
The objective is to export this query or table into multiple text files each with a maximum of 1000 lines per text file. These files are used as an input for SAP - the interface only takes a maximum of 1000 lines per file.
I am having three issues with the code below.
1. How do I split an excel query based on line numbers? Is there a way to get the equivalent of ROW_NUM in oracle ? Or do I have to loop through it and maintain a counter?
2. What is the best way to split the file ? Loop within loop? I need the files to be tab separated (no header required)
3.The rst.RecordCount is acting strange - when I pass a name of the query - the property returns the right no. of rows, however when I pass a any table name it only returns 1 - is this the expected behavior - or am I missing something
Code:
Function ExportAsText(strObjectName As String, strFileName As String) As Long
' Purpose: Export any given query, table to mutliple files each of certain length
' the no. of lines per text file is defined by the config parameter SAP UPLOAD, LINE LIMIT PER TEXT FILE
' in the LKUP_CONFIG database
Dim db As DAO.Database 'This database
[Code] ..........
View 1 Replies
View Related
May 7, 2012
I am trying to develop a code which extracts the data from text files inside a folder (Folder test in my desktop) into one sheet. The Macro is in the workbook “Text Extract” which is an excel 2007 file. The data of each text should be copied to Sheet1 of this workbook one below the other. For testing purpose I have kept only one text file in the folder and was trying to copy the data from the text data extracted sheet to Cell A1 of Sheet1 of workbook “Text Extract”. The code works fine till copying the data, but shows below error in the line “Selection.Paste”:
Run time error 438: Object doesn’t support this property or method.
Below is the code:
Sub LoopThroughFiles()
Dim strFile As String
Dim strPath As String
[Code]....
View 6 Replies
View Related
Sep 17, 2012
I have 2 excel files, let's call them 1.xlsx and 2.xlsx (excel 2007)
File 1 is the file where I want data copied into and file 2 is the file I want to copy data from.
File 1 has certain text strings in every say 5th column in always row 2. I want to find those strings in file 2 and if the string is found, go 6 rows down, copy the cell, and paste it into file 1, 8 rows down the text string. this is the code I came up with, but it doesn't work
Code:
Option Explicit
Sub get_data_from_2()
Dim i As Long
Dim j As Long
Dim FinalColumn As Long
Dim RngFrom As Range
[Code] .......
the bolded part gives me an error.
View 3 Replies
View Related
Mar 3, 2014
I have several hundred text files which I would like to reformat and save as excel without needing to open each file individually.
I'm entirely new to working with macros, so, I was able to use macro recorder to save the steps to reformat the file, but would like setting up the part of the macro to automatically open and reformat all of the files.
View 2 Replies
View Related
