Expertos. Biblioteca SENDMAIL.DLL

[emiliopm]

Me indican, por otro lado, que use las funciones de outlook ... como ejemplo esta función que sí me funciona. Pero sigo sin saber cómo incluir un documento adjunto.

**
Public Function OutlookMail(ByVal EmailId As String, ByVal aSub As String, ByVal Body As String, ByVal adjunto As String) As String


Dim oApp As Object
Dim oMail As Object

On Error GoTo ErrHandler

Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)



oMail.To = EmailId
oMail.Subject = aSub
oMail.Body = Body
oMail.Send

Set oMail = Nothing
Set oApp = Nothing

Exit Function

ErrHandler:
MsgBox Err.Description
End Function


Saludos
epm :(