Add A Second Body In An E-mail
Oct 23, 2008how i can add a second body in an e-mail sent via excel?
Here's the
how i can add a second body in an e-mail sent via excel?
Here's the
I have this as part of a macro that creates an e-mail
View 2 Replies View RelatedI have the code which generates email through out look with customized subject and body of the letter, is it possible to insert the image(JPEG or any format) with text (not as an attachment) in body of the email, how to do it.
PHP Code:
If FileName <> "" Then RDB_Mail_PDF_Outlook FileName, "ron@debruin.nl", "This is the subject", _
"This is the body of mail where i want to insert image" _ & vbNewLine & vbNewLine & "Regards Ron de bruin", False
Normally i am able to send mail using gmail with example text by typing in body field. But I want to send Range(A8:D17) as message body.
First I defined body1 as variable range, then i set body1 as value of my required range in body of message i used variable 'body1' but it is giving error "run-time error '13' , Type mismached "
[Code] .....
Where I need to change in ordger to send mail using range as body .
I want extract table values from body of email into excel through vba code in outlook.
I want pull table values two kinds of mail format
One is First Part and another is Additional Ordering
I want pull table values for accurate First Part table into First order workbook where saved in path for accurate Additional Part O table into Additional Part workbook,where saved in path.
Find the attachment with code :
Attached Images
PARTS ORDERING.jpg
ADDITION ORDERING.jpg
Attached Files
First Part.xls
Additional Part.xls
The following will place values found in O19,020,&022 into an e-mail body.
I'm attempting to place a selected range of cells into the body also.
To do this I tried the highlighted section of code below.
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.
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......................
We need to send multiple mail with attachment with outlook 2007 with option "Resend this message", now we want to use excel for sending the mail.
procedure.----------------------------------------------------------------------------------------------------
S.No. To cc----------------------------------------------------------------------------------------------------
1. xyz@ymail.com----------------------------------------------------------------------------------------------------
2. abc@gmail.com hursh@rediffmail.com, hursh@rediffmail.com, hursh@rediffmail.com, raj@hotmail.com----------------------------------------------------------------------------------------------------
3. ram@ymail.com ramesh@gmail.com---------------------------------------------------------------------------------------------------- 4. rajesh@ymail.com----------------------------------------------------------------------------------------------------
5. raghu@ymail.com raju@hotmail.com ---------------------------------------------------------------------------------------------------- 6. info@ymail.com----------------------------------------------------------------------------------------------------
7. ranjit@excel.com xyx@gmail.com----------------------------------------------------------------------------------------------------and
we have two files for attaching on desktop, one is a excel file and second is a zip file. we want to send the mail with excel mail merge.
I have a workbook that has multiple worksheets and I would like to use a command button to e-mail just one selected sheet. I want to create the single sheet as an attachment on a new e-mail message but leave the addressing to the user as it will vary, and not save the single sheet. My challenge is that the users have a variety of different e-mail clients (Outlook, Lotus Notes and others).
View 2 Replies View RelatedI am trying to write a macro to send mail on every Friday and also on last day of every month. If the last day of the month falls on Saturday or Sunday then the macro should mail on Friday. I have written a separate macro to send a mail. I have also written to check day(ie Monday, Tuesday etc) of today. If today is Friday or month end i can send mail. I dont know how to tell the macro to send mail on friday if the month last date is saturday or sunday.
Sub done()
Dim Dat As Date, x As Integer, y As Date, sorry As String
Dim str As String
sorry = "Today is not friday or month end. So i cannot send mails"
str = WeekdayName(Weekday(Now()))
[Code] ........
Why the message body is blank.
[Code] .....
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].....
I currently have a workbook that I track various projects with and periodically I will need to get updates for them. What I want to do is to select the row of the projects I need updates for, copy them and then paste them into the body of an Outlook 2003 email.
I have a file that sends an email when it's saved using the macro.
It pastes the the file name and file location into the body of the email.
I'd like it to be a hyperlink.
Sub Save()
Sheets("Datasheet").Select
Range("AW6").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 1
Dim strDate As String
Dim strSave As String
strDate = Worksheets("Datasheet").Range("ay6").Value..........................
Please see attached workbook
At the moment when the workbook is opened the first time in the day emails are auto sent for any overdue items (all good)
1) there is a column with lead times in each sheet that should send a warning email when the lead time number of days
is reached( this sends the email but does not populate the table)?
Question how can i amend the code to either make the lead time populate the summary sheet or remove the lead time option
2) Also i have copied the template sheet over to add more shhets but the email table dont populate.
How should i be copying new sheets over?
1018823(1).xlsm
I'm trying to add a range to this email code that will then paste the information into the body of this email however instead of getting the data I need i'm getting "-1" in the body instead.
I've tried defining the range below and adding that line to the main code but it doesn't work, the code will run but i get "-1" in the body.
I have a process metric that I need to send via email.
I would like to automate this.
I am looking for the following
1. upon clicking send mail button the smart art used on the excel should be mailed.
2. the smart art should be pasted as Image on the body of the email.
3. The body should contain a text message like " dear receiver," <line break> " Please find the below process health for this week" <line break> "Regards," <line break> "Sender"
4. The size of the image on the email body should be height 3 inches and width should be 5 inches.
I have attached the spreadsheet for reference.
insert image in the body of the email.
Sub Mailer()
'Sheets("BB Email Data").Select
pathname = Range("A1").Value 'defines attachment
Dim objol As New Outlook.Application
Dim objmail As MailItem
Set objol = New Outlook.Application
Set objmail = objol.CreateItem(olMailItem)
[code].....
I am using the below code to send a email by VBA in Excel but I am trying to add a hyperlink in the body of the email.
I would like to use '"Click Here" to go to Google - I only want to show "Click Here" in the email not the full web address
Sub SendEmailData()
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim strbody As String
' Dim Flds As Variant
[Code] ........
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 Replies View RelatedI'm trying to make a BMI (Body Mass Index) calculator. I've attempted it already but to no success. My first mistake was to read the values from cells in the spreadsheet which made things more complex than needed. So I started a new macro using a form instead for all data entry. I'm running into multiple problems with this
-Ask the user which method they prefer (see below formulas).
-Input the result into a certain cell.
English BMI Formula
BMI = ( Weight in Pounds / ( Height in inches ) x ( Height in inches ) ) x 703
or
Metric BMI Formula
BMI = ( Weight in Kilograms / ( Height in Meters ) x ( Height in Meters ) )
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.
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?
I've wrote a function that allows me to insert a certain range to the body of an email. This email is composed in the code, too.So far I am able to build the emails body as plain text. how to retain the cell format also (colors, font size, border styles, ...)
View 14 Replies View RelatedI've managed to get the following macro working except for one small thing - the link to the folder where the spreadsheet (that will be attached to the email) resides (which I got to work fine in a macro to send out tasks) just ends up as plain text and is not clickable
Make this link clickable in the email so that when the recipient receives the email they can just click on the link and go straight to the relevant folder please? (I've highlighted the line with what I would like to work as a link in red)
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"
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].....
I have the below code of which I would like to addresses added to the CC list Also, Would it possible to add a range as the body? E.G:
.CCaddress = "somebody@mail.com"
.CCaddress ="somebody.else@mail.com"
Body text = Range("A1"& "" &"B1")
Code that need the above inputted:
With ActiveWorkbook
.SendMail Recipients:=Array("steve.howard@kuehne-nagel.com"), _
Subject:="610 Cambridge " & Format(Date, "yyyymmdd") & " " & "Counts"
[add cc address + body]
.Close SaveChanges:=False
End With
I'm attempting to put multiple lines of text (not one huge string) in the body of an email. I've tried Chr(13), Chr(10), vbcr, and vblf....all to no avail.
Sub AttachEmail()
Bk1 = ActiveWorkbook.Name
Sh1 = ActiveSheet.Name
[Code].....