On Sunday, July 10, 2016 at 4:52:45 AM UTC-4, Claus Busch wrote:
Hi Paul,

Am Sat, 9 Jul 2016 21:24:56 -0700 (PDT) schrieb Paul Doucette:

One more, question on this... If I wanted the:
.to =
.Subject =
.body =
to pull their information from: Sheets("Quote").Range("M2,M3,M4)" and to not actually send but just open, and allow me to review before sending, is that possible?

try:

Sub SendMail()
Dim objOutlook As Object, objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.Createitem(0)

With objMail
.to = Sheets("Quote").Range("M2")
.Subject = Sheets("Quote").Range("M3")
.body = Sheets("Quote").Range("M4")
With .attachments
.Add "R:\emailed quotes\" & Sheets("Quote").Range("M1") _
& ".pdf"
End With
.display
End With
End Sub


Regards
Claus B.
--
Windows10
Office 2016

Worked Perfectly, Claus! Thank you AGAIN! :-) -Paul