Lanciare. outlook da vba

Sub Notify_Email()
Dim Receives As Worksheet
Set Receives = Sheets("Receives")

Dim z As Integer
LR = Receives.Cells(Rows.Count, "A").End(xlUp).Row
Dim DApp As Object
Dim DMail As Object
Dim DSubject As String
Dim DSendTo As String
Dim DBody As String
Dim Name As String
Dim Details As Variant

For z = 2 To LR

Set DApp = CreateObject("Outlook.Application")
Set DMail = DApp.CreateItem(0)

Name = Sheets("Receives").Cells(z, 7)
'Details = Sheets("Receives").Range(Cells(z, 8), Cells(z, 11)) 'it doesn't surprise me that this doesn't work
Details = Sheets("Receives").Cells(z, 8)

DSubject = Receives.Cells(z, 3) & " Order"
DSendTo = Receives.Cells(z, 15) & "@gmail.com"
DBody = "Hello," _
    & vbCrLf & "This email is to inform you that we received an order from " & Name & Receives.Cells(z, 8) _
    & vbCrLf & "" _
    & vbCrLf & Details _
    & vbCrLf & "" _
    & vbCrLf & "If you have any questions, please reply to this email directly." _

With DMail
.Subject = DSubject
.To = DSendTo
.body = DBody
DMail.display
End With

Set DApp = Nothing
Set DMail = Nothing

Next

End Sub