Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Enviar un mail Txt en el body

15/07/2003 - 19:45 por Antonio Macias | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Maharishi...
16/07/2003 - 17:15 | Informe spam
Para enviar mail a traves de VB tienes muchos ejemplos en:
http://www.planetsourcecode.com/, ahora para leer un archivo de texto te
paso esta funcion, espero que te sirva.

Public Function LeerLogErrores() As String
Dim fnum As Integer
Dim msgError As String
On Error GoTo Ninguno
fnum = FreeFile
Open App.Path & "\Myapp.log" For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, Fila
msgError = msgError & vbCrLf & Fila & "<br>"
Loop
Close fnum
LeerLogErrores = msgError
Kill App.Path & "\Myapp.log"
Ninguno:
End Function

"Antonio Macias" escribió en el mensaje
news:032901c34af8$d2c02b20$
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) = ""

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

Preguntas similares

 

Busqueda sugerida :