Slik oppretter du raskt en kontaktgruppe fra mottakerlisten til en e-post med Outlook VBA

Noen ganger, når du sender eller mottar en e-post med mange mottakere, kan det være lurt å opprette en kontaktgruppe for disse mottakerne. Denne artikkelen vil introdusere en rask måte å oppnå det med Outlook VBA.

I vår forrige artikkel "Hvordan opprette en kontaktgruppe fra mottakerlisten”, har vi lært en vanlig metode for å opprette kontaktgruppen for e-postmottakere. Det vil si å først velge og kopiere mottakerne fra e-postene, og deretter opprette en kontaktgruppe manuelt og lime inn mottakerne i "Medlemmer ->"-feltet. Det er klart at dette betyr ekstremt tungvint. Derfor vil vi her introdusere en annen tilnærming, som vil bruke Outlook VBA for raskt å oppnå en ny kontaktgruppe. Du kan bare trykke på en knapp uten å måtte kopiere og lime inn flere ganger. Les videre for å få de forseggjorte trinnene og VBA-kodene.

Opprett en kontaktgruppe fra mottakerlisten til en e-post

1. For somtart, bør du gå til "Utvikler"-fanen i Outlook.
2. Så under denne fanen kan du finne og klikke på "Visual Basic" -knappen.
3. Etter det åpnes et nytt "Microsoft Visual Basic for Applications"-vindu. Nå bør du åpne en ny modul ved å klikke "Sett inn"> "Modul".
4. Neste i det nye modulvinduet kan du kopiere og lime inn 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 Every 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("Spesifiser et navn for den nye kontaktgruppen :) Med ConGroup .AddMembers Recips .DLName = strName 'Bruk ".Save" for å lagre den nye kontaktgruppen direkte. Vis slutt med tempMail.Close olDiscard End If Next End Sub

5. Senere kan du gå ut av det gjeldende "Visual Basic"-vinduet og fortsette å legge til den nye makroen til hurtigtilgangsverktøylinjen. Klikk på nedoverpilen i hurtigtilgangsverktøylinjen og velg "Flere kommandoer" fra rullegardinlisten.
6. Deretter kommer du inn i "Outlook-alternativer"-vinduet. På dette tidspunktet må du ta følgende trinn:

• Først setter du "Velg kommandoer fra" til "Makroer".
• Oppsøk og pitch ut den tidligere tillagte makroen.
• Klikk deretter på "Legg til"-knappen i midten.
• Trykk til slutt på "OK"-knappen.

7. Etter det kan du gå tilbake til Outlook-e-postruten og prøve.

• Til å begynne med kan du pitch på én e-post i en hvilken som helst e-postmappe.
• Klikk deretter på knappen i hurtigtilgangsverktøylinjen, som bildet nedenfor:
• Og deretter vil du motta en meldingsboks som krever at du spesifiserer et navn for den nye kontaktgruppen.
• Klikk på "OK"-knappen senere. Med en gang åpnes den nye kontaktgruppen, som inneholder alle de valgte e-postmottakerne. Du kan trykke "Lagre og lukk" for å lagre den.

Må-has i Outlook-databeskyttelse

På grunn av det faktum at Outlook er sårbart, bør du ta tilstrekkelige forholdsregler for å beskytte Outlook-dataene deres. For det første bør du lage en vanlig Outlook-datasikkerhetskopiering. I tillegg må du vite hvordan du finner ut og kjører det innebygde reparasjonsverktøyet, Scanpst.exe. Den siste, men ikke minst nødvendigheten er en fantastisk ytre skadet Outlook-datareparasjonsverktøy, Eksempel DataNumen Outlook Repair, som vil komme deg til unnsetning hvis både backup og Scanpst.exe mislykkes.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparasjon SQL Server mdf database feil og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med