Tag: #outlook

Chiave di registro
HKEY_CURRENT_USER\Software\Microsoft\Office\\Outlook\PST

Crea o modifica questi valori DWORD (32 bit):
• MaxLargeFileSize → imposta a 102400 (significa 100 GB)
• WarnLargeFileSize → imposta a 95000

Apri Outlook → premi ALT + F11 per aprire l’editor VBA
Vai su Inserisci → Modulo

script Duplicati VBA Semplice

Sub RimuoviEmailDuplicate()
Dim olFolder As Outlook.Folder
Dim olItem As Object
Dim olDict As Object
Dim key As String
Dim dupFolder As Outlook.Folder

Set olFolder = Application.ActiveExplorer.CurrentFolder
Set olDict = CreateObject(“Scripting.Dictionary”)

On Error Resume Next
Set dupFolder = olFolder.Folders(“Duplicati”)
If dupFolder Is Nothing Then
Set dupFolder = olFolder.Folders.Add(“Duplicati”)
End If
On Error GoTo 0

Dim i As Long
For i = olFolder.Items.Count To 1 Step -1
Set olItem = olFolder.Items(i)
If olItem.Class = olMail Then
key = LCase(Trim(olItem.Subject)) & “|” & _
LCase(Trim(olItem.SenderName)) & “|” & _
olItem.SentOn & “|” & olItem.Size
If olDict.Exists(key) Then
olItem.Move dupFolder
Else
olDict.Add key, True
End If
End If
Next i

MsgBox “Operazione completata. I duplicati sono stati spostati nella cartella ‘Duplicati’.”, vbInformation
End Sub

Script VBA Completo
Option Explicit

Public Sub RimuoviEmailDuplicate_TutteLeCartelle()
Dim ns As Outlook.Namespace
Dim pstFolder As Outlook.Folder
Dim startFolder As Outlook.Folder

Set ns = Application.GetNamespace(“MAPI”)

‘ Se vuoi scegliere manualmente il PST radice:
Set pstFolder = Application.Session.PickFolder

If pstFolder Is Nothing Then
MsgBox “Operazione annullata.”, vbInformation
Exit Sub
End If

ProcessFolder pstFolder

MsgBox “Completato! I duplicati sono stati spostati nelle cartelle ‘Duplicati’ all’interno delle rispettive cartelle.”, vbInformation
End Sub

Private Sub ProcessFolder(ByVal olFolder As Outlook.Folder)
Dim olItem As Object
Dim olDict As Object
Dim dupFolder As Outlook.Folder
Dim key As String
Dim i As Long

Set olDict = CreateObject(“Scripting.Dictionary”)

‘ Crea o individua la cartella “Duplicati”
On Error Resume Next
Set dupFolder = olFolder.Folders(“Duplicati”)
If dupFolder Is Nothing Then
Set dupFolder = olFolder.Folders.Add(“Duplicati”)
End If
On Error GoTo 0

‘ Controlla gli elementi della cartella corrente
For i = olFolder.Items.Count To 1 Step -1
Set olItem = olFolder.Items(i)
If olItem.Class = olMail Then
key = LCase(Trim(olItem.Subject)) & “|” & _
LCase(Trim(olItem.SenderName)) & “|” & _
Format(olItem.SentOn, “yyyymmddhhmmss”) & “|” & olItem.Size
If olDict.Exists(key) Then
olItem.Move dupFolder
Else
olDict.Add key, True
End If
End If
Next i

‘ Ricorsione nelle sottocartelle
Dim subFolder As Outlook.Folder
For Each subFolder In olFolder.Folders
If LCase(subFolder.Name) <> “duplicati” Then
ProcessFolder subFolder
End If
Next subFolder
End Sub

Esportare il profilo (account) di Microsoft Outlook (XP, 2003, 2007, 2010, 2013, 2016, 2019, 365) e riconfigurazione in pochi passaggi

1 – Esportare la chiave del registro di sistema contenente le informazioni degli account di posta.
Apriamo il registro di sistema,
Start -> Esegui -> scriviamo “Regedit” e poi premiamo Ok (In Windows Xp e precedenti)
Start -> nel campo di testo scriviamo “Regedit” e poi battiamo Invio (Windows Vista e Windows 7)
Start -> scriviamo “Regedit”, nel campo di ricerca ci viene suggerito il programma corretto, premiamo ok (Windows 8, Windows 10)

e spostiamoci al seguente path:

HKEY_CURRENT_USER -> Software -> Microsoft -> Windows NT -> CurrentVersion -> Windows Messaging Subsystem -> Profiles (Outlook fino 2010)

HKEY_CURRENT_USER -> Software -> Microsoft -> Office -> Outlook -> 15.0 -> Profiles (Outlook 2013)

HKEY_CURRENT_USER -> Software -> Microsoft -> Office -> Outlook -> 15.0 -> Profiles (Outlook 2016)

Tasto destro su Profiles, scegliamo esporta, diamo un nome qualsiasi e salviamo la chiava dove più ci viene comodo.

2 – Fare una copia di tutti i files di dati (.pst) contenenti la posta già scaricata archiviata e inviata.
Start -> Pannello di controllo -> Posta elettronica -> Mostra profili

3 – Riposizionare i file di dati (opzionale)
Sul nuovo pc, riposizionate le cartelle contenenti i file di dati dove le avete prese in precedenza.

4 – Importazione profilo
Fare un doppio click sulla chiave di registro precedentemente esportata e rispondere affermativamente alle successive domande.

Aprite microsoft outlook:
Se avete eseguito il punto 3 l’unica cosa che vi verrà chiesta è la password per ogni account importato
Se non avete eseguito il punto 3, outlook vi chiederà dove risiedono i file di dati per ogni account importato. Niente paura! Indicategli dove avete messo i file, avrà bisogno di un riavvio, vi chiederà le password degli account e poi funzionerà tutto correttamente.