Access - Automatización de outlook mediante access

resultado = MsgBox("DESEAS VER (PULSA SI) O ENVIAR POR MAIL (PULSA NO) LAS NECESIDADES DE COMPRA DE FUENTES", vbYesNoCancel)

If resultado = vbYes Then

DoCmd.OpenReport "fuentes", acViewPreview

End If

If resultado = vbNo Then

DoCmd.OutputTo acOutputReport, "FUENTES", acFormatHTML, "Z:\TRAZABILIDAD\INFORMES\COMPRA_FUENTES.html", True, ""

InsertaFUENTE "Z:\TRAZABILIDAD\INFORMES\COMPRA_FUENTES.html"

End If

If resultado = vbCancel Then

MsgBox "APERTURA DE NECESIDAD DE FUENTES, CANCELADA"

End If

Private Sub InsertaFUENTE(strFile As String)

Dim OutApp As Outlook.Application

Dim OutMail As Outlook.MailItem

Dim fso As Scripting.FileSystemObject

Dim tsTextIn As Scripting.TextStream

Dim strTextIn As String

Set fso = New Scripting.FileSystemObject

Set tsTextIn = fso.OpenTextFile(strFile)

strTextIn = tsTextIn.ReadAll

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail

       .To = "xxxx@yahoo.com"

       .CC = "xxxx@yahoo.com"

      ' .BCC = "xxxx@yahoo.com"

       .Subject = "Fuentes necesarias para pedidos pendientes " & Date

      .BodyFormat = olFormatHTML

       .HTMLBody = strTextIn

       .Display

End With

End Sub