Solución 16.6 Enviar un mail con Outlook

Sub EnviarMail()  
  Dim strMail As String  
  Dim ol As Outlook.Application  
  Dim olMensaje As Outlook.MailItem  
  Set ol = New Outlook.Application  
  Set olMensaje = ol.CreateItem(olMailItem)  
  On Error GoTo SalidaError  
  strMail = InputBox("Introduzca la dirección de e-mail")  
  If ...