Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Enormità cassetta postale Outlook

Hai problemi con i file Zip, vuoi formattare l'HD, non sai come funziona FireFox? O magari ti serve proprio quel programmino di cui non ricordi il nome! Ecco il forum dove poter risolvere i tuoi problemi.

Moderatori: Dylan666, hydra, gahan

Enormità cassetta postale Outlook

Postdi cassioli » 02/08/05 07:25

La mia cassetta postale in MS Outlook dell'ufficio ha raggiunto le interessanti dimensioni di 500 MB (mannaggia agli allegati, mannaggia....).
E' possibile eliminare dai messaggi gli allegati senza eliminare i messaggi stessi?
cassioli
Utente Senior
 
Post: 1014
Iscritto il: 05/03/04 11:02

Sponsor
 

Postdi kadosh » 02/08/05 10:04

No ;)
Ch®is ˜˜ www.glgroup.it˜˜ {~Up You® Life~}™ Semper Fidelis
Avatar utente
kadosh
Moderatore
 
Post: 3791
Iscritto il: 24/09/01 01:00
Località: Roma

Postdi cassioli » 02/08/05 10:19

kadosh ha scritto:No ;)

E invece si'! :P

Ho trovato diversi programmi, che pero' siccome si pagano non mi servono... :P

Poi ho trovato questo link grandioso ( http://www.fontstuff.com/outlook/oltut0 ... treference ), insieme a quest'altro, e cosi' mi sto scrivendo da solo la macro in VBA. QUando ho finito, se a qualcuno interessa la posto... ;)
cassioli
Utente Senior
 
Post: 1014
Iscritto il: 05/03/04 11:02

Postdi cassioli » 02/08/05 10:54

mmhh.. non capisco... riesco a scorrere tutti i messaggi, a salvare tutti gli attach con attachment.saveas, ma attachment.delete non da' errore ma non funziona! :aaah
Mah? :?:
cassioli
Utente Senior
 
Post: 1014
Iscritto il: 05/03/04 11:02

Postdi microguru » 02/08/05 11:22

ma... un back-up/archivio di posta, no? :mmmh:
**** COMMODORE 64 BASIC V2 ****
64K RAM SYSTEM 38911 BASIC BYTES FREE
READY.

Immagine
microguru
Utente Senior
 
Post: 1267
Iscritto il: 12/07/05 14:11
Località: Milano

Postdi feno » 02/08/05 13:37

creati un nuovo file pst.
Utilizza quello nuovo come default per la consegna e quello vecchio tienilo solo per consultazione.

Ti rocordo che con il file pst puoi arrivare fino a circa 2Gb poi si sput*** tutto
Cià

F@no
feno
Utente Senior
 
Post: 268
Iscritto il: 29/05/02 08:36
Località: Somewhere in Italy

Postdi cassioli » 02/08/05 15:44

feno ha scritto:creati un nuovo file pst.
Utilizza quello nuovo come default per la consegna e quello vecchio tienilo solo per consultazione.

Ti rocordo che con il file pst puoi arrivare fino a circa 2Gb poi si sput*** tutto

"Default per la consegna"???

Spiegatemi bene: come posso dire ad Outlook di mettermi da parte tutti i mex ricevuti finora (in un PST a parte), e usare un PST nuovo per i messaggi che ricevero' d'ora in poi?

Cmq, avrei trovato anche un programma freeware che fa al caso mio... peccato che funzioni solo con Outlook inglese! Nessuno di voi ha VisualBasic per ricompilarlo? Il sorgente è disponibile, basterebbe cambiare un "messages" in "messaggi"! :eeh:
http://www.aufgang.org/koch/homepage/software/todi.htm
cassioli
Utente Senior
 
Post: 1014
Iscritto il: 05/03/04 11:02

Postdi cassioli » 02/08/05 15:45

microguru ha scritto:ma... un back-up/archivio di posta, no? :mmmh:

E' quello che voglio fare! ma senza i 599 MB di allegati, voglio backuappare solo i messaggi! (e mettere gli allegati a parte in caso di bisogno)
cassioli
Utente Senior
 
Post: 1014
Iscritto il: 05/03/04 11:02

Postdi kadosh » 02/08/05 23:06

Sorry Cassioli ma quello che vuoi fare tu è diverso da ciò che hai scritto nella richiesta.

Dunque, nella prima frase:

E' possibile eliminare dai messaggi gli allegati senza eliminare i messaggi stessi?


La risposta è sempre NO. Perchè? Semplice, perchè non è possibile separare all'interno di un .pst la natura del messaggio che è ancora in codifica MIME.

Quello che hai trovato tu, ma solo se hai Outlook dal 2000 in poi, ti salva gli allegati in una cartella, ma il messaggio originale nella folder non viene assolutamente separato da esso.

Con Exchange 2003 è stata implementata una funzione simile, ma deve essere attivata sul Server a richiesta per le cassette postali che ne hanno bisogno.

Per finire, il limite consigliato per fare un backup è 1.8 GB, arrivando a 2 GB già si rischia che i vari tool come scanpst et similia diventino insufficienti.
Ch®is ˜˜ www.glgroup.it˜˜ {~Up You® Life~}™ Semper Fidelis
Avatar utente
kadosh
Moderatore
 
Post: 3791
Iscritto il: 24/09/01 01:00
Località: Roma

Postdi Claudione » 03/08/05 11:28

Scusate se mi intrometto, ma io uso correntemente outlook 2003 e aprendo il messaggio a schermo intero cliccando (una volta) sull'allegato quindi tasto dx del mouse e poi "rimuovi" e chiudo il messaggio salvando l'allegato scompare e la dimensione del messaggio diminuisce.
La stessa cosa anche con olutlook 2002/xp
Mi rusulta poi che i file pst di outlook 2003 supportino dimensioni anche superiori ai 2 GB, ma non ho ancora verificato.
Spero di essere stato di aiuto
ciao a tutti
Clod
Claudione
Utente Junior
 
Post: 10
Iscritto il: 09/11/04 14:19

Postdi cassioli » 03/08/05 14:09

kadosh ha scritto:Sorry Cassioli ma quello che vuoi fare tu è diverso da ciò che hai scritto nella richiesta.

Dunque, nella prima frase:

E' possibile eliminare dai messaggi gli allegati senza eliminare i messaggi stessi?


La risposta è sempre NO.

E invece SI'! :P Solo che non riesco a "domare" il methodo DELETE di Atmt, che sembra cancellare gli allegati solo quando gli fa comodo...

Codice: Seleziona tutto
Sub GetAttachments()
 ' On Error GoTo GetAttachments_err
 Dim ns As NameSpace
 Dim Inbox As MAPIFolder
 Dim Item As Object
 Dim Item2 As Object
 Dim Atmt As Attachment
 Dim FileName As String
 Dim i As Integer
 Dim SubFolder As MAPIFolder
 Dim MainFolder As MAPIFolder
 Dim Explorer As Outlook.Explorer
 ' Dim MyInspector As Outlook.Inspector

 Set ns = GetNamespace("MAPI")
 Set MainFolder = ns.GetDefaultFolder(olFolderDrafts)
 Set Inbox = ns.GetDefaultFolder(olFolderInbox)
 Set SubFolder = Inbox.Folders("sent to")
 Set mia = Inbox.Folders("archivio_mio")
 Set Explorer = ActiveExplorer
 i = 0
 
 ' Check for messages into folder:
 If SubFolder.Items.Count = 0 Then
    MsgBox "There are no messages in the folder.", vbInformation, _
           "Nothing Found"
    Exit Sub
 End If
 
 ' Look for attachments:
 For Each Item In SubFolder.Items
'    If Item.Attachments.Count > 0 Then
'        Item.Body = "Questo messaggio conteneva questi allegati:" & vbCrLf & Item.Body
'        Item.HTMLBody = "Questo messaggio conteneva questi allegati:" & vbCrLf & Item.HTMLBody
'    End If
    For Each Atmt In Item.Attachments
       FileName = "C:\temp\attach" & Atmt.FileName
       Atmt.SaveAsFile FileName
       Item.Body = "-----attachment removed:---------" & Atmt.FileName & " ---------------------" & vbCrLf & Item.Body
       Item.HTMLBody = "-----attachment removed:--------- " & Atmt.FileName & " ---------------------" & vbCrLf & Item.HTMLBody
       i = i + 1
    Next Atmt
  MyInspector = Item.GetInspector
  test = Item.Copy ' ??? copy in place of moving ???
  MyInspector.Move mia
 Next
 
 ' Call DelAttachments

' Clear memory:
GetAttachments_exit:
   Set Atmt = Nothing
   Set Item = Nothing
   Set ns = Nothing
   Exit Sub
End Sub


Sub DelAttachments()
 ' On Error GoTo GetAttachments_err
 Dim ns As NameSpace
 Dim Inbox As MAPIFolder
 Dim Item As Object
 Dim Item2 As Object
 Dim Atmt As Attachment
 Dim FileName As String
 Dim i As Integer
 Dim SubFolder As MAPIFolder
 Dim MainFolder As MAPIFolder
 Dim Explorer As Outlook.Explorer
 ' Dim MyInspector As Outlook.Inspector

 Set ns = GetNamespace("MAPI")
 Set Inbox = ns.GetDefaultFolder(olFolderInbox)
 Set SubFolder = Inbox.Folders("archivio_mio")
 Set Explorer = ActiveExplorer
 i = 0
 
 ' Check for messages into folder:
 If SubFolder.Items.Count = 0 Then
    MsgBox "There are no messages in the folder.", vbInformation, _
           "Nothing Found"
    Exit Sub
 End If
 
 ' Look for attachments:
 For Each Item In SubFolder.Items
  If Item.Attachments.Count > 0 Then test = Item.Attachments.Remove(Item.Attachments.Count) ' Item.Copy ' ??? copy in place of moving ???
 Next

' Clear memory:
GetAttachments_exit:
   Set Atmt = Nothing
   Set Item = Nothing
   Set ns = Nothing
   Exit Sub
End Sub



Per provare la amcro, bisogna incollarla in Outlook dopo aver premuto ALT+F11 e dopo aver creato due cartelle dentro a "posta in arrivo": "sent to" contiene i mex con gli allegati (l'ho chiamata cosi' per motivi su cui non mi dilunghero'... :roll: ), "archivio_mio" dovrà contenere gli stessi mex, ma senza allegati.

Provate e... "divertitevi", io ce sto a diventa' scemo! :aaah :mmmh:

Se metto atmt.delete nel ciclo di GetAttachment (dopo Atmt.Saveas), mi cancella gli allegati PRIMA di copiare i mex; se lo metto nel ciclo di DelAttachment, non cancella un accidente! Se lo metto da un'altra parte (non mi ricordo piu' dove..), cancella l'allegato di un solo messaggio...
Attachments.remove invece non cancella proprio una mazza...

Ma non c'e' proprio nessuno che ha visualbasic e puo' ricompilare Todi cabiando "messages" in "messaggi"? :roll:
cassioli
Utente Senior
 
Post: 1014
Iscritto il: 05/03/04 11:02

Postdi cassioli » 03/08/05 14:11

Disclaimer...
Se usando la mia macro vi si cancellano per sbaglio tutti i messaggi... io non vi conosco! :P :lol:
cassioli
Utente Senior
 
Post: 1014
Iscritto il: 05/03/04 11:02

Postdi cassioli » 03/08/05 15:14

Ok, ci siamo (grazie a Sue :)

Codice: Seleziona tutto
Sub GetAttachments()
 ' On Error GoTo GetAttachments_err
 Dim ns As NameSpace
 Dim Inbox As MAPIFolder
 Dim Item As Object
 Dim Item2 As Object
 Dim Atmt As Attachment
 Dim FileName As String
 Dim i As Integer
 Dim SubFolder As MAPIFolder
 Dim MainFolder As MAPIFolder
 Dim Explorer As Outlook.Explorer
 ' Dim MyInspector As Outlook.Inspector

 Set ns = GetNamespace("MAPI")
 Set MainFolder = ns.GetDefaultFolder(olFolderDrafts)
 Set Inbox = ns.GetDefaultFolder(olFolderInbox)
 Set SubFolder = Inbox.Folders("sent to")
 Set mia = Inbox.Folders("archivio_mio")
 Set Explorer = ActiveExplorer
 i = 0
 
 ' Check for messages into folder:
 If SubFolder.Items.Count = 0 Then
    MsgBox "There are no messages in the folder.", vbInformation, _
           "Nothing Found"
    Exit Sub
 End If
 
 ' Look for attachments:
 For Each Item In SubFolder.Items
'    If Item.Attachments.Count > 0 Then
'        Item.Body = "Questo messaggio conteneva questi allegati:" & vbCrLf & Item.Body
'        Item.HTMLBody = "Questo messaggio conteneva questi allegati:" & vbCrLf & Item.HTMLBody
'    End If
    For Each Atmt In Item.Attachments
       FileName = "C:\temp\attach\" & Atmt.FileName
       Atmt.SaveAsFile FileName
       Item.Body = "-----attachment removed:---------" & Atmt.FileName & " ---------------------" & vbCrLf & Item.Body
       Item.HTMLBody = "-----attachment removed:--------- " & Atmt.FileName & " ---------------------" & vbCrLf & Item.HTMLBody
       i = i + 1
    Next Atmt
  MyInspector = Item.GetInspector
  test = Item.Copy ' ??? copy in place of moving ???
  MyInspector.Move mia
 Next
 
 Call DelAttachments

' Clear memory:
GetAttachments_exit:
   Set Atmt = Nothing
   Set Item = Nothing
   Set ns = Nothing
   Exit Sub
End Sub


Sub DelAttachments()
 ' On Error GoTo GetAttachments_err
 Dim ns As NameSpace
 Dim Inbox As MAPIFolder
 Dim Item As Object
 Dim Item2 As Object
 Dim Atmt As Attachment
 Dim FileName As String
 Dim i As Integer
 Dim SubFolder As MAPIFolder
 Dim MainFolder As MAPIFolder
 Dim Explorer As Outlook.Explorer
 ' Dim MyInspector As Outlook.Inspector


 Set ns = GetNamespace("MAPI")
 Set Inbox = ns.GetDefaultFolder(olFolderInbox)
 Set SubFolder = Inbox.Folders("archivio_mio")
 Set Explorer = ActiveExplorer
 i = 0
 
 ' Check for messages into folder:
 If SubFolder.Items.Count = 0 Then
    MsgBox "There are no messages in the folder.", vbInformation, _
           "Nothing Found"
    Exit Sub
 End If
 
 ' Look for attachments:
For Each Item In SubFolder.Items
   Count = Item.Attachments.Count
      If Count > 0 Then
        For i = Count To 1 Step -1
            Set att = Item.Attachments(i)
            att.FileName
            att.Delete
        Next
        Item.Save
      End If
Next

' Clear memory:
GetAttachments_exit:
   Set Atmt = Nothing
   Set Item = Nothing
   Set ns = Nothing
   Exit Sub
End Sub










Questa macro prende tutti i messaggi da "inbox\sent to", li mette in "inbox\archivio_mio" e cancella tutti gli allegati dai messaggi copiati, lasciandoli intatti nei messaggi di partenza. Questo per evitare che se, durante la copia, qualcsa va storto, si perdano tutti gli allegati: una volta completata l'esecuzione della macro, i mex originali possono ovviamente essere cancellati.

Ovviamente la macro è una zozzeria :lol: perche' stavo facendo esperimenti, va un po' ripulita e commentata meglio, e vanno cambiati i nomi delle cartelle.
Ma ora i nostri file PST hanno finito di ingombrare l'hard disk!

Da notare che nei messaggi finali è indicato il nome di ogni allegato rimosso, e che gli allegati sono salvati a parte sul disco. Forse sarebbe pero' utile mettere, oltre che il nome dell'allegato, anche un allegatino fittizio, in modo che nell'elenco dei messaggi si possano comunque distinguere i mex con allegati da quelli senza (dall'icona-fermaglio).
cassioli
Utente Senior
 
Post: 1014
Iscritto il: 05/03/04 11:02

Postdi kadosh » 04/08/05 22:43

Carina la procedura, non avevo ancora intrallazzato su outlook però la sto provando e funziona, anche mettendo un eventuale mapping di rete.
Non mi va su win2k con outlook 2k, ma credo sia solo questione di dll mapi, stanotte do un'occhiata.
Ch®is ˜˜ www.glgroup.it˜˜ {~Up You® Life~}™ Semper Fidelis
Avatar utente
kadosh
Moderatore
 
Post: 3791
Iscritto il: 24/09/01 01:00
Località: Roma

Postdi cassioli » 05/08/05 17:45

kadosh ha scritto:Carina la procedura, non avevo ancora intrallazzato su outlook però la sto provando e funziona, anche mettendo un eventuale mapping di rete.
Non mi va su win2k con outlook 2k, ma credo sia solo questione di dll mapi, stanotte do un'occhiata.

Sai che ho anche scoperto un modo per farti dire da outlook se stai per mandare un messaggio che prevede l'allegato ma ti sei scordato di allegare il file? :eeh: :) Tutti i programmi in grado di farlo che ho trovato sono SHAREware.... quando invece basta una manciata di righe di codice:
http://pubs.logicalexpressions.com/Pub0 ... asp?ID=341

Buon divertimento...
;)
cassioli
Utente Senior
 
Post: 1014
Iscritto il: 05/03/04 11:02

Postdi cassioli » 05/08/05 17:49

Un vero peccato che non esista un modo semplice ed efficace per esportare le macro di outlook: :(
http://www.outlookcode.com/d/distributevba.htm

Ma credo che si possa scrivere un applicazione standalone in RapidQ (un clone freeware di VisualBasic) che si "aggancia" ad outlook da fuori. Ma sto ancora agli inizi della sperimentazione... :roll:
cassioli
Utente Senior
 
Post: 1014
Iscritto il: 05/03/04 11:02


Torna a Software Windows


Topic correlati a "Enormità cassetta postale Outlook":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti