Macro to add text to the body of an email

DJMorgan

New Member
Joined
Jan 16, 2018
Messages
3
Hi Folks

The amount I know about writing macros could probably be written on the back of a postage stamp so please bear with me Everything I've ever created has been copied from various websites and through a process of substation, trial and error I've eventually got it working.

I've got the below which works fine, but i want to add text into the body of the email. I can insert an "introduction" but it doesn't really display how I would like. In another similar
macro, I use
.item.display instead of .item.send so I can edit the body text before I send it.
I've tried .body, item.body, .htmlbody and can't get anything to work. Out of interest I also wonder why my code has .item.To, .item.CC etc when most of the other code I see just has .to, .cc etc. I'm thinking this is how the email is being created and linked to my original problem?

As a second and much less important note, I would like to add my signature to the email. Is there a quick and easy way of doing this?

Many thanks in advance
Dave



Private Sub CommandButton1_Click()

YesNo = MsgBox("Do you really want to email Mick and the CM's?", vbYesNo)

Select Case YesNo

Case vbYes
ActiveSheet.Range("B2:U37").Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Item.To = "myemail"
.Item.CC = "myemail"
.Item.Subject = "daily sales inc P&D's"
.Item.Send
End With

Case vbNo

End Select

End Sub
 

Some videos you may like

Excel Facts

Can you sort left to right?
To sort left-to-right, use the Sort dialog box. Click Options. Choose "Sort left to right"

Watch MrExcel Video

Forum statistics

Threads
1,099,567
Messages
5,469,453
Members
406,652
Latest member
LJA

This Week's Hot Topics

Top