Από προεπιλογή, μπορείτε να δείτε μόνο τα ονόματα των μελών και τις διευθύνσεις ηλεκτρονικού ταχυδρομείου σε μια ομάδα επαφών. Εάν επιθυμείτε να λάβετε τις άλλες λεπτομέρειες των μελών, μπορείτε να χρησιμοποιήσετε τον τρόπο που παρουσιάζεται σε αυτό το άρθρο.
Όταν κάνετε διπλό κλικ σε μια ομάδα επαφών για να την ανοίξετε, στο παράθυρό της, μπορείτε να δείτε μόνο τα ονόματα και τις διευθύνσεις ηλεκτρονικού ταχυδρομείου των μελών της ομάδας. Δεν μπορείτε να λάβετε άλλα στοιχεία των μελών, όπως εταιρεία, τίτλο εργασίας, αριθμό τηλεφώνου ή διεύθυνση επιχείρησης κ.λπ. Γενικά, για να λάβετε αυτά τα στοιχεία, πρέπει να βρείτε τις επαφές που αντιστοιχούν στα μέλη στο φάκελο "Επαφές" με μη αυτόματο τρόπο. Είναι πολύ ενοχλητικό. Εδώ θα σας δείξουμε ένα κομμάτι κώδικα VBA, το οποίο μπορεί να εξάγει γρήγορα αυτές τις λεπτομέρειες σε ένα βιβλίο εργασίας του Excel.
Εξαγάγετε τα στοιχεία όλων των μελών σε μια ομάδα επαφών στο Excel
- Για να ξεκινήσετε, ξεκινήστε την εφαρμογή Outlook.
- Στη συνέχεια, πρέπει να πατήσετε συντομεύσεις πλήκτρων "Alt + F11" στο κύριο παράθυρο του Outlook.
- Στη συνέχεια, στο νέο παράθυρο "Microsoft Visual Basic for Applications", πρέπει να ανοίξετε μια ενότητα που δεν χρησιμοποιείται ή να εισαγάγετε απευθείας μια νέα μονάδα.
- Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA σε αυτήν την ενότητα.
Sub ExportMemberContactDetailsToExcel()
Dim objContactGroup As Outlook.DistListItem
Dim objGroupMember As Outlook.recipient
Dim objContacts As Outlook.Items
Dim objFoundContact As Outlook.ContactItem
Dim objExcelApp As Excel.Application
Dim objExcelWorkBook As Excel.Workbook
Dim objExcelWorkSheet As Excel.Worksheet
Dim i As Integer
Dim nRow As Integer
Dim strFilename As String
Set objContactGroup = Application.ActiveExplorer.Selection(1)
'Create a new Excel workbook
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkBook = objExcelApp.Workbooks.Add
Set objExcelWorkSheet = objExcelWorkBook.Worksheets(1)
'Set the seven column headers
With objExcelWorkSheet
.Cells(1, 1) = "Name"
.Cells(1, 2) = "Email Address"
.Cells(1, 3) = "Company"
.Cells(1, 4) = "Job Title"
.Cells(1, 5) = "Phone Number"
.Cells(1, 6) = "Mailing Address"
.Cells(1, 7) = "Birthday"
End With
Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items.Restrict("[Email1Address]>''")
nRow = 2
For i = 1 To objContactGroup.MemberCount
Set objGroupMember = objContactGroup.GetMember(i)
strFilter = "[Email1Address] = '" & objGroupMember.Address & "'"
Set objFoundContact = objContacts.Find(strFilter)
If Not (objFoundContact Is Nothing) Then
'Input the Contact Details
With objExcelWorkSheet
.Cells(nRow, 1) = objFoundContact.FullName
.Cells(nRow, 2) = objFoundContact.Email1Address
.Cells(nRow, 3) = objFoundContact.CompanyName
.Cells(nRow, 4) = objFoundContact.JobTitle
.Cells(nRow, 5) = objFoundContact.BusinessTelephoneNumber
.Cells(nRow, 6) = objFoundContact.MailingAddress
If objFoundContact.Birthday = #1/1/4501# Then
.Cells(nRow, 7) = ""
Else
.Cells(nRow, 7) = objFoundContact.Birthday
End If
End With
Else
With objExcelWorkSheet
.Cells(nRow, 1) = objGroupMember.Name
.Cells(nRow, 2) = objGroupMember.Address
End With
End If
nRow = nRow + 1
Next
'Fit the columns
objExcelWorkSheet.Columns("A:G").AutoFit
'Change the Path as per where you want to save the new Excel file
strFilename = "E:\" & objContactGroup.DLName & " Member Contact Details.xlsx"
'Save the Excel workbook
objExcelWorkBook.Close True, strFilename
MsgBox ("Complete!")
End Sub
- Μετά από αυτό, για βολικό έλεγχο, μπορείτε να προσθέσετε το νέο έργο VBA στη γραμμή εργαλείων γρήγορης πρόσβασης ή στην κορδέλα.
- Αργότερα ορίστε το επίπεδο ασφάλειας μακροεντολής του Outlook σε χαμηλό.
- Τελικά, μπορείτε να δοκιμάσετε.
- Αρχικά, επιλέξτε μια ομάδα επαφών.
- Στη συνέχεια, πατήστε το κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης ή στην κορδέλα.
- Αμέσως, η μακροεντολή θα εκτελεστεί.
- Όταν τελειώσει, θα λάβετε μια ερώτηση "Ολοκληρώστε!"
- Μετά από αυτό, μπορείτε να μεταβείτε στον προκαθορισμένο τοπικό φάκελο προορισμού, στον οποίο μπορείτε να βρείτε ένα νέο αρχείο Excel.
- Ανοίξτε το, θα δείτε τα στοιχεία επικοινωνίας των μελών της ομάδας, όπως το παρακάτω στιγμιότυπο οθόνης:
Μην πανικοβάλλεστε μπροστά σε ζητήματα του Outlook
Κανείς δεν είναι πρόθυμος να δεχτεί τυχόν προβλήματα του Outlook, ανεξάρτητα από το αναδυόμενο μήνυμα σφάλματος ή κατεστραμμένο Outlook φάκελος δεδομένων. Επομένως, οι χρήστες θα τείνουν να πανικοβάλλονται όταν αντιμετωπίζουν ζητήματα του Outlook. Εάν θέλετε να διατηρήσετε την ηρεμία σας σε αυτή την περίπτωση, θα πρέπει να έχετε δύο απαραίτητα στο χέρι. Το ένα είναι τα τρέχοντα αντίγραφα ασφαλείας των δεδομένων του Outlook. Το άλλο είναι ισχυρό λογισμικό επιδιόρθωσης του Outlook, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com