Meedere rapporten mailen

[Oblivianx]

Beste Forumleden,

Ik heb met hulp van het onderstaande voorbeeld (zie linkje) een werkend model gemaakt,
waarmee je rapporten naar diverse personen kan mailen in het snapshot formaat.

http://www.datastrat.com/Download/EmailSenate2K.zip

Dit werkt goed als ik 1 rapport als bijlage meestuur, maar zodra ik meerdere rapporten selecteer die ik tegelijk wil meesturen als bijlage, dan krijg ik de volgende foutmelding:

"Ongeldig gebruik van Null"

Iemand een tip?

Met vriendelijke groet,

OblivianX.

 

[dirkdrent]

Ik kan je helaas niet helpen, maar misschien kun je mij helpen. Ik gebruik het zelfde programma, ik verstuur ook een bijlage naar meerder personen (e-mail adressen) tegelijk die je dan selecteert in de rechterkolom.

Mijn vraag aan jou is, weet jij hoe ik alle namen (e-mail adressen) in de rechterkolom in 1x kan selecteren??? (Nu moet ik constant alle e-mail adressen 1 voor 1 aan klikken).

Bedankt alvast, Dirk

 

[Oblivianx]

Beste dirkdrent,

Simpel opgelost kan je in de eigenschappen van je rechterkolom onder de tabblad overige, de meervoudige selectie op uitgebreid zetten. Dan kan je de sleepmethode gebruiken om iedereen te selecteren. Nadeel is wel dat als je een heleboel personen in je lijst hebt dat te omslachtig is.

Met vriendelijke groet,

OblivianX.

 

[dirkdrent]

Zou dit ook niet mogelijk zijn d.m.v. een knop?

 

[FESTER]

Zou dit ook niet mogelijk zijn d.m.v. een knop?

Zekers wel.
Stel, je keuzelijst heet lstEmailadres, zet dan deze code onder de knop:

Dim I As Integer

For I = 0 To Me.lstEmailadres.ListCount
Me.lstEmailadres.Selected(I) = True
Next I

FESTER

 

[FESTER]

Dit werkt goed als ik 1 rapport als bijlage meestuur, maar zodra ik meerdere rapporten selecteer die ik tegelijk wil meesturen als bijlage, dan krijg ik de volgende foutmelding:

"Ongeldig gebruik van Null"

Waarschijnlijk heb je van de rapportlijst een multi select gemaakt.
Je moet via code aangeven welk rapport geselekteerd is uit je lijst.
Omdat je dat niet niet, blijft de waarde null van je lijst met rapporten.
Vandaar je foutmelding.

Via SendObject kun je maar 1 rapport bijsluiten.
Je zult met Automation aan de slag moeten, zie

http://support.microsoft.com/kb/209948/nl

Als je je rapporten in een multi select lijst opneemt, zul je een lus in VBA moeten bouwen om ieder geselekteerd rapport als bijlage mee te sturen.

FESTER

 

[Oblivianx]

FESTER,

Bedankt voor je advies, ik zal met Automation gaan sleutelen.

OblivianX.

 

[Frontier]

of redemption, doet het ook goed..:thumb: