VBA - Brevflette og udsendelse af mails med Bcc

Det er bare cc og ikke bcc som jeg er kommet til at skrive

Bruger du Outlook?
Skal alle e-mails sendes til samme CC?

Hvis ja: så behøver du ikke en makro. Du kan oprette en regel i Outlook, som sætter CC på alle de mails, du sender. Du kan så blot slette reglen eller slå den fra, når du har sendt dine flettede mails.

Jeg har lige prøvet det af, og det virker ...

Ja, jeg bruger outlook. Cc er forskelligt for hver mail

Se denne artikel:
http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm

Den indeholder en beskrivelse af en løsning plus en makro klar til brug. Makroen er lavet til at håndtere vedhæftede filer i forbindelse med e-mails, men du kan ændre den til at håndtere CC i stedet:

I den catalog-fil, du skal bruge, skal du i stedet for filnavne i _kolonne 2_ skrive den/de mailadresser, der skal i CC-feltet for den enkelte modtager. Hvis der skal CC til flere navne, skal du adskille e-mail-adresserne med semikolon.

Du kan slette følgende 5 linjer i makroen:

        For i = 2 To Maillist.Tables(1).Columns.Count
            Set Datarange = Maillist.Tables(1).Cell(j, i).Range
            Datarange.End = Datarange.End - 1
            .Attachments.Add Trim(Datarange.Text), olByValue, 1
        Next i

og i stedet indsætte følgende 3 linjer:

        Set Datarange = Maillist.Tables(1).Cell(j, 2).Range
        Datarange.End = Datarange.End - 1
        .CC = Datarange


Læs vejledningen i artiklen grundigt. Når du skal i gang med at bruge makroen er princippet, at du først skal gennemføre brevfletningen i Word og have dit _flettede_ dokument klar (fremme på skærmen).

Jeg kigger lige på det

Lukkertid