Envio Zip

27/06/2005 - 20:55 por JAVIER | Informe spam
ya entre a la pagina pero la verdad no le entiendo... lo que si es que mi
codigo esta bien solo le falta agregar algo para que haga zip el archivo!! no
se te ocurre como hacerlo o como aprovechar esta pagina que me enviastes y
complementarlo? yo sinceramente ya mas no entiendo yo solo se poco de vb en
excel pero fuera de ahi no tengo instalado visual basic 6.. tambien pienso
que posiblemente el zip que uso no sea compatible con lo que requiero hacer,
pero aun no lo se. espero alguien me pueda ayudar mas con este codigo


"Manuel Romero" escribió:


En la pagina del maestro Guille hay unas librerias para comprimir y
descomprimir en VB

http://www.elguille.info/colabora/vb/zip32dll.htm
http://www.elguille.info/colabora/v...p32dll.htm

"JAVIER" <JAVIER@discussions.microsoft.com> escribió en el mensaje
news:5DA9CF36-67D9-43EC-814E-654C7417B29C@microsoft.com...
> En efecto es el shell pero el detalle es como puedo solucionar esto dado
> que
> el autor comenta que con winzip si funciona siempre y cuando tenga uno la
> licencia, orita estoy intentando que funcione esta aplicacion con un
> compresor gratuito pero hasta el momento no logro configurar la mcro el zi
> que utilizo ahora es zipgenius 5
> www.zipgenius.it
> si tu sabes de algun otro compresor elcualpueda hacer funcionar esta macro
> te agradeceria muchisimo!! saludos
>
>
> "Manuel Romero" escribió:
>
>> Estas seguro de que tu programa de compresion funciona? todo apunta a que
>> el
>> error esta en el Shell porque no esta comprimiendo
>>
>> "JAVIER" <JAVIER@discussions.microsoft.com> escribió en el mensaje
>> news:288E2020-AEAD-41A7-91AB-A2B61F1F0779@microsoft.com...
>> > alguien de ustedes ha podido usar este codigo con un compresor
>> > Gratutito??
>> >
>> > Sub ActiveWorkbook_zipMail()
>> >
>> > 'This sub will send a newly created workbook (copy of the
>> > Activeworkbook).
>> >
>> > 'It zip and save the workbook before mailing it with a date/time stamp.
>> >
>> > 'After the zip file is sent the zip file and the workbook will be
>> > deleted
>> > from your hard disk.
>> >
>> > Dim PathWinZip As String, FileNameZip As String, FileNameXls As
>> > String
>> >
>> > Dim ShellStr As String, strdate As String
>> >
>> > Dim Runwzzip As Long
>> >
>> > Dim OutApp As Outlook.Application
>> >
>> > Dim OutMail As Outlook.MailItem
>> >
>> > strdate = Format(Now, "dd-mm-yy h-mm-ss")
>> >
>> > PathWinZip = "C:\archivos de programa\zipgenius 5\" ' Be sure
>> > that this
>> > is
>> > the path where WinZip is installed.
>> >
>> > FileNameZip = "C:\" & Left(ActiveWorkbook.Name,
>> > Len(ActiveWorkbook.Name)
>> > - 4) & " " & strdate & ".zip "
>> >
>> > FileNameXls = "C:\" & Left(ActiveWorkbook.Name,
>> > Len(ActiveWorkbook.Name)
>> > - 4) & " " & strdate & ".xls"
>> >
>> > ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
>> >
>> >
>> >
>> > ShellStr = PathWinZip & "zipgenius -min -a " & " " & Chr(34) &
>> > FileNameZip
>> > & Chr(34) & " " & Chr(34) & FileNameXls & Chr(34)
>> >
>> > Runwzzip = Shell(ShellStr, vbHide)
>> >
>> > Set OutApp = CreateObject("Outlook.Application")
>> >
>> > Set OutMail = OutApp.CreateItem(olMailItem)
>> >
>> > With OutMail
>> >
>> > .To = "jrodrigu@grupolala.com "
>> >
>> > .CC = ""
>> >
>> > .BCC = ""
>> >
>> > .Subject = "ZipMailTest"
>> >
>> > .Body = "Here is the File"
>> >
>> > .Attachments.Add FileNameZip--> ¡¡cuando llego aqui me dice qeu
>> > el
>> > sistem ano puede encontrar el archivo!!...
>> >
>> > .Send
>> >
>> > End With
>> >
>> > Set OutMail = Nothing
>> >
>> > Set OutApp = Nothing
>> >
>> > Kill FileNameZip
>> >
>> > Kill FileNameXls
>> >
>> > End Sub
>> >
>> >
>> >
>> >
>>
>>
>>



Preguntas similare

Leer las respuestas

#1 Héctor Miguel
28/06/2005 - 03:21 | Informe spam
hola, JAVIER !

... solo le falta agregar algo para que haga zip el archivo!! [...]



prueba visitando la siguiente pagina:
http://xcelfiles.homestead.com/Outlook_02.html

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