macro voor emailen

[Marco Kamphuis]

Hoi,

Ik heb een werkrooster gemaakt en nu wil ik deze doormiddel van een macro naar meerdere mensen sturen.

Een macro maken en dat ie dan het werkrooster in PDF formaat verstuurd, weet ik wel, alleen dat als ik op de button klik wil ik dat ie standaard iedereen de PDF mailt en niet dat ik de emailadressen moet ingeven.

Wie kan mij hiermee op weg helpen?

 

[Haije]

Marco, heb je hier al gekeken: https://www.rondebruin.nl/win/section1.htm

 

[edmoor]

Omdat je geen document hebt geplaatst, hier een algemeen voorbeeld voor email adressen in A1 t/m A10:

With OutMail
    .To = Join(Application.Transpose(Range("A1:A10").Value), ";")
    .Attachments.Add ("C:\Mapnaam\test.pdf")
    .Display [COLOR="#008000"]'Of gebruik .Send[/COLOR]
End With

 

[Marco Kamphuis]

Het gaat om de volgende bestand.

Ik zal eens kijken of ik uit jullie adviezen kom Bekijk bijlage werkrooster.xlsx

 

[edmoor]

Handig, zo'n bestand zonder dat we kunnen zien waar de bedoelde email adressen zich bevinden.
Ook de genoemde knop is er niet of info over waar deze moet staan.

 

[Marco Kamphuis]

sorry ... ik wist niet dat dat nodig was ... bij deze een betere voorbeeld. in de eerst tab (dienstrooster) zit de knop. en bij tab diensten&rollen staan dan de emailadressen.Bekijk bijlage werkroostertesttt.xlsm

 

[edmoor]

Daar kan je dus prima mijn voorbeeld uit #3 voor gebruiken.

 

[Marco Kamphuis]

Daar kan je dus prima mijn voorbeeld uit #3 voor gebruiken.

Werkt dit ook als de emailadressen op een andere werkblad staan?

 

[edmoor]

Uiteraard. Dan geef je de bladnaam mee voor de Range:

With OutMail
    .To = Join(Application.Transpose(Sheets("Diensten & Rollen").Range("B26:B47").Value), ";")
    .Attachments.Add ("C:\Mapnaam\test.pdf")
    .Display 'Of gebruik .Send
End With