ListBox lar arası mail adresi aktarımı

[bmutlu966]

ListBox1 de mail adresleri var. Buradan seçtiğim maillerin ListBox2 de aralarında ";" noktalı virgül olacak şekilde aktarılmasını istiyorum. Kodu yazamadım.

 

[Orion1]

Dosyanız ektedir.

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
If ListBox2.ListCount < 1 Then
    ListBox2.AddItem ListBox1.Value
    Else
    ListBox2.List(0, 0) = ListBox2.List(0, 0) & ";" & ListBox1.Value
End If
End Sub

 

[bmutlu966]

Emeğinize sağlık çok teşekkürler. Bir ricam daha olacak. ListBox2 ye aktarılan mail adreslerinin herbirini farklı satırda göstermemiz mümkün mü?

 

[Orion1]

Emeğinize sağlık çok teşekkürler. Bir ricam daha olacak. ListBox2 ye aktarılan mail adreslerinin herbirini farklı satırda göstermemiz mümkün mü?

Dosyanız ektedir.
Buyurun.

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
ListBox2.AddItem ListBox1.Value
End Sub

 

[bmutlu966]

Çok teşekkürler.

 

[bmutlu966]

Bir şey daha sormak istiyorum. ListBox2 deki mail adreslerini aralarına noktalı virgül koyarak bir değişkene atamam gerekiyor. İlk yazdığınız kodları uyarlamaya çalıştım ama beceremedim.

 

[Orion1]

Bir şey daha sormak istiyorum. ListBox2 deki mail adreslerini aralarına noktalı virgül koyarak bir değişkene atamam gerekiyor. İlk yazdığınız kodları uyarlamaya çalıştım ama beceremedim.

Buyurun.

Dim deg As String, i As Long
For i = 0 To ListBox2.ListCount - 1
    deg = deg & ";" & ListBox2.List(i, 0)
Next
deg = Right(deg, Len(deg) - 1)
MsgBox deg

 

[bmutlu966]

Dostum sen süpersin. Emeğine sağlık.