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