Envio de una hoja por email

Bueno, que olvidé decirte que con esto si me llega un mail al movil. Solo
que me llega un mensaje de Outlook exprex solicitando mi autorizacion para
enviarlo, lo cual es un inconveniente, pues la cuestion es que se me envien
cuando yo no esté en casa.

ActiveWorkbook.SendMail Recipients:=""
'con esto me llega mail al movil
utilizo excell xp 2002

No obstante lo que necesito es que excell me haga un formato txt y sea eso
lo que me llegue al movil, vamos, que con tres o cuatro palabras ya me
valdría.


"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
> > > >
> > > >
> > >
> > >
> >
> >
>
>

El archivo base lo saque de una pagina de
http://www.excelsp.com/vba01.htm en
Procedimiento para listar en una hoja todos los ficheros de un directorio y
sus subdirectorios de la pagina de Fernando Arroyo que postea bastante en
este foro a la que le anexe dos columnas mas.
La extructura del archivo es la siguiente:
A:Nombre B:Tamaño c: Fecha Modif. D: Nombre largo E: Nombre
Destinatario F: direccion de email


Los datos que se seleciona es la regionActual que serian los datos contiguos
que por la macro de mas arriba extrae los datos del directorio especifico
( Que es la ruta de la que hablas), basicamente para saber cuantos lineas
tiene la base para saber cuantos email voy a mandar.
En la cuarta columna esta el nombre del archivo del directorio de donde
estan los archivos que voy a mandar, funciona con txt y creo que con
cualquier archivo que
excel pueda abrir de datos planos, en todo caso el uso de la instruccion
Workbooks.OpenText . es para tratar un archivo plano, si queres usar
otro tipo de archivo deberias cambiar esta instrucción.

Espero haber sido claro, avisame si necesitas que te aclare algo mas.

Cordialmente

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

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
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>

Mas o menos ahora lo tengo claro.
Muchísimas gracias por tu ayuda!!!
genial!


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

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
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>