vikjes plaatsen en deze dan via button een mail sturen

[dinoshop]

zoek een script waarbij hij kijkt of vinkje is true en dan al die vinkjes een mail stuurt .
met daarin een pdf van een rapport.
maar ook alleen moet het rapport gevuld zijn met de gegevens van vinkje.
hoop dat iets duidelijk is.
heb ooit eens zoiets voorbij zien komen met een brief versturen kan alleen niet meer vinden.

 

[OctaFish]

Mailen op basis van een selectie(vakje) komt regelmatig voorbij in het forum. Met code en al . Bijvoorbeeld hier.

 

[dinoshop]

Private Sub Mail_Click()
       
If Me.Verzonden.Value = True Then
Me.Email = DLookup("Email", "tblpersoneel", "PersoneelNR=" & [Werknemer]) _

      DoCmd.SendObject acSendReport, "RptPlanning", acFormatPDF, Me.Email, , , , , True
      
 End If
 

End Sub

ik zoek zoiets dus zodra er vinkjes staan moet hij email adres dat nummer 1 wordt gevonden als hoofd mailen en de rest in cc .
en als kan ook de rapport aleen vullen op projectid

 

[OctaFish]

Ik snap je niet; sowieso is je codevoorbeeldje incompleet ( _ op het eind en geen vervolg) maar daar gaat het vermoedelijk ook niet om. Je code zou er, als je adressen in de CC wilt hebben, zo uit moeten zien:

    DoCmd.SendObject acSendReport, "RptPlanning", acFormatPDF, Me.Email, Me.CC, , , , True

Of zo, als je de overige in de BCC wilt hebben:

    DoCmd.SendObject acSendReport, "RptPlanning", acFormatPDF, Me.Email, , Me.BCC, , , True

Waarbij de tekstelden CC en BCC dan de verzamelde email adressen hebben staan.

 

[dinoshop]

zal je even uitleggen hoop ik
ik heb hier een formulier met heel veel dat maar kan ze dus filteren .
er staan namen in zoals je in voorbeeld kan zien. en daar achter vinkjes optie deze wil ik dus aan kunnen zetten geen probleem , nu moet het zo zijn dat ik op mail druk knop boven in .
en hij dan deze email adressen verzameld en verstuurd naar al deze personen.
zoals ik al eerder vertelde heb ooit zoiets gehad en kon dus klanten selecteren en hun een brief sturen. ben helaas kwijt was een goede code .

 

[OctaFish]

Maar dit plaatje laat niet zien waarom een bepaald adres in de To regel moet, en de andere in de CC.

 

[dinoshop]

das waar ze mogen ook allemaal in aan komen te staan cc niet echt noodzakelijk

benny@.....nl;Walter@....nl enz
is dus ook geen probleem
kan jij dit misschien nog oplossen voor vanavond

 

[OctaFish]

Je weet hopelijk dat we allemaal vrijwilligers zijn?

 

[dinoshop]

yep dat ben ik dus ook, maar had hem vandaag graag even gepresenteerd.
en had dus alle hoop op jou gevestigd .
heb hem gehad de code maar helaas weg zo jammer .

 

[dinoshop]

maar kan je me nog wel helpen met dit probleempje

 

[OctaFish]

Op zich wel, maar ook mijn tijd gebruikt een 24 uurs klok .

 

[dinoshop]

geen probleem hoor heb nu weer even de tijd en zoek ondertussen natuurlijk ook op net door .
maar das nog niet zo makkelijke een voorbeeld te vinden dus licht mijn hoop bij jou

 

[dinoshop]

Private Sub Mail_Click()
On Error GoTo EMail_Err
If Me.Verzonden.Value = True Then
Me.Email = DLookup("email", "tblpersoneel", "PersoneelNR=" & [Werknemer]) _

      DoCmd.SendObject acSendReport, "RptPlanning", acFormatPDF, Me.Email, , , Me.ProjectID, Me.Aanv__G_, True
      
           
   Exit Sub

EMail_Err:
    MsgBox Error$
Else
End If

End Sub

dit is wat ik nu heb werkt alleen doet hij maar 1 email adres invullen dus niet alle vinkjes
en hij filter niet op projectid

 

[dinoshop]

laatste is opgelost nu nog de vinkjes