Note: The other languages of the website are Google-translated. Back to English
English English
  • Documenti
  • Outlook
  • Come aggiungere automaticamente i contatti da un'e-mail quando si risponde in Outlook?

Come aggiungere automaticamente i contatti da un'e-mail quando si risponde in Outlook?

In Outlook 2010 puoi abilitare l'estensione Contatti suggeriti funzione e aggiungere automaticamente i destinatari come nuovi contatti. Tuttavia, questo Contatti suggeriti la funzionalità non è supportata in Outlook 2013 e 2016. Qui introdurrò un VBA per aggiungere automaticamente mittente e destinatari di un'e-mail come nuovi contatti quando si risponde in Outlook.

Aggiungi automaticamente i contatti da un'e-mail di Outlook quando rispondi con VBA

Scheda Office: abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
  • Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
  • Più di
    100
    le funzionalità avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Prospettiva
    2010-2019 e 365
    . Funzionalità complete
    60
    prova gratuita di un giorno.

Aggiungi automaticamente i contatti da un'e-mail di Outlook quando rispondi con VBA

Questo VBA aggiungerà automaticamente il mittente e tutti i destinatari di un'e-mail come nuovi contatti quando rispondi all'e-mail in Outlook. Si prega di fare quanto segue:

1. stampa altro + F11 tasti per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Espandere il Project1 e fare doppio clic Questa sessione di Outlook per aprirlo, quindi incollare sotto il codice VBA nella finestra ThisOutlookSession. Vedi screenshot:

VBA: aggiungi automaticamente i contatti da un'e-mail quando si risponde 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, quando rispondi a un'e-mail in Outlook, il mittente di questa e-mail e tutti i destinatari verranno salvati automaticamente come nuovi contatti nella cartella dei contatti predefinita dell'account e-mail predefinito.


Articoli Correlati


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (1)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Ciao, grazie per questo codice.
Ma duplica (almeno nel mio caso) i contatti tutte le volte che gli scrivo. Qualche idea?
A proposito, nelle opzioni di Outlook, la casella "cerca duplicati durante il salvataggio di un nuovo contatto" è selezionata.
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL