Mandar mail desde excel sin abrir outlook

¿Cómo puedo mandar un mail con una macro desde excel sin tener que abrir outlook? Tengo éste codigo, pero no me funciona bien:

Primero disparo esta macro:

Sub Send_Msg()

Dim objOL As New outlook.Application
Dim objMail As MailItem
Set objOL = New outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail

Run Send_Range

.To = "[email protected]" ' destinatario de correo
.Subject = "Abre outlook"
.Body = "envía mensaje "
.Send
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub

Llamando a esta otra:

Private Sub Send_Range()
Sheets("Actualizado").Select
Sheets("Actualizado").Range("R2:AF25").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Aviso diario"
.Item.To = Worksheets("Actualizado").Range("R30").Value
.Item.Subject = "Reporte diario"
.Item.Send
End With
'Sheets("Actualizado").Select

End Sub

Necesito que al disparar la macro, se abra el outlook, mande el mail y cierre outlook, todo sin ser percibido por el usuario.