Envio de una hoja por email

El tema esta solucionado, anduvo, en office 97, ademas agregue una
instruccion para cerrar el archivo txt que abria en cada momento,y agregue
un "enviado email" a la planilla.

Desde ya muchas gracias.


"jpandiani" escribió en el mensaje
news:uRTjPWo$

Tengo un archivo en donde tengo varias columnas, entre ellas hay dos que
son las que interesan , las que tiene el nombre del archivo ( que es un

txt)

y otra columna con el destinatario.

Intento que Excel , abra el archivo txt y que luego lo envie al
destinatario.

Tengo problemas cuando quiero enviar el archivo , porque no graba la macro
y que ademas el archivo queda como un excel, que si lo hago con el office

97

no lo hace asi, es decir que quede como un icono.

Desde ya muchas gracias.

Sub Enviodeadjuntos()
'
' Enviodeadjuntos Macro
' Macro grabada el 29/02/2004 por Javier
'

'
Sheets("Hoja1").Select
Range("A1").Select
Selection.CurrentRegion.Select

Cuenta = Selection.Rows.Count

For i = 2 To Cuenta


archivo = Cells(i, 4) ' el nombre del archivo en la hoja de excell
direccion = Cells(i, 6) ' la direccion de email


ChDir "C:\aprueba" ' Cambio de directorio

Workbooks.OpenText Filename:=archivo, Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(0,
1),



ActiveWorkbook.SendMail Recipients:="Direccion", Subject:="Envío Orden
de pago"

Next


End Sub

Podrias pegar la macro completa, la que te funciona?
Me gustaria provar a enviar un archivo.
Gracias anticipadas.
saludos.-


"jpandiani" escribió en el mensaje
news:O69Wgb9$

El tema esta solucionado, anduvo, en office 97, ademas agregue una
instruccion para cerrar el archivo txt que abria en cada momento,y

agregue

un "enviado email" a la planilla.

Desde ya muchas gracias.


"jpandiani" escribió en el mensaje
news:uRTjPWo$
> Tengo un archivo en donde tengo varias columnas, entre ellas hay dos

que

> son las que interesan , las que tiene el nombre del archivo ( que es un
txt)
> y otra columna con el destinatario.
>
> Intento que Excel , abra el archivo txt y que luego lo envie al
> destinatario.
>
> Tengo problemas cuando quiero enviar el archivo , porque no graba la

macro

> y que ademas el archivo queda como un excel, que si lo hago con el

office

97
> no lo hace asi, es decir que quede como un icono.
>
> Desde ya muchas gracias.
>
> Sub Enviodeadjuntos()
> '
> ' Enviodeadjuntos Macro
> ' Macro grabada el 29/02/2004 por Javier
> '
>
> '
> Sheets("Hoja1").Select
> Range("A1").Select
> Selection.CurrentRegion.Select
>
> Cuenta = Selection.Rows.Count
>
> For i = 2 To Cuenta
>
>
> archivo = Cells(i, 4) ' el nombre del archivo en la hoja de excell
> direccion = Cells(i, 6) ' la direccion de email
>
>
> ChDir "C:\aprueba" ' Cambio de directorio
>
> Workbooks.OpenText Filename:=archivo, Origin:= _
> xlMSDOS, StartRow:=1, DataType:=xlFixedWidth,

FieldInfo:=Array(0,

> 1),
>
>
>
> ActiveWorkbook.SendMail Recipients:="Direccion", Subject:="Envío

Orden

> de pago"
>
> Next
>
>
> End Sub
>
>

Esta es la macro completa, en mi trabajo con W95 y office 97 funciona
bien,en casa con office2003 me da error 1004, tanto en la instruccion que
busca el archivo y lo abre como con la instrucción que lo manda y no lo
puedo hacer funcionar.

Probalo y contame.


Sub Enviodeadjuntos()
'
' Enviodeadjuntos Macro
' Macro grabada el 29/02/2004 por Javier
'

'
Sheets("Hoja1").Select
Range("A1").Select
Selection.CurrentRegion.Select

Cuenta = Selection.Rows.Count

For i = 2 To Cuenta


miarchivo = Cells(i, 4)

' es la cuarta columna en donde esta el nombre arch

miDireccion = Cells(i, 6)

' Es la columna donde esta la

ChDir "C:\aprueba"

Workbooks.OpenText Filename:= miarchivo, Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(0,
2), _
TrailingMinusNumbers:=True




ActiveWorkbook.SendMail Recipients:=miDireccion, Subject:="Envío Orden
de pago"
ActiveWorkbook.Close


Next


End Sub




"Jesús Román" <CRISONIA3(texto inactivo)@terra.es> escribió en el mensaje
news:O441c.3730455$

Podrias pegar la macro completa, la que te funciona?
Me gustaria provar a enviar un archivo.
Gracias anticipadas.
saludos.-


"jpandiani" escribió en el mensaje
news:O69Wgb9$
> El tema esta solucionado, anduvo, en office 97, ademas agregue una
> instruccion para cerrar el archivo txt que abria en cada momento,y
agregue
> un "enviado email" a la planilla.
>
> Desde ya muchas gracias.
>
>
> "jpandiani" escribió en el mensaje
> news:uRTjPWo$
> > Tengo un archivo en donde tengo varias columnas, entre ellas hay dos
que
> > son las que interesan , las que tiene el nombre del archivo ( que es

un

> txt)
> > y otra columna con el destinatario.
> >
> > Intento que Excel , abra el archivo txt y que luego lo envie al
> > destinatario.
> >
> > Tengo problemas cuando quiero enviar el archivo , porque no graba la
macro
> > y que ademas el archivo queda como un excel, que si lo hago con el
office
> 97
> > no lo hace asi, es decir que quede como un icono.
> >
> > Desde ya muchas gracias.
> >
> > Sub Enviodeadjuntos()
> > '
> > ' Enviodeadjuntos Macro
> > ' Macro grabada el 29/02/2004 por Javier
> > '
> >
> > '
> > Sheets("Hoja1").Select
> > Range("A1").Select
> > Selection.CurrentRegion.Select
> >
> > Cuenta = Selection.Rows.Count
> >
> > For i = 2 To Cuenta
> >
> >
> > archivo = Cells(i, 4) ' el nombre del archivo en la hoja de excell
> > direccion = Cells(i, 6) ' la direccion de email
> >
> >
> > ChDir "C:\aprueba" ' Cambio de directorio
> >
> > Workbooks.OpenText Filename:=archivo, Origin:= _
> > xlMSDOS, StartRow:=1, DataType:=xlFixedWidth,
FieldInfo:=Array(0,
> > 1),
> >
> >
> >
> > ActiveWorkbook.SendMail Recipients:="Direccion", Subject:="Envío
Orden
> > de pago"
> >
> > Next
> >
> >
> > End Sub
> >
> >
>
>

Cuando importa el archivo Txt , me sale un cartel de advertencia que se
trata
de un archivo de tipo desconocidoetc, me faltaria una instrucción para
que no salga el archivo y asi el envio lo hace mecanico sin dar el oky cada
vez que aparece esa pantalla.

"jpandiani" escribió en el mensaje
news:%

Esta es la macro completa, en mi trabajo con W95 y office 97 funciona
bien,en casa con office2003 me da error 1004, tanto en la instruccion que
busca el archivo y lo abre como con la instrucción que lo manda y no lo
puedo hacer funcionar.

Probalo y contame.


Sub Enviodeadjuntos()
'
' Enviodeadjuntos Macro
' Macro grabada el 29/02/2004 por Javier
'

'
Sheets("Hoja1").Select
Range("A1").Select
Selection.CurrentRegion.Select

Cuenta = Selection.Rows.Count

For i = 2 To Cuenta


miarchivo = Cells(i, 4)

' es la cuarta columna en donde esta el nombre arch

miDireccion = Cells(i, 6)

' Es la columna donde esta la

ChDir "C:\aprueba"

Workbooks.OpenText Filename:= miarchivo, Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(0,
2), _
TrailingMinusNumbers:=True




ActiveWorkbook.SendMail Recipients:=miDireccion, Subject:="Envío Orden
de pago"
ActiveWorkbook.Close


Next


End Sub




"Jesús Román" <CRISONIA3(texto inactivo)@terra.es> escribió en el mensaje
news:O441c.3730455$
> Podrias pegar la macro completa, la que te funciona?
> Me gustaria provar a enviar un archivo.
> Gracias anticipadas.
> saludos.-
>
>
> "jpandiani" escribió en el

mensaje

> news:O69Wgb9$
> > El tema esta solucionado, anduvo, en office 97, ademas agregue una
> > instruccion para cerrar el archivo txt que abria en cada momento,y
> agregue
> > un "enviado email" a la planilla.
> >
> > Desde ya muchas gracias.
> >
> >
> > "jpandiani" escribió en el mensaje
> > news:uRTjPWo$
> > > Tengo un archivo en donde tengo varias columnas, entre ellas hay

dos

> que
> > > son las que interesan , las que tiene el nombre del archivo ( que es
un
> > txt)
> > > y otra columna con el destinatario.
> > >
> > > Intento que Excel , abra el archivo txt y que luego lo envie al
> > > destinatario.
> > >
> > > Tengo problemas cuando quiero enviar el archivo , porque no graba la
> macro
> > > y que ademas el archivo queda como un excel, que si lo hago con el
> office
> > 97
> > > no lo hace asi, es decir que quede como un icono.
> > >
> > > Desde ya muchas gracias.
> > >
> > > Sub Enviodeadjuntos()
> > > '
> > > ' Enviodeadjuntos Macro
> > > ' Macro grabada el 29/02/2004 por Javier
> > > '
> > >
> > > '
> > > Sheets("Hoja1").Select
> > > Range("A1").Select
> > > Selection.CurrentRegion.Select
> > >
> > > Cuenta = Selection.Rows.Count
> > >
> > > For i = 2 To Cuenta
> > >
> > >
> > > archivo = Cells(i, 4) ' el nombre del archivo en la hoja de

excell

> > > direccion = Cells(i, 6) ' la direccion de email
> > >
> > >
> > > ChDir "C:\aprueba" ' Cambio de directorio
> > >
> > > Workbooks.OpenText Filename:=archivo, Origin:= _
> > > xlMSDOS, StartRow:=1, DataType:=xlFixedWidth,
> FieldInfo:=Array(0,
> > > 1),
> > >
> > >
> > >
> > > ActiveWorkbook.SendMail Recipients:="Direccion", Subject:="Envío
> Orden
> > > de pago"
> > >
> > > Next
> > >
> > >
> > > End Sub
> > >
> > >
> >
> >
>
>

Necesitaria que me explicaras algo mas los detalles, me funciona hasta que
llega al tema del archivo de texto, pero no se si tengo los datos donde debo
de tenerlos
-lo de la "Hoja1", lo tengo claro
-luego lo de la "celda A1" Tambien
-luego me selecciona una parte de la hoja A1 (que datos debo de tener ahi?)
quizas los que quiero enviar?
-Dices luego en la cuarta columna es donde esta el nombre del archivo (aqui
ando despistado) ¿donde exactamente tengo que poner el nombre del archivo?
tengo que darle algun nombre especifico?
-Luego he visto una ruta... he creado esa carpeta en C, pero tengo que tener
dentro de esa carpeta algun archivo y si es así que nombre le pongo?

Bueno, la cuestion es que creo que todo lo que te pregunto casi que lo debo
de tener bien, no obstante no me fio de mi sombra y prefiero estrujarte los
sesos a preguntas para así estar mas seguro. Te agradezco tu atencion.

Estoy haciendome un programa de avisos, y necesito que cuando el ordenador
obtenga ciertos datos me de un aviso al movil, asi que trato de aprender
todo lo que pueda sobre el tema de envios.

De nuevo gracias.-


"jpandiani" escribió en el mensaje
news:

Cuando importa el archivo Txt , me sale un cartel de advertencia que se
trata
de un archivo de tipo desconocidoetc, me faltaria una instrucción para
que no salga el archivo y asi el envio lo hace mecanico sin dar el oky

cada

vez que aparece esa pantalla.

"jpandiani" escribió en el mensaje
news:%
> Esta es la macro completa, en mi trabajo con W95 y office 97 funciona
> bien,en casa con office2003 me da error 1004, tanto en la instruccion

que

> busca el archivo y lo abre como con la instrucción que lo manda y no lo
> puedo hacer funcionar.
>
> Probalo y contame.
>
>
> Sub Enviodeadjuntos()
> '
> ' Enviodeadjuntos Macro
> ' Macro grabada el 29/02/2004 por Javier
> '
>
> '
> Sheets("Hoja1").Select
> Range("A1").Select
> Selection.CurrentRegion.Select
>
> Cuenta = Selection.Rows.Count
>
> For i = 2 To Cuenta
>
>
> miarchivo = Cells(i, 4)
>
> ' es la cuarta columna en donde esta el nombre arch
>
> miDireccion = Cells(i, 6)
>
> ' Es la columna donde esta la
>
> ChDir "C:\aprueba"
>
> Workbooks.OpenText Filename:= miarchivo, Origin:= _
> xlMSDOS, StartRow:=1, DataType:=xlFixedWidth,

FieldInfo:=Array(0,

> 2), _
> TrailingMinusNumbers:=True
>
>
>
>
> ActiveWorkbook.SendMail Recipients:=miDireccion, Subject:="Envío

Orden

> de pago"
> ActiveWorkbook.Close
>
>
> Next
>
>
> End Sub
>
>
>
>
> "Jesús Román" <CRISONIA3(texto inactivo)@terra.es> escribió en el

mensaje

> news:O441c.3730455$
> > Podrias pegar la macro completa, la que te funciona?
> > Me gustaria provar a enviar un archivo.
> > Gracias anticipadas.
> > saludos.-
> >
> >
> > "jpandiani" escribió en el
mensaje
> > news:O69Wgb9$
> > > El tema esta solucionado, anduvo, en office 97, ademas agregue una
> > > instruccion para cerrar el archivo txt que abria en cada momento,y
> > agregue
> > > un "enviado email" a la planilla.
> > >
> > > Desde ya muchas gracias.
> > >
> > >
> > > "jpandiani" escribió en el mensaje
> > > news:uRTjPWo$
> > > > Tengo un archivo en donde tengo varias columnas, entre ellas hay
dos
> > que
> > > > son las que interesan , las que tiene el nombre del archivo ( que

es

> un
> > > txt)
> > > > y otra columna con el destinatario.
> > > >
> > > > Intento que Excel , abra el archivo txt y que luego lo envie al
> > > > destinatario.
> > > >
> > > > Tengo problemas cuando quiero enviar el archivo , porque no graba

la

> > macro
> > > > y que ademas el archivo queda como un excel, que si lo hago con el
> > office
> > > 97
> > > > no lo hace asi, es decir que quede como un icono.
> > > >
> > > > Desde ya muchas gracias.
> > > >
> > > > Sub Enviodeadjuntos()
> > > > '
> > > > ' Enviodeadjuntos Macro
> > > > ' Macro grabada el 29/02/2004 por Javier
> > > > '
> > > >
> > > > '
> > > > Sheets("Hoja1").Select
> > > > Range("A1").Select
> > > > Selection.CurrentRegion.Select
> > > >
> > > > Cuenta = Selection.Rows.Count
> > > >
> > > > For i = 2 To Cuenta
> > > >
> > > >
> > > > archivo = Cells(i, 4) ' el nombre del archivo en la hoja de
excell
> > > > direccion = Cells(i, 6) ' la direccion de email
> > > >
> > > >
> > > > ChDir "C:\aprueba" ' Cambio de directorio
> > > >
> > > > Workbooks.OpenText Filename:=archivo, Origin:= _
> > > > xlMSDOS, StartRow:=1, DataType:=xlFixedWidth,
> > FieldInfo:=Array(0,
> > > > 1),
> > > >
> > > >
> > > >
> > > > ActiveWorkbook.SendMail Recipients:="Direccion",

Subject:="Envío

> > Orden
> > > > de pago"
> > > >
> > > > Next
> > > >
> > > >
> > > > End Sub
> > > >
> > > >
> > >
> > >
> >
> >
>
>