I am using a excel macro to send message from excel and i have the code to send the mail, but the body of the mail is coming in a single line but i need to send it in different lines, how to do that.
View 3 RepliesI 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......................
Why the message body is blank.
[Code] .....
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.
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'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]....
I have created a message box and I want leave two blank lines in the middle of the text. Is this possible?
At the moment my code for the message box line looks like:
Msg = "This process will print each site for " & UserSlection & ". Before continuing please ensure you have the right printer selected. (I.E. a colour printer where available). The process may take several minutes to complete. Do you wish to continue?"
I just want to move the "Do you wish to continue?" down two lines so that it is easier to read.
I am searching for a macro where I can use in a command button to:
1. Launch Outlook
2. Insert variable name from the excel file within the body of the Email.
ex. ...Your new cost is: "NewCost"
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.
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?
Warrantee.xlsx
I attached the sheet that I am trying to get up and running, there is two things I need to do, but cant get it working as I intend to.
Sheet 1 - When the invoice number is fulled in in cell F8 a message box must pop up requesting the hyperlink to the invoice saved on a share folder, but for now on the desktop, when the file is selected it (the hyperlink) must be returned to cell G8, then once the last cell (I8) has been completed, the line 8 must be locked so that it can't be editted again without a default password and a new line must be added below line 8 for processing, I tried recording the macro, but it only works on one line, and on the message box request, I truly am not up to speed yet, this I can't get up and running.
Excel 2010
I have a worksheet that I need to be able to easily copy and paste the formula/formatting from the row above, but not the Values entered, (if any). I am using columns A to DG.
I just really need to be able to copy all the formula in these cells down - nothing exciting or fancy.
I've tried formatting as a table as per some searches and that was difficult! My column headings changed, and when I inserted a row, two of the formula's wouldn't copy down - plus the shading and borders went wonky in places.
i hv following code
(i use generate macro)
my question is how to arrange the code from one line to multiple like :-
following code show in excel macro environment is one striaght line.
' Create new var on yr , and replace 2006 to CY06.
ActiveCell.FormulaR1C1 = _
I have a macro which refreshes a query when the spreadsheet is opened. This works fine when online.
However, if the user is not online, the query is unable to refresh and the macro just hangs.
Is there a code which will enable me to say " if unable to refresh then move on to the next line"?
here's the code below.
Private Sub Workbook_Open()
Sheets("Houselist").Activate
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Front").Select
Range("A1").Select
End Sub
I have a Macro (AutomateReport) that, among other things, calls and runs a macro (ReportStep1) in another workbook.
ReportStep1 includes three prompts asking the user to press "OK" to confirm that the data included is correct. When I call ReportStep1 as part of my larger macro I would like to suppress these prompts or automatically respond "OK" so that I don't have to be bothered with them.
SendKeys works sometimes, but I am hoping for a more reliable method.
I have one line of code that I need an error message for:
View 2 Replies View RelatedIf I run the macro and get the message box too pop up because I did not move, the macro will not run. I have too choose another one before I can get the one I want to work. I guess it needs a reset if the message box comes up.
View 4 Replies View RelatedI am just having a problem where at the end of my macro, the macro is looking for a value in a cell and there is no value at the end of the game for it to paste so I get an error. Instead of getting an error, I would like the macro to display, "You win!", if cell e1 is =1, "You lose!", if cell e1 is =2, and "tie game", if cell e1 is =0.
View 9 Replies View RelatedIn the attached file 2 sheets are therewith data
Sheet 1 named as - Ana
Sheet 2 named as – Sum
Now my requirement is, if the new month data is added (jul-06) in Ana sheet, that to be copied into sum sheet, (Jul-06 data to be copied from Ana sheet from C3:J23 has to be copied in Sum sheet from B56 onwards.
Here one more condition, if the jul-06 data is available macro has to give some message like “copied data is already available for Jul-06” or some message like “Data is Available you want to proceed”
Everytime I open the excel file I am working on I get a message saying that the file contains macros.
I have deleted all the macros I could find under "Tools" and "Macros" but I still get Module1.sortie, sortie and sortie listed. I can delete Module1.sortie but for the other two, sortie and sortie, I only have the "cancel" and "create" options.
I have a spreadsheet and a macro that creates a new sheet and enters some data into the sheet. The user gets to make some changes to the created sheet and then prints it out. I was wandering if there was any way to have a message coming up every 10 minutes remindnig the user about the new sheet untill it was printed out and then the warnings would stop. Could anyone sugest a good way to do that?
View 7 Replies View RelatedIs it possible to have a confirmation message box if you click a button to run a macro, eg "Are you sure you want to Insert a new row?" with "Yes" and "Cancel".
For purpose of this question my current macro is
Code:
Sub Button3_Click()
Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row + 2).Insert Shift:=xlDown
End Sub
I have a macro that computes the unique values in a column. I'd like to create a message box that displays the result of the macro.
View 9 Replies View RelatedWith the MsgBox code, when that part of the VBA is reached, it requires the user to press the OK button for the next part of the VBA to execute. But is it possible when running a macro etc, for a MsgBox to appear right at the start, and remain for the duration of the macro, and then disappear (or an OK button appear) when the macro is finished? As some of the macros we run are long and it would be good to stop people from doing other things whilst it is running.
View 6 Replies View RelatedThe attached file works with 3 Drawers and 3 Doors but if I use 2 Drawers and 2 Doors the Borders do not line up. I think the Drawers are right the Doors appears to be the problem.
Same thing happens with 3 drawers and 4 Doors. It has and extra border on the right side.
See Attached : ozgrid cabinet error.xlsm
Also I would like for the Measurements to be in the cell to the right of the left hand border and center across each of the sections.
Change B3 and B4 to 2 then click draw. 3 and 3 work 3 and 4 don't but 4 and 4 does.???
I got to the point where the macro is doing (more or less) what I want.
I now need to run the macro for each line in column C.
Basically my macro is creating 9 lines in column E getting as input C1 only (for the time being).
How do I say to my Macro, please run in E, but the first time you run get as
input value C1, the second time C2 and so on until I've got values in C?
I've looked into the loop documentation (for and foreach) and overall it makes sense, but how to refer each time to the next line in C?
I've download the CSV files from my bank. Somehow I thought they'd import painlessly. I dunno what's happened, these files are bloody ridiculous to look at.
Somehow I've ended up w/ Date, then Amount in the cell under it, then a description of what I bought in the cell below, and then something to the cell to the right of it (a further description sometimes, at other times nothing).
I have about 1500 lines of this so doing this automatically is not in question. I want to figure out how to run a macro to organize this. The logic is fairly simple. Where-ever the cursor is, copy the stuff in there over 2 lines, go back to original starting point, copy next cell, paste it next to where i previous pasted, goto third line, copy, paste next to second place i pasted, and then goto next set of data/dates. So I did that once figuring it could keep repeating the cycle. NOOOO that didnt happen. I did this for one set and then just stopped. Everytime I run the macro it deals w/ the same data. For example I created the macro to start of w/ cells A2, A3, and A4, then goto A6 and stop. I figured once there I could run the macro again, and it would do the same stuff for A4, A5, and A6 that it did for the previous one. Nope, it went back to A1-3.
Of course if someone can give a better idea of how to work w/ CSV in the first place that would also help. It just never made the colums in the right place. I got to choose the variables that would decide when a new column starts but I was never really getting the result I wanted. If this macro works though I wont need to work w/ that anymore.
Here's a sample though of how my CSV looks at the moment. These are three entries. The first one's description takes up one cell, the next 2 have 2 cells each.
D06/13/2008
T-20.00
MABM WITHDRAWAL
^
D06/16/2008
T-26.25
MMISCELLANEOUS PAYMENTS Good Life
^
D06/16/2008
T-25.00
MPOS MERCHANDISE AMC MISSISSAUGA
how i can add a second body in an e-mail sent via excel?
Here's the
when i tries to run the macro, it display the following error message. I have attached the screenshot of the error message. The details of the system:
OS - windows vista Business, SP1
office - Office 2007
excel Version - Excel 2007.
Is there a quick Macro I could use to rearrange text in a cell. For example our organisation list all the departments in an unconsistant way and it makes finding the departments hard using A-Z. For example some department will say "Department of ...", "Dept of ...", Division of ..." or "Div of ...". (Obviously excluding the quotes).
What I wanted to know is this. If you highlight the range you wish to work with, could you use a message box to ask you what text you wish to edit and then automatically search the range and make the changes.
For example search for "Dept of " (note I would need to keep the space after of otherwise I would have leading spaces) so that "Dept of ABC" becomes: "ABC, Dept of" and say "Division of XYZ" becomes "XYZ, Division of"