2 metoder for å sende Outlook-e-post til alle kontakter i en bestemt fargekategori

Hvis du ønsker å sende Outlook-e-post til alle kontakter i en bestemt fargekategori i grupper, kan du bruke de 2 metodene som er introdusert i denne artikkelen.

Av noen grunner kan det til tider være nødvendig å sende samme e-post til alle kontakter i en bestemt fargekategori. Uten tvil er det ganske kjedelig å sende en etter en. Derfor vil vi her dele deg 2 tilnærminger. Begge har sine egne fordeler og ulemper, du kan velge enten etter eget ønske.

Metode 1: Batch-send til alle kontakter i en bestemt kategori i én kontaktmappe

1. Til start med, start Outlook-applikasjonen.
2. Gå deretter til "Kontakter"-området og åpne en kontaktmappe.
3. Deretter klikker du i søkeboksen, og trykker deretter på "Kategoriser"-knappen og velger en bestemt fargekategori fra rullegardinlisten.
4. Etter det vil du se at bare kontaktene i en bestemt fargekategori er oppført. Nå kan du velge alle søkeresultatene ved å trykke "Ctrl + A"-tasten.
5. Senere kan du bytte tilbake til "Hjem"-fanen og klikke på "E-post"-knappen.
6. En ny e-post vises med en gang. Nå kan du komponere den etter dine behov og til slutt trykke "Send"-knappen for å sende den ut.

Hvis du har flere kontaktmapper i en bestemt Outlook-datafil og ønsker å gå gjennom alle disse mappene og finne kontaktene i en bestemt fargekategori og deretter sende en e-post til dem i bulk, kan du bruke følgende måte.

Metode 2: Batch-send til alle kontakter i en bestemt kategori i alle kontaktmapper

1. Først trykker du på "Alt + F11"-tastene på hovedskjermbildet i Outlook.
2. Deretter kan du åpne en ny modul i det nye vinduet.
3. Kopier deretter følgende VBA-kode inn i denne modulen.

Dim objSourcePSTFile As Outlook.Folder Dim objMail As Outlook.MailItem Dim objMailRecipients As Outlook.Recipients Sub SendanEmailtoAllContactsinSpecificColorCategory() Dim objFolder As Outlook.Folder Set objMail = Application.CreateItem(olMailItem) Set =obientMailRecipients the source 'PJMailsRecipients. Endre "John Smith" til visningsnavnet på din egen PST-fil. Sett objSourcePSTFile = Application.Session.Folders("John Smith") for hver objFolder I objSourcePSTFile.Folders Ring Processfolders(objFolder) Neste 'Endre eller legg til flere e-postdetaljer her: With objMail .Recipients.ResolveAll .Subject = "Test Mail" .Body = "Skriv inn e-postdetaljer..." .Send End With End Sub Sub Prosessmapper(objCurrentFolder As Outlook.Folder) Dim objItem As Object Dim objContact As Outlook.ContactItem Dim objSubfolder As Outlook.Folder If objCurrentFolder.DefaultItemType = olContactItem Then For Every objItem In objCurrentFolder.Items If TypeOf objItem Is ContactItem Then Set objContact = objItem 'Finn alle kontakter i en spesifikk fargekategoriKontakter,CobjeggueContacts. > 0 Så objMailRecipients.Add objContact.Email1Address End If End If Next objItem End If 'Behandle alle kontaktmapper rekursivt If objCurrentFolder.Folders.Count > 0 Then For Every objSubfolder In objCurrentFolder.Folders Call Proses Endfolders(objSubfolders)

4. Til slutt kan du kjøre denne makroen bare ved å trykke på F5-tasten.
5. Umiddelbart vil du se at en ny e-post er i utboksen din og sendes ut.

Eliminer irriterende Outlook-feil

Outlook kan ikke være immun mot feil. Derfor er det svært viktig for oss vanlige brukere å lære å håndtere ulike feil. Først av alt kan du prøve å fikse dem ved starting Outlook i sikker modus, ved hjelp av scanpst eller gjenoppbygge e-postprofilen eller reparere MS Office-pakken. Hvis alt mislykkes, kan du ta hjelp av et kraftig eksternt reparasjonsverktøy, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

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