Enviar un mail Txt en el body

Hola a todos

Necesito su ayuda para saber como puedo mandar un mail
desde en VB en donde el cuerpo
del mensaje sea la informacion contenedia en un
archivo .txt, deseo basicamente que no se incluya como un
archivo
adjunto si no que sea la informacion basica del mail

Este es un codigo que me he encontrado en este HH Grupo


Sub EnvioCorreo()
Dim OutLookApp As Outlook.Application
Dim Msg As Outlook.MailItem
Dim Dire(1) As String
Dim X As Long

Dire(1) = "sales@jedikeeper.com"

Set OutLookApp = New Outlook.Application

Set Msg = OutLookApp.CreateItem(olMailItem)
Msg.To = Dire(1)
Msg.Subject = "Esto es el asunto"
Msg.Body = ' "C:\Mails\soyelcuerpo.txt"
Msg.Send

Set OutLookApp = Nothing

Otra cosita, cada vez que utilizo este codigo me aparece
un mensaje avisando que un programa esta tratando de
enviar un
mail a mi nombre y que puede ser un virus y bla bla bla,
hay alguna forma de decirle a este programita que el
programa
que esta tratando de enviar es del mismo que esta
enviando el mail osease yo??

Gracias de antemano

Antonio Macias



End Sub