Ang ilang mga gumagamit ay naghahangad ng isang solusyon na nagbibigay-daan sa kanila upang mabilis na idagdag ang lahat ng mga tatanggap ng maraming mga email sa folder ng Mga Kontak ng Outlook bilang mga bagong contact. Kaya, ipakilala ng artikulong ito ang isang mabilis na diskarte.
Halimbawa, nakatanggap ka ng ilang mga email na sabay na ipinadala sa maraming iba pang mga tatanggap maliban sa iyo. Bukod dito, ang mga tatanggap na ito ay hindi nakaimbak sa iyong mga Outlook Contact. Sa kasong ito, baka gusto mong idagdag ang mga tatanggap na ito sa Mga Outlook Contact. Upang makamit ito sa mga batch, maaari mong gamitin ang sumusunod na paraan.
Batch Idagdag ang Lahat ng Mga Tatanggap ng Maramihang Mga Email sa Mga Outlook Contact
- Upang magsimula, ilunsad ang iyong programa sa Outlook.
- Pagkatapos, pindutin ang mga pindutan ng "Alt + F11" upang mai-access ang eidtor ng Outlook VBA.
- Kasunod, sa window na "Microsoft Visual Basic for Applications", kopyahin at i-paste ang sumusunod na code sa isang blangko na module.
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
- Pagkatapos nito, i-minimize o lumabas sa window na ito.
- Sa paglaon, dapat mong idagdag ang macro na ito sa Quick Access Toolbar na may sanggunian sa “Paano Patakbuhin ang VBA Code sa Iyong Outlook".
- Panghuli, maaari mong subukan ang macro na ito.
- Sa una, pumili ng maraming mga email na ang mga tatanggap na maidaragdag sa mga contact.
- Pagkatapos, i-click ang pindutan ng macro sa Quick Access Toolbar.
- Kapag natapos ang macro, maaari kang pumunta sa default na folder ng Mga contact. Naidagdag na ang mga tatanggap.
- Ang bagong contact ay magiging hitsura ng sumusunod na screenshot.
Tingnan ang Lahat ng Mga Panganib sa paligid ng Iyong Outlook
Kahit na ang Outlook ay pinagkalooban ng magkakaibang mga tampok, mahina sa maraming mga kadahilanan kabilang ang mga pagkakamali ng tao, mga pagkakamali sa software, mga isyu sa hardware at mga virus. Kaya, kinakailangan para sa amin na bantayan ang lahat ng mga potensyal na peligro sa paligid ng aming Outlook. Gayundin, ang paggawa ng sapat na pag-iingat ay isang bagay na kinakailangan. Halimbawa, mas mahusay kang humawak sa isang tool sa pag-aayos ng PST, tulad ng DataNumen Outlook Repair, Kung saan maaari ayusin ang PST mga problema sa walang kahirap-hirap na kadalian.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa