ENVIA EMAILS QUE ESTA NA LISTBOX
Tenho uma tabela de cadastro.Estou fazendo um select nela e selecionado todos os contados e enviar os emails que está listbox.
O problema é que estou conseguindo selecionar todos os contando mais o email só é enviado para o primeiro da lista.
[txt-color=#007100] [ô]Email[ô][/txt-color]
message.From = New MailAddress(from.Text)
message.To.Add(too.Text)
message.To.Add(ListBox2.Text)
message.Body = body.Text
message.Subject = assunto.Text
message.Priority = MailPriority.Normal
smtp.EnableSsl = True
smtp.Port = [Ô]587[Ô]
mtp.Host = txtsite.Text
smtp.Credentials = New Net.NetworkCredential(from.Text, senha.Text)
smtp.Send(message)
[txt-color=#007100][ô]Selecionado todos os contados[ô][/txt-color]
ListBox2.DataSource = dados.DefaultView
ListBox2.DisplayMember = [Ô]email[Ô]
ListBox2.SelectionMode = SelectionMode.MultiSimple
For i = 0 To ListBox2.Items.Count - 1
ListBox2.SetSelected(i, 1)
Next
O problema é que estou conseguindo selecionar todos os contando mais o email só é enviado para o primeiro da lista.
[txt-color=#007100] [ô]Email[ô][/txt-color]
message.From = New MailAddress(from.Text)
message.To.Add(too.Text)
message.To.Add(ListBox2.Text)
message.Body = body.Text
message.Subject = assunto.Text
message.Priority = MailPriority.Normal
smtp.EnableSsl = True
smtp.Port = [Ô]587[Ô]
mtp.Host = txtsite.Text
smtp.Credentials = New Net.NetworkCredential(from.Text, senha.Text)
smtp.Send(message)
[txt-color=#007100][ô]Selecionado todos os contados[ô][/txt-color]
ListBox2.DataSource = dados.DefaultView
ListBox2.DisplayMember = [Ô]email[Ô]
ListBox2.SelectionMode = SelectionMode.MultiSimple
For i = 0 To ListBox2.Items.Count - 1
ListBox2.SetSelected(i, 1)
Next
Você tem que separa a string se não, não vai dar certo.
Dim Emails as String=[Ô][Ô]
No laço for você pode fazer assim:
For i = 0 To ListBox2.Items.Count - 1
Emails+=ListBox2.items(i).value & [Ô];[Ô]
Next
Axu que é assim se não estou enganado para pegar o valor da celula.
Dim Emails as String=[Ô][Ô]
No laço for você pode fazer assim:
For i = 0 To ListBox2.Items.Count - 1
Emails+=ListBox2.items(i).value & [Ô];[Ô]
Next
Axu que é assim se não estou enganado para pegar o valor da celula.
Alevale tentei fazer as alterações que você me falou.
mais está dando erro. Membro público [ô]value[ô] no tipo [ô]DataRowView[ô] não encontrado.
mais está dando erro. Membro público [ô]value[ô] no tipo [ô]DataRowView[ô] não encontrado.
Tenta assim:
For i = 0 To SEUDATAAGRID.Rows.Count - 1
MsgBox(SEUDATAGRID.Rows(i).Cells(2).Value)
Next
[ô]OBS: Onde o 2 é a celula que contem o e-mail.
For i = 0 To SEUDATAAGRID.Rows.Count - 1
MsgBox(SEUDATAGRID.Rows(i).Cells(2).Value)
Next
[ô]OBS: Onde o 2 é a celula que contem o e-mail.
Alevale obrigada
Mais acho que não fui clara.
Eu tenho uma lista de emails e quero selecionar todos emails e envia para todos da lista.O usuário vai decidir se quer enviar para uma pessoa ou para todos da listbox.
se ele quiser enviar para uma pessoa adiciona o endereço de email na textbox .
se quiser enviar para todos clica no LinkLabel.O LinkLabel vai fazer a busca no BD (Mysql) e vai preencher a lista e enviar para todos que estiver na lista.
Eu consigo selecionar todos emails,mais quando envio apenas o primeiro item recebe o email.
Mais acho que não fui clara.
Eu tenho uma lista de emails e quero selecionar todos emails e envia para todos da lista.O usuário vai decidir se quer enviar para uma pessoa ou para todos da listbox.
se ele quiser enviar para uma pessoa adiciona o endereço de email na textbox .
se quiser enviar para todos clica no LinkLabel.O LinkLabel vai fazer a busca no BD (Mysql) e vai preencher a lista e enviar para todos que estiver na lista.
Eu consigo selecionar todos emails,mais quando envio apenas o primeiro item recebe o email.
Tópico encerrado , respostas não são mais permitidas