Snasui Excel Forum

Code: Select all

Sub pricingemail()

Dim EmailApplication As Object
Dim EmailItem As Object

Set EmailApplication = CreateObject("Outlook.Application")
Set EmailItem = EmailApplication.createitem(0)

With EmailItem
    .To = "123.v@test.com"
    .CC = "321.123@test.com"
    .Subject = "Please Confirm Pricing Calculation for month of ..... "
    .display
    .htmlbody = rangetohtml(Range("B5: D20"))
End With

Set EmailItem = Nothing
Set EmailApplication = Nothing

End Sub