VB.NET - UPDATE LIST T
Pessoal preciso dar um update em um List T, quando ele der erro, como eu faço isso ? E claro quando ele der certo também.
Tenho a seguinte função:
Try
Dim sortedByUnit = From p In UserInformarion Where p.StatusEmail = [Ô]EMAIL[Ô] Order By p.Unidade, p.Usuario Select p
For Each p1 As ActiveDirectory In sortedByUnit
fncEnviaEmail(p1.Nome, p1.Usuario, p1.Email, p1.DiasExpirar, p1.DataExpiracao, p1.Unidade,p1.EnviaEmail)
Next
Catch ex As Exception
fncTrataErro([Ô]FNCMONTAEMAIL[Ô], ex.Message, [Ô][Ô], [Ô][Ô], [Ô][Ô], [Ô][Ô])
End Try
A questão algumas vezes o endereço de e-mail está incorreto ou por algum motivo ele dá erro ao enviar.
Dai eu quero atualizar o minha lista, no item P1.EnviaEmail para =[Ô]ERRO[Ô] e claro se der certo para [Ô]OK[Ô].
A minha dúvida como eu faço isso pelo Try Catch sem ter que percorrer a lista inteira de novo ?
Tenho a seguinte função:
Try
Dim sortedByUnit = From p In UserInformarion Where p.StatusEmail = [Ô]EMAIL[Ô] Order By p.Unidade, p.Usuario Select p
For Each p1 As ActiveDirectory In sortedByUnit
fncEnviaEmail(p1.Nome, p1.Usuario, p1.Email, p1.DiasExpirar, p1.DataExpiracao, p1.Unidade,p1.EnviaEmail)
Next
Catch ex As Exception
fncTrataErro([Ô]FNCMONTAEMAIL[Ô], ex.Message, [Ô][Ô], [Ô][Ô], [Ô][Ô], [Ô][Ô])
End Try
A questão algumas vezes o endereço de e-mail está incorreto ou por algum motivo ele dá erro ao enviar.
Dai eu quero atualizar o minha lista, no item P1.EnviaEmail para =[Ô]ERRO[Ô] e claro se der certo para [Ô]OK[Ô].
A minha dúvida como eu faço isso pelo Try Catch sem ter que percorrer a lista inteira de novo ?
For Each p1 As ActiveDirectory In sortedByUnit
Try
fncEnviaEmail(p1.Nome, p1.Usuario, p1.Email, p1.DiasExpirar, p1.DataExpiracao, p1.Unidade,p1.EnviaEmail)
Catch exEmail as Exception
[ô]faça o tratamento de erro
[ô]p1.Erro = [Ô]XXXX[Ô]
End Try
Next
Tópico encerrado , respostas não são mais permitidas