Enormità cassetta postale Outlook

[cassioli]

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?

[kadosh]

No

[cassioli]

No

E invece si'!

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

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]

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!
Mah?

[microguru]

ma... un back-up/archivio di posta, no?

[feno]

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

[cassioli]

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"!
http://www.aufgang.org/koch/homepage/software/todi.htm

[cassioli]

ma... un back-up/archivio di posta, no?

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)

[kadosh]

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.

[Claudione]

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

[cassioli]

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'! 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'... ), "archivio_mio" dovrà contenere gli stessi mex, ma senza allegati.

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

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

[cassioli]

Disclaimer...
Se usando la mia macro vi si cancellano per sbaglio tutti i messaggi... io non vi conosco!

[cassioli]

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

[kadosh]

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.

[cassioli]

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

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