Código para zipear o encriptar
1 'Private Sub cmdN1_Click()
2 'On Error GoTo Err_cmdN1_Click
3 'If sstatus = "AUTORIZADO CON GARANTIA" Then
4 'DoCmd.OpenReport "Notificacion Autorizado 2da Etapa", acViewPreview
5 'DoCmd.Close acReport, "Notificacion Autorizado 1ra Etapa"
6 'DoCmd.Maximize
7 ' DoCmd.SendObject acReport, "Notificacion Autorizado 2da Etapa", "FormatoSnapshot(*.snp)", "", "", "", "(A) " & snombresoldoc & " " & sControl, "Atención : Gerente y/o Ejecutivo " & vbCrLf & "Por este medio les notificamos que la solicitud a nombre de : " & vbCrLf & vbCrLf & "NOMBRE :" & snombresoldoc & vbCrLf & "CONTROL :" & sControl
8 'ElseIf sstatus = "DECLINADO ETAPA 2" Then
9 'DoCmd.SendObject , , , , , , "(D) " & snombresoldoc & " " & sControl, "NOTIFICADO DECLINADO" & vbCrLf & vbCrLf & "Atención: Gerente y/o Ejecutivo" & vbCrLf & "Por este medio les notificamos que la solicitud de crédito a nombre de:" & vbCrLf & vbCrLf & "NOMBRE: " & snombresoldoc & vbCrLf & "CONTROL: " & sControl & "Se encuentra DECLINADO"
10 'End If
11 'Exit_cmdN1_Click:
12 ' Exit Sub
13 'Err_cmdN1_Click:
14 ' Resume Exit_cmdN1_Click
15 'End Sub
Lo que requiero es que en la linea 7 al momento de mandar a llamar el Informe y enviarlo por mail, éste se envíe con formato .ZIP y protegido con una contraseña preestablecida.
¿Es posible? O de que manera puedo programar que el informe quede zipeado al momento de enviarse por mail.
Saludos y gracias.
2 'On Error GoTo Err_cmdN1_Click
3 'If sstatus = "AUTORIZADO CON GARANTIA" Then
4 'DoCmd.OpenReport "Notificacion Autorizado 2da Etapa", acViewPreview
5 'DoCmd.Close acReport, "Notificacion Autorizado 1ra Etapa"
6 'DoCmd.Maximize
7 ' DoCmd.SendObject acReport, "Notificacion Autorizado 2da Etapa", "FormatoSnapshot(*.snp)", "", "", "", "(A) " & snombresoldoc & " " & sControl, "Atención : Gerente y/o Ejecutivo " & vbCrLf & "Por este medio les notificamos que la solicitud a nombre de : " & vbCrLf & vbCrLf & "NOMBRE :" & snombresoldoc & vbCrLf & "CONTROL :" & sControl
8 'ElseIf sstatus = "DECLINADO ETAPA 2" Then
9 'DoCmd.SendObject , , , , , , "(D) " & snombresoldoc & " " & sControl, "NOTIFICADO DECLINADO" & vbCrLf & vbCrLf & "Atención: Gerente y/o Ejecutivo" & vbCrLf & "Por este medio les notificamos que la solicitud de crédito a nombre de:" & vbCrLf & vbCrLf & "NOMBRE: " & snombresoldoc & vbCrLf & "CONTROL: " & sControl & "Se encuentra DECLINADO"
10 'End If
11 'Exit_cmdN1_Click:
12 ' Exit Sub
13 'Err_cmdN1_Click:
14 ' Resume Exit_cmdN1_Click
15 'End Sub
Lo que requiero es que en la linea 7 al momento de mandar a llamar el Informe y enviarlo por mail, éste se envíe con formato .ZIP y protegido con una contraseña preestablecida.
¿Es posible? O de que manera puedo programar que el informe quede zipeado al momento de enviarse por mail.
Saludos y gracias.
1 respuesta
Respuesta de fibonnaci
1
No se si con el comando SendObjec puedes mandar
archivos, supongo que también.
Previamente para enziparlo deberías usar las dll
(Biblioteca)de un programa zip en el access:
Una vez las tengas en el disco cópialas en
C:\WINDOWS\system32\ y debes registrarlas
clickandolas o usando
C:\WINDOWS\system32\regsvr32.exe
Seguidamente abre en diseño un modulo access
cualquiera (o creas uno nuevo si no hay ninguno)
Y dale a Herramientas / Referencias
E incluye tu nueva/s dll como referencia.
y... Ya puedes usar el programa en access.
¿Fácil, no?
archivos, supongo que también.
Previamente para enziparlo deberías usar las dll
(Biblioteca)de un programa zip en el access:
Una vez las tengas en el disco cópialas en
C:\WINDOWS\system32\ y debes registrarlas
clickandolas o usando
C:\WINDOWS\system32\regsvr32.exe
Seguidamente abre en diseño un modulo access
cualquiera (o creas uno nuevo si no hay ninguno)
Y dale a Herramientas / Referencias
E incluye tu nueva/s dll como referencia.
y... Ya puedes usar el programa en access.
¿Fácil, no?
