Send automail fra fælles postkasse Outlook 2010

Kunne anvendelse af VBA være en mulighed?

Nu er det længe siden jeg har brugt Outlook, men ud fra et generelt synspunkt vil det ikke bare være spild af arbejdstid at 4 skal læse at nu er der kommet ny post hver gang der ligger noget ?

Det kunne det måske. Jeg aner bare ikke hvordan.

Leif - Det vil være mere spild af tid at man hver 10. minut (f.eks.) lige skal tjekke om der er nyt i den postkasse.

#3 Det kunne du så få hjælp til..

supertekst - kan du hjælpe med det?

Ja -

hvordan?

Vender tilbage med en VBA-kode, der skal indlægges i Outlook.

Nedenstående kode kopieres & indsættes  i Fællespostkassens VBA-del:
Alt+F11 / ThisOutLookSesion

Bemærk pladsen til de 4 modtageradresser, som i selv erstatter.

Endvidere skal der gives tilladelse til at anvende makroer via Sikkerhedsindstillingen for Outlook.

Nu kan i prøve..

Sub Application_Newmail()
Const sendTilMailAdr = "modtager1@xx.dk;modtager2@xx.dk;modtager3@xx.dk;modtager4@xx.dk"        'indsæt selv de relavante mailadresser
Dim tabel As Variant

Const besked = "Der er ny post i fælles postkassen"
Dim mailApp, Namespace

    tabel = Split(sendTilMailAdr, ";")
   
    For m = 0 To UBound(tabel)
        Set mailApp = CreateObject("Outlook.Application")
        Set Namespace = mailApp.GetNamespace("MAPI")
       
        Set nyMail = mailApp.CreateItem(olMailItem)
        Set nymod = nyMail.Recipients
        nymod.Add tabel(m)
       
        With nyMail
            .Subject = besked
            .Send
        End With
    Next m
End Sub

Kunne det anvendes?

Jeg prøvede lige.. det resulterede i at jeg fik 600 mails, hvor der står at der er ny post...

Hvad er så konklusionen?

At det ikke virker. Der ligger ingen mails i fællespostkassen. Og den stoppede først med at sende de mails da jeg fjernede koden igen.

Ok & beklageligt. Har kun haft mulighed for at teste det i enkeltbruger-regi.

der kom ingen løsning på det.