Public Function MailTo(Byval Dest As String, Byval Subject As String, Byval Body As String, Optional Byval Adjunto As String) As Boolean
  On Error Goto Err_MailTo

  Dim objOLMAIL As Object
  Dim objMAIL As Object
  Dim objATCH As Object
  Dim objDEST As Object   

  Set objOLMAIL = CreateObject("Outlook.Application")
  Set objMAIL = objOLMAIL.CreateItem(0)
  objMAIL.Subject = Subject
  objMAIL.Body = Body

  Set objDEST = objMAIL.Recipients
  objDEST.Add Dest
  If Not objDEST.ResolveAll Then
       MsgBox "Error en destinatario de correo " & Dest & "."
       GoTo Exit_MailTo
  End If

  If Adjunto <> "" Then
     Set objATCH = objMAIL.Attachments
     objATCH.Add Adjunto
  End If

  objMAIL.Send

  MailTo = True   

Exit_MailTo:
  Set ObjDEST = Nothing
  Set ObjATCH = Nothing
  Set objMAIL = Nothing
  Set objOLMAIL = NOthing
  Exit Function

Err_MailTo:
  MsgBox Err.Description
  Resume Exit_MailTo

End Function