Forums Últimos mensajes - Powered by IBM
 

Error: ".... No tiene el permiso necesario"

11/06/2006 - 19:54 por klomkbock | Informe spam
Hola a todos.

Cuando ejecuto una macro para intentar guardar un archivo adjunto a
un correo, me aparece este error:

"Se ha producido el error '-2009661435(88370005)' en tiempo de
ejecucion. No se pueden guardar los datos adjuntos. No tiene permiso para
ello."

La maquina es mia y yo soy el usuario permitido. ¿Sabe alguien como
solucionarlo?. Supongo que tendra que ver con la seguridad en macros, pero
la tengo establecida en baja (en excel, en outlook no lo he mirado, pero
me imagino que no debe ser muy conveniente). Adjunto la macro por si es
util.

Public Sub ActualizarCambios()
Dim OutlookApp As New Outlook.Application
Dim crpEntrada As Outlook.MAPIFolder
Dim indMsj As Outlook.Items
Dim msjMensaje As Outlook.MailItem
Dim msjTitulo As String
Dim iIt As Integer
Set crpEntrada = OutlookApp.GetNamespace("MAPI") _
.GetDefaultFolder(olFolderInbox)
Set indMsj = crpEntrada.Items
msjTitulo = "Copiar BIBLIOTECA"
For iIt = 1 To crpEntrada.Items.Count
Set msjMensaje = indMsj.Item(iIt)
With msjMensaje
If .Attachments.Count > 0 Then
If Left(.Subject, 17) = msjMensaje Then _
.Attachments.Item(iIt).SaveAsFile _
"C:\Documents and Settings\Ivan\Mis documentos\" & _
"Librería de Manuel Morales\Copias libreria"
End If
End With
Next
OutlookApp.Quit
Set OutlookApp = Nothing
End Sub

Lo dicho, si alguien me puede echar una mano se lo agradezco.

un saludo y hasta pronto
Ivan
 

Leer las respuestas

#1 Héctor Miguel
12/06/2006 - 02:18 | Informe spam
hola, Ivan !

[tal parece que]... solo te hace falta 'complear' la instruccion 'SaveAsFile'... -> con el nombre del archivo -?-
de otra manera... la instruccion para hacer el 'guardar como'... -> se esta quedando 'corta' :))
prueba con algo +/- como lo siguiente [solo aumente una linea para que no se te olvide el separador de rutas '\'] ;)...
With msjMensaje
If .Attachments.Count > 0 Then
If Left(.Subject, 17) = msjMensaje Then _
.Attachments.Item(iIt).SaveAsFile _
"C:\Documents and Settings\Ivan\Mis documentos\" & _
"Librería de Manuel Morales\Copias libreria" & _
"\" & .Attachments.Item(iIt).FileName
End If
End With

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ consulta original __
Cuando ejecuto una macro para intentar guardar un archivo adjunto a un correo, me aparece este error:
"Se ha producido el error '-2009661435(88370005)' en tiempo de ejecucion.
No se pueden guardar los datos adjuntos. No tiene permiso para ello." [...]
Public Sub ActualizarCambios()
Dim OutlookApp As New Outlook.Application
Dim crpEntrada As Outlook.MAPIFolder
Dim indMsj As Outlook.Items
Dim msjMensaje As Outlook.MailItem
Dim msjTitulo As String
Dim iIt As Integer
Set crpEntrada = OutlookApp.GetNamespace("MAPI") _
.GetDefaultFolder(olFolderInbox)
Set indMsj = crpEntrada.Items
msjTitulo = "Copiar BIBLIOTECA"
For iIt = 1 To crpEntrada.Items.Count
Set msjMensaje = indMsj.Item(iIt)
With msjMensaje
If .Attachments.Count > 0 Then
If Left(.Subject, 17) = msjMensaje Then _
.Attachments.Item(iIt).SaveAsFile _
"C:\Documents and Settings\Ivan\Mis documentos\" & _
"Librería de Manuel Morales\Copias libreria"
End If
End With
Next
OutlookApp.Quit
Set OutlookApp = Nothing
End Sub

Preguntas similares