Til tider, når du sender eller modtager en e-mail med mange modtagere, kan du oprette en kontaktgruppe for disse modtagere. Denne artikel introducerer en hurtig måde at opnå det på med Outlook VBA.
I vores forrige artikel “Sådan oprettes en kontaktgruppe fra modtagerlisten”, Har vi lært en fælles metode til at oprette kontaktgruppen for e-mail-modtagere. Det vil sige først at vælge og kopiere modtagerne fra e-mails, og derefter oprette en kontaktgruppe manuelt og indsætte modtagerne i feltet "Medlemmer ->". Det er klart, at dette middel er ekstremt besværligt. Derfor vil vi her introducere en anden tilgang, som vil bruge Outlook VBA til hurtigt at opnå en ny kontaktgruppe. Du kan bare trykke på en knap uden behov for gentagne gange at kopiere og indsætte. Læs videre for at få de detaljerede trin og VBA-koder.
Opret en kontaktgruppe fra modtagerlisten til en e-mail
- Til at starte med skal du gå til fanen "Udvikler" i Outlook.
- Derefter kan du under denne fane finde og klikke på knappen “Visual Basic”.
- Derefter åbnes et nyt "Microsoft Visual Basic for Applications" -vindue. Nu skal du åbne et nyt modul ved at klikke på "Indsæt"> "Modul".
- Dernæst i det nye modulvindue kan du kopiere og indsætte følgende koder i det.
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
- Senere kan du forlade det aktuelle "Visual Basic" -vindue og fortsætte med at tilføje den nye makro til værktøjslinjen Hurtig adgang. Klik på pil ned i værktøjslinjen Hurtig adgang, og vælg "Flere kommandoer" på rullelisten.
- Derefter kommer du ind i "Outlook-indstillinger" -vinduet. På dette tidspunkt skal du tage følgende trin:
- For det første skal du indstille "Vælg kommandoer fra" til "Makroer".
- Søg derefter efter og slå den tidligere tilføjede makro ud.
- Klik derefter på knappen "Tilføj" i midten.
- Til sidst skal du trykke på “OK” -knappen.
- Derefter kan du vende tilbage til din Outlook-postrude og prøve.
- Først kan du slå en mail i en hvilken som helst mailmappe.
- Klik derefter på knappen i værktøjslinjen Hurtig adgang, som billedet nedenfor:
- Og derefter vil du modtage et meddelelsesfelt, der kræver, at du angiver et navn til den nye kontaktgruppe.
- Klik senere på knappen “OK”. Straks åbnes den nye kontaktgruppe, der indeholder alle de valgte e-mail-modtagere. Du kan trykke på "Gem og luk" for at gemme det.
Must-Haves i Outlook Databeskyttelse
På grund af det faktum, at Outlook er sårbart, skal du tage tilstrækkelige forholdsregler for at beskytte deres Outlook-data. For det første skal du foretage en regelmæssig sikkerhedskopiering af Outlook-data. Derudover skal du vide, hvordan du finder ud af og kører det indbyggede reparationsværktøj, Scanpst.exe. Den sidste, men ikke mindst nødvendighed er en fantastisk ekstern beskadiget Outlook-datareparationsværktøj, Såsom DataNumen Outlook Repair, som kommer til din redning, hvis sikkerhedskopi og Scanpst.exe begge mislykkes.
Forfatter Introduktion:
Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparere SQL Server mdf-databasefejl og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com