Sending an email using outlook

[PaulCowie]

I am wanting to send an email from outlook. It is all user input.
The email address can be found on sheet 1 cell D17 and the user entered message in cell H5.


Can anyone help?
If i havn't been clear please get in touch

 

[PaulCowie]

I forgot to mention that i want it all done through a command button so that the command button automatically sending the email to the email address in cell D17 and takes the text from Cell H5 as the body

 

[Michael M]

What do you want to send ??
A range, a Sheet, a workbook.....or just a message ??
Have a look at Rons page for sending emails via Outlook


Mail from Excel with Outlook (VBA)

 

[hiker95]

PaulCowie,

Welcome to the MrExcel forum.

See if any of the below links will help you:

Emailing a file question
http://www.mrexcel.com/forum/excel-...l-notification-when-data-added-worksheet.html
Send a mail when a cell reaches a certain value
http://www.mrexcel.com/forum/excel-questions/818470-creating-multiple-outlook-tasks-using-macro.html

 

[hiker95]

PaulCowie,

In the MrExcel opening/banner page (top right), click on Advanced Search

In the Keyword(s): box

Enter the following with the " characters:

"email" + "Outlook"

And, click on Search Now

 

[PaulCowie]

I'm slowly getting there.
This is my current code which kinda works



Private Sub CommandButton13_Click()
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String


With Application
.EnableEvents = False
.ScreenUpdating = False
End With


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)


strbody = "<.H3><.B>Ahoj," & _
"Níže posílám seznam objednávek.<.br>" & _
"PS:speciální objednávky mají odlišné PO, od zaslaných, je nutné kontaktovat sklad<.br>" & _
"<.br><.br><.B>Dekujeme" & _
"<.br><.br><.B>Sklad"


On Error Resume Next
EndDate = Range("H" & ActiveCell.Row).Value
With OutMail
.To = [D17].Value
.CC = ""
.BCC = ""
.Subject = ""
.body = EndDate
.Send
End With
On Error GoTo 0


With Application
.EnableEvents = True
.ScreenUpdating = True
End With


Set OutMail = Nothing
Set OutApp = Nothing
End Sub


The only bit i want to change is in red above or

EndDate = Range("H" & ActiveCell.Row).Value

I want it to be a specific cell, in this example H6 instead of active cell.row

Tried experimenting with this and not been able to get it to work for a specific cell. Can anyone help?

 

[Michael M]

Use

EndDate = Range("H6").Value

Instead of

EndDate = Range("H" & ActiveCell.Row).Value