sendobject naar meerdere email adressen

Status
Niet open voor verdere reacties.
J

jwaque

Verenigingslid
Lid geworden
16 aug 2006
Berichten
443
Ik heb onderstaande code. Deze werkt maar is niet zo netjes.
het probleem is dat mijn lijst eindigd op een ; Nu opgelost door na het maken van de lijst het cc adres aan de lijst vast te plakken maar dit moet netter kunnen

De ; aan het einde is logisch gezien de code maar hoe maak ik een mooie lijst met gegevens, gescheiden met ; maar zonder een ; aan het einde van de string.

Code: 
stDocName = "rapportage ICR tbv staf"

With CurrentDb.OpenRecordset("qryicrdeelnemers")
    .MoveFirst
 
   lijst = ""
       Do While Not .EOF
        lijst = !email & "; " & lijst
'        MsgBox lijst
        .MoveNext
    Loop
    End With
   verzend = lijst & "x1@xx.nl"
   
DoCmd.SendObject acSendReport, stDocName, acFormatSNP, verzend, , , "ICR meldingen overzicht " & verzenddatum, "Het ICR overzicht. mvgr", True
 
In plaats van de cc lijst eraan vast te plakken kun je ook gewoon de laatste ; van de string verwijderen.
 
edmoor zei:
In plaats van de cc lijst eraan vast te plakken kun je ook gewoon de laatste ; van de string verwijderen.
Klik om te vergroten...

zou je mij een idee kunnen geven hoe ik de ; aan het einde van de string verwijder?
 
Zoiets:

Code: 
verzend = Mid(lijst, 1, Len(lijst) - 1)
 
Mid is in dit geval niet nodig:
Code: 
verzend = Left(lijst, Len(lijst) - 1)
 
Ik kon geen richting kiezen ;)
 
Ik ga de formule nog even uitpluizen zodat ik de code LEN ook begrijp maar het werkt prima.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan