Get Values of List Box to String

[Ksabai]

Iam using the Below VBA Code to get Filenames to string AttachFile but iam unable to get it.

Dim i As Integer
Dim strlstData As String
Dim AttachFile As String

For i = 0 To Me.lstEmails.ListCount - 1
strlstData = Me.lstEmails.ItemData(i)
AttachFile = strlstData
Next i

i want to store the 5 File name in lstEmails to AttachFile, can u help

 

[isladogs]

You are overwriting strlstData on each loop
Try this

Dim i As Integer
Dim strlstData As String
Dim AttachFile As String

For i = 0 To Me.lstEmails.ListCount - 1 
   strlstData = strlstData & "; " & Me.lstEmails.ItemData(i)
Next i

AttachFile = strlstData

 

[Ksabai]

its working great, thanks

 

[isladogs]

You're welcome

 

[Ksabai]

iam unable to send emails, the error is path not correct. able to send one but not morethan 1 file. any comments and help

 

[isladogs]

Please start a new thread and be more explicit about your problem.
What you have written is too vague for anyone to give a meaningful answer

For example what is the 'path' that isn't correct

 

[June7]

You want to send 1 email to 5 addresses and attach 5 files?

Post the entire procedure code. Please use CODE tags.

 

[isladogs]

Or 5 attachments on each email...? As I said its unclear.