Note: The other languages of the website are Google-translated. Back to English

Cum se adaugă automat contacte dintr-un e-mail atunci când răspundeți în Outlook?

În Outlook 2010 puteți activa fișierul Persoane de contact sugerate caracteristică și se adaugă automat destinatari ca contacte noi. Cu toate acestea, acest lucru Persoane de contact sugerate caracteristica nu este acceptată în Outlook 2013 și 2016. Aici, voi introduce un VBA pentru a adăuga automat expeditorul și destinatarii unui e-mail ca contacte noi atunci când răspundeți în Outlook.

Adăugați automat contacte dintr-un e-mail Outlook atunci când răspundeți cu VBA

Fila Office - Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Outlook - aduce 100 de caracteristici avansate puternice în Microsoft Outlook
  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte E-mailuri multiple după reguli; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul atunci când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) cu toate atașamentele în conversația prin poștă; Răspundeți la multe e-mailuri simultan; Adăugare automată felicitare când răspundeți; Adăugare automată a datei și orei în subiect ...
  • Instrumente de atașare: Detașare automată, Comprimare toate, Redenumire toate, Salvare automată toate ... Raport rapid, Numărați mesajele selectate, Eliminați mesajele și persoanele de contact duplicate ...
  • Mai mult de 100 de funcții avansate vor rezolva majoritatea problemelor tale în Outlook 2021 - 2010 sau Office 365. Caracteristici complete Probă gratuită de 60 de zile.

Adăugați automat contacte dintr-un e-mail Outlook atunci când răspundeți cu VBA

Acest VBA va adăuga automat expeditorul și toți destinatarii unui e-mail ca contacte noi atunci când răspundeți la e-mail în Outlook. Vă rugăm să faceți următoarele:

1. presa Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. Extindeți Project1 și faceți dublu clic Această sesiune Outlook pentru a-l deschide și apoi lipiți mai jos codul VBA în fereastra ThisOutlookSession. Vedeți captura de ecran:

VBA: Adăugați automat contacte dintr-un e-mail atunci când răspundeți în 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ți codul VBA și reporniți Microsoft Outlook.

De acum înainte, când răspundeți la un e-mail în Outlook, expeditorul acestui e-mail și toți destinatarii vor fi salvați ca contacte noi automat în folderul de contacte implicit al contului de e-mail implicit.


Articole pe aceeaşi temă


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (1)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, mulțumesc pentru acest cod.
Dar dubleaza (in cazul meu cel putin) contactele de cate ori le scriu. Vreo idee?
Apropo, în opțiunile Outlook, caseta „căutați duplicate la salvarea unui contact nou” este bifată.
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL