Ir para conteúdo
Fórum Script Brasil

Soldado 600

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Soldado 600

Soldado 600's Achievements

0

Reputação

  1. Boa noite pessoal Estudei Visual Basic 6 , em 1999 , rsrsr , estou dando um atualizada no 2010 , e gostaria que os amigos me ajudassem . Estou tentando enviar vários email ao mesmo tempo , usando um Loop . a chave primária e numérica e está tendo problema na textbox quando passo para uma variavel short .... E se os amigos poderia me ajudar também com uma msgbox temporidada !!!! Dim contador As Integer = 3 Dim soma65 As Short = -3 Dim Mail As New MailMessage Dim cias As String Dim emaild As String Me.CadastroBindingSource.MoveLast() soma65 = soma65 + CódigoTextBox.Text cias = CiasComboBox.Text Do Debug.Write(contador.ToString & " ") If Checbox2cia.Checked = True Then If cias = "2ª Cia de Fuzileiros" Then txtemaildestino.Text = EmailTextBox.Text emaild = txtemaildestino.Text Mail.To.Add("emaild") Mail.Subject = txtassunto.Text Mail.From = New MailAddress("******@hotmail.com") Mail.Body = txtmensagem.Text Dim SMTP As New SmtpClient("smtp.live.com") SMTP.EnableSsl = True SMTP.Credentials = New System.Net.NetworkCredential("*********@hotmail.com", "26alp35alp") SMTP.Port = 587 Try SMTP.Send(Mail) MsgBox("A Mensagem foi entregue ao Combatente .", MsgBoxStyle.Information) Catch ex As Exception MsgBox(ex.Message & vbCrLf) End Try End If End If contador = +1 Me.CadastroBindingSource.MoveNext() cias = CiasComboBox.Text Loop Until contador <= txtnumero.Text
×
×
  • Criar Novo...