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

Preguntas similare

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

Respuesta Responder a este mensaje
#2 Ivanhoe[HCH]
16/07/2003 - 18:48 | Informe spam
Open strArchivo For Input As lngNoArchivo
lngTamanoArchivo = LOF(lngNoArchivo)
strCadena = Input$(lngTamanoArchivo, lngNoArchivo)
Close lngNoArchivo

better ???

"Maharishi..." wrote in message
news:
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
>


Respuesta Responder a este mensaje
#3 Unai Garcia
17/07/2003 - 13:07 | Informe spam
El mensaje de aviso que te sale no es de tu programa, es del gestor de
correo electronico, en el Outlook Express -> Opciones -> Seguridad mira si
esta marcado "Avisarme cuando otras aplicaciones intenten enviar un correo
electronico con mi nombre"

"Ivanhoe[HCH]" escribió en el mensaje
news:
Open strArchivo For Input As lngNoArchivo
lngTamanoArchivo = LOF(lngNoArchivo)
strCadena = Input$(lngTamanoArchivo, lngNoArchivo)
Close lngNoArchivo

better ???

"Maharishi..." wrote in message
news:
> 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
> >
>
>


Respuesta Responder a este mensaje
#4 Antonio Macias
17/07/2003 - 16:57 | Informe spam
Hola,

Muchas gracias pero lo he solucionado con FilesystemObject
Dejo mi codigo para futuras referencias para alguien q
busque informacion al respecto, digo tambien funciona asi
al igual que con input, pero de esta forma se me hizo mas
facil

Set fso = CreateObject("scripting.FilesystemObject")
Set ts = fso.OpenTextFile(MyFile, 1)
MyMail = ts.ReadAll
ts.Close


Set appOL = CreateObject("Outlook.Application")
Set MyOutlook = appOL.CreateItem(olMailItem)
MyOutlook.To = "un correo"
MyOutlook.Subject = "Un subject"
MyOutlook.Body = MyMail
MyOutlook.Send

appOL.Quit

Set MyOutlook = Nothing
Set appOL = Nothing

Un saludo y Gracias
Antonio Macias

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





.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida