Come aggiungere automaticamente un contatto da un'email durante la risposta in Outlook?

AutoreKelly Data di modifica2025-08-15

Quando rispondi alle email, potresti voler aggiungere automaticamente il mittente o i destinatari alla rubrica di Outlook. Questo ti fa risparmiare tempo e ti assicura di non perdere mai informazioni di contatto importanti. Anche se Outlook non supporta nativamente l’aggiunta automatica dei contatti durante la risposta, ti guiderò attraverso due metodi per aggiungere automaticamente i contatti da un'email, inclusa una funzionalità di Kutools per Outlook.

Aggiungi automaticamente Aggiungi contatto da un'email di Outlook durante la risposta con VBA

Aggiungi in Batch più mittenti e destinatari da Elementi selezionati ai contatti con Kutools

Aggiungi automaticamente Aggiungi contatto da un'email di Outlook durante la risposta con VBA

Questa macro VBA aggiunge automaticamente il mittente e tutti i destinatari di un'email ai Contatti non appena rispondi al messaggio in Outlook. Segui questi passaggi:

1. Premi i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic, Applications.

2. Espandi Project1 e fai doppio clic su ThisOutlookSession per aprirlo, quindi incolla il seguente codice VBA nella finestra di ThisOutlookSession. Vedi screenshot:

lo screenshot dell'aggiunta automatica dei contatti da un'email di Outlook quando si risponde con VBA

VBA: Aggiungi automaticamente Aggiungi contatto da un'email durante la risposta in Outlook

Public WithEvents xExplorer As Outlook.Explorer
Public WithEvents xMailItem As Outlook.MailItem
Sub Application_Startup()
Set xExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub xExplorer_SelectionChange()
On Error Resume Next
Set xMailItem = xExplorer.Selection.Item(1)
End Sub

Private Sub xMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xNameSpace As NameSpace
Dim xSenderAddress As String
Dim xContactItems As Outlook.Items
Dim i, k As Long
Dim xFilterAddress As String
Dim xContact As Outlook.ContactItem
Dim xNewContact As Outlook.ContactItem
Dim Arr() As String
Dim ArrName() As String
Dim xArrCount As Integer
On Error Resume Next
ReDim Arr(xMailItem.Recipients.Count + 1)
ReDim ArrName(xMailItem.Recipients.Count + 1)
xSenderAddress = xMailItem.SenderEmailAddress
Arr(0) = xSenderAddress
ArrName(0) = xMailItem.SenderName
For i = LBound(Arr) + 1 To UBound(Arr) - 1
Arr(i) = xMailItem.Recipients.Item(i).Address
ArrName(i) = xMailItem.Recipients.Item(i).Name
Next i
Set xNameSpace = Outlook.Application.GetNamespace("MAPI")
Set xContactItems = xNameSpace.GetDefaultFolder(olFolderContacts).Items
For i = LBound(Arr) To UBound(Arr) - 1
For k = 1 To 3
xFilterAddress = "[Email" & k & "Address] = " & Arr(i)
Set xContact = xContactItems.Find(xFilterAddress)
If Not (xContact Is Nothing) Then
Exit For
End If
Next k
If xContact Is Nothing Then
Set xNewContact = Outlook.Application.CreateItem(olContactItem)
With xNewContact
.FullName = ArrName(i)
.Email1Address = Arr(i)
.Categories = "From Email"
.Save
End With
End If
Next i
End Sub

3. Salva il codice VBA e riavvia Microsoft Outlook.

D’ora in poi, ogni volta che risponderai a un’e-mail in Outlook, il mittente e tutti i destinatari di tale messaggio verranno salvati automaticamente come contatti nella cartella Contatti predefinita del tuo account e-mail principale.

Aggiungi in Batch più mittenti e destinatari da Elementi selezionati ai contatti con Kutools

Kutools per Outlook semplifica l’aggiunta dei contatti grazie alla sua funzionalità Aggiungi mittenti e destinatari multipli delle email selezionate ai contatti. Questo ti permette di aggiungere in blocco i contatti da una o più email.

👉 Lavori in modo più intelligente in Outlook!Scarica Kutools per Outlookper aumentare la produttività con le funzionalità risparmia-tempo di 100+ — gratis per 30 giorni!

Passaggio 1. Scarica e installa Kutools per Outlook. Poi, vai nella cartella Elementi inviati (o in un’altra cartella) e seleziona i messaggi per i quali vuoi aggiungere mittenti e destinatari ai contatti.

Passaggio 2. Fai clic su Kutools > Aggiungi contatto > Aggiungi mittenti e destinatari multipli delle email selezionate ai contatti.

Passaggio 3. Nella finestra di dialogo «Aggiungi contatti da email»,

Seleziona una cartella contatti: scegli la cartella in cui desideri salvare il contatto.
Seleziona gli indirizzi: Per impostazione predefinita, sono selezionati tutti gli indirizzi tranne quelli già esistenti. Controlla l’elenco e deseleziona quelli che non desideri aggiungere.
Fai clic su OK: conferma la tua selezione e salva i contatti nella cartella scelta.

Passaggio 4. Verrà visualizzata una finestra di dialogo che mostra il numero di contatti aggiunti con successo. Fai clic su OK per chiudere la finestra.

Nota: I Indirizzo Email duplicati verranno aggiunti ai contatti una sola volta.

Migliori strumenti per la produttività in Office

Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!

🤖KUTOOLS AI:Utilizza tecnologia AI avanzata per gestire le email senza sforzo, inclusi rispondere, riassumere, ottimizzare, estendere, tradurre e comporre email.

📧Automazione delle email: Risposta automatica (disponibile per POP e IMAP) / Invio email programmato / CC/BCC automatico in base a regole durante l’invio delle email / Inoltro automatico (regola avanzata) / Aggiunta automatica del saluto / Divisione automatica delle email con destinatari multipli in messaggi individuali...

📨Gestione delle email: Richiama Email / Blocca le email truffaldine in base all’oggetto e ad altri criteri / Elimina email duplicate / Ricerca avanzata / Organizza cartelle...

📁Allegati Pro: Salvataggio batch / Distacco batch / Compressione batch / Salvataggio automatico / Distacco automatico / Compressione automatica…

🌟Magia dell’interfaccia: 😊 Più emoji graziose e accattivanti / Ti avvisa all’arrivo di email importanti / Riduci a icona Outlook invece di chiuderlo...

👍Meraviglie con un clic: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘 Mostra il fuso orario – Ora corrente del mittente...

👩🏼‍🤝‍👩🏻Contatti e calendario: Aggiungi contatti in blocco dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi i promemoria dei compleanni...

Usa Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!

Sblocca istantaneamente Kutools per Outlook con un solo clic! Non aspettare oltre: scaricalo ora e aumenta subito la tua efficienza!

Elenco funzionalità di Kutools per Outlook Scarica ora Vai all’acquisto

🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office

Fortemente consigliato: Kutools for Office (5-in-1)

Un clic per scaricare cinque programmi di installazionetutti insieme —Kutools per Excel, Outlook, Word, PowerPointe Office Tab Pro.Clicca per scaricare ora!

✅Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in un’unica azione.
🚀Pronto per qualsiasi attività in Office: installa i componenti aggiuntivi che ti servono, esattamente quando ti servono.
🧰Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools for PowerPoint

Informazioni sulla Suite ⬇ Scarica la Suite 💳 Acquista la Suite