一些用戶渴望一種解決方案，該解決方案允許他們快速將多封電子郵件的所有收件人作為新聯繫人添加到Outlook Contacts文件夾中。 因此，本文將介紹這種快速方法。
例如，您收到一些電子郵件，這些電子郵件同時發送給除您之外的許多其他收件人。 此外，這些收件人不會存儲在您的Outlook聯繫人中。 在這種情況下，您可能希望將這些收件人添加到Outlook聯繫人。 要批量實現，可以使用以下方式。
批量將多封電子郵件的所有收件人添加到Outlook聯繫人
- 首先，啟動Outlook程序。
- 然後，按“ Alt + F11”鍵按鈕訪問Outlook VBA eidtor。
- 隨後，在“ Microsoft Visual Basic for Applications”窗口中，將以下代碼複製並粘貼到空白模塊中。
Sub AddRecipientsToContacts()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objRecipients As Outlook.Recipients
Dim objRecipient As Outlook.Recipient
Dim strEmailAddress, strName As String
Dim objContact As Outlook.ContactItem
'Get the selected email
Set objSelection = Outlook.Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing) Then
On Error Resume Next
For Each objMail In objSelection
Set objRecipients = objMail.Recipients
For Each objRecipient In objRecipients
'Exclude yourself in recipient list
If objRecipient <> Session.CurrentUser Then
'Get the email address & name
strEmailAddress = objRecipient.Address
strName = Split(strEmailAddress, "@")(0)
strName = UCase(Left(strName, 1)) & LCase(Right(strName, Len(strName) - 1))
'Create a new contact for this recipient
Set objContact = Outlook.Application.CreateItem(olContactItem)
With objContact
.FullName = strName
.Email1Address = strEmailAddress
.Email1DisplayName = .FullName & " (" & strEmailAddress & ")"
.Save
End With
End If
Next
Next
End If
End Sub
- 之後，最小化或退出此窗口。
- 稍後，您應該參考“如何在Outlook中運行VBA代碼“。
- 最後，您可以嘗試使用此宏。
- 首先，選擇要添加其收件人的多個電子郵件。
- 然後，單擊快速訪問工具欄中的宏按鈕。
- 宏完成後，您可以轉到默認的“聯繫人”文件夾。 這些收件人已添加。
- 新聯繫人將類似於以下屏幕截圖。
找出Outlook中的所有風險
儘管Outlook具有多種功能，但它容易受到許多因素的影響，包括人為錯誤，軟件故障，硬件問題和病毒。 因此，我們有必要注意與《展望》有關的所有潛在風險。 另外，必須採取足夠的預防措施。 例如，最好使用PST修復工具，例如 DataNumen Outlook Repair， 哪個行 維修PST 毫不費力地解決問題。
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 維修MDF 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM