İşaretli checkbox lara mail gönderme yardım

[doukan84]

Arkadaşlar oluşturduğum dosyaları userform üzerinden mail ile gönderme işini forum sayesinde halletim ama su işi bir çözemedim..

mailin gönderme kısmına userformdaki checkbox ların caption kısmına göre mail gönderiyor ama işaretli olsada gidiyor olmasada gidiyor ben sadecde işaretli olanlara mail gitmesini istiyorum

kod şöyle

.to= Checkbox1.caption & ";" & Checkbox2.caption & ";" &Checkbox3.caption & ";" &Checkbox4.caption & ";" &Checkbox5.caption

bu satırda ne gibi bir değişiklik yapmam lazım

 

[Emir Hüseyin Çoban]

. . .

    Dim kime   As String
    Dim i      As Byte
    Dim say      As Byte

    For i = 1 To 5
        If Controls("Checkbox" & i) = True Then
            kime = kime & Controls("Checkbox" & i).Caption & ";"
            say = say + 1
        Else
        End If
    Next i
    .to = WorksheetFunction.Substitute(kime, ";", "", say)
    kime = Empty
    say = Empty

. . .