Joskus, kun lähetät tai vastaanotat sähköpostin, jossa on useita vastaanottajia, saatat haluta luoda yhteysryhmän näille vastaanottajille. Tässä artikkelissa esitellään nopea tapa saavuttaa se Outlook VBA:lla.
Edellisessä artikkelissamme "Yhteysryhmän luominen vastaanottajaluettelosta”, olemme oppineet yleisen tavan luoda yhteysryhmä sähköpostin vastaanottajille. Eli ensin valitaan ja kopioidaan vastaanottajat sähköpostiviesteistä ja luodaan sitten yhteystietoryhmä manuaalisesti ja liitetään vastaanottajat "Jäsenet ->" -kenttään. Ilmeisesti tämä keino on erittäin hankala. Siksi tässä esittelemme toisen lähestymistavan, joka hyödyntää Outlook VBA:ta uuden yhteysryhmän nopeaan saavuttamiseen. Voit vain painaa painiketta ilman, että sinun tarvitsee kopioida ja liittää toistuvasti. Lue lisää saadaksesi yksityiskohtaiset vaiheet ja VBA-koodit.
Luo yhteystietoryhmä sähköpostin vastaanottajaluettelosta
- Aluksi sinun kannattaa siirtyä Outlookin ”Kehittäjä”-välilehteen.
- Tämän välilehden alta voit etsiä ja napsauttaa "Visual Basic" -painiketta.
- Sen jälkeen avautuu uusi "Microsoft Visual Basic for Applications" -ikkuna. Nyt sinun pitäisi avata uusi moduuli napsauttamalla "Lisää" > "Moduuli".
- Seuraavaksi uudessa moduuliikkunassa voit kopioida ja liittää siihen seuraavat koodit.
Sub createcontactgroupforrecipients()
Dim obApp As Application
Dim olSel As Selection
Dim obj As Object
Dim oMail As MailItem
Dim tempMail As MailItem
Dim Recips As Recipients
Dim ConGroup As DistListItem
Dim strName As String
Set obApp = Outlook.Application
Set olSel = obApp.ActiveExplorer.Selection
For Each obj In olSel
If obj.Class = olMail Then
Set oMail = obj
Set tempMail = oMail.ReplyAll
Set Recips = tempMail.Recipients
Set ConGroup = obApp.CreateItem(olDistributionListItem)
strName = InputBox("Specify a name for the new contact group:")
With ConGroup
.AddMembers Recips
.DLName = strName
'Use ".Save" to directly save the new contact group
.Display
End With
tempMail.Close olDiscard
End If
Next
End Sub
- Myöhemmin voit poistua nykyisestä "Visual Basic" -ikkunasta ja jatkaa uuden makron lisäämistä pikatyökalupalkkiin. Napsauta pikatyökalupalkin alanuolta ja valitse avattavasta luettelosta "Lisää komentoja".
- Tämän jälkeen pääset "Outlook-asetukset" -ikkunaan. Tässä vaiheessa sinun on suoritettava seuraavat vaiheet:
- Aseta ensin "Valitse komennot" arvoon "Makrot".
- Etsi sitten aiemmin lisätty makro ja esitä se.
- Napsauta seuraavaksi "Lisää" -painiketta keskellä.
- Paina lopuksi "OK"-painiketta.
- Sen jälkeen voit palata Outlook-postiruutuun ja kokeilla.
- Aluksi voit pitää yhden sähköpostin missä tahansa postikansiossa.
- Napsauta sitten pikatyökalupalkin painiketta, kuten alla oleva kuva:
- Ja seuraavaksi saat viestilaatikon, jossa sinun on määritettävä nimi uudelle yhteysryhmälle.
- Napsauta myöhemmin "OK" -painiketta. Heti avautuu uusi yhteystietoryhmä, joka sisältää kaikki valitut sähköpostin vastaanottajat. Voit tallentaa sen painamalla "Tallenna ja sulje".
Must-Haves Outlook Data Protection -sovelluksessa
Koska Outlook on haavoittuvainen, sinun tulee ryhtyä riittäviin varotoimiin heidän Outlook-tietojensa suojaamiseksi. Ensinnäkin sinun pitäisi tehdä säännöllinen Outlook-tietojen varmuuskopio. Lisäksi sinun on tiedettävä, kuinka voit selvittää ja suorittaa sisäänrakennetun korjaustyökalun, Scanpst.exe:n. Viimeisenä mutta ei vähäisimpänä välttämättömyys on tähtien ulkopuolinen vioittunut Outlook-tietojen korjaustyökalu, Kuten DataNumen Outlook Repair, joka tulee avuksesi, jos varmuuskopiointi ja Scanpst.exe epäonnistuvat.
Tekijän esittely:
Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaus SQL Server mdf-tietokantavirhe ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com