Email help.... probably asked before

[rhino4eva]

Sub Email()
Application.Dialogs(xlDialogSendMail).Show
End Sub

so I have found the emal icon and put it on the ribbon.Even managed to record it in a macro.
The Million dollar question can I get the TO option to fill from Cell A on SHEET1(which is email address)

 

[Solari]

Maybe try this?



Dim OutApp As Object
Dim OutMail As Object
Dim Recipient As String

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

With OutMail
.TO = Recipient
.CC = ""
.BCC = ""
.Subject = "Email subject goes here"
.Body = "Text goes here"
.Attachments.Add 'add the file here
.Send
End With