• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

vasco16

envio de email

10 mensagens neste tópico

Boas pessoal tenho uma mini aplicação feita em vb.net para enviar mails.. tenho os contactos em 3 combobox a irem buscar dados a uma BD em access, gostaria de saber como faço para no campo distinatário aparecer o que selecionei na combobox, e se seleccionar mais que um item enviar para o campo distinatario mas meter uma virgula..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

No IndexChanged da combobox:

.Text &= ", " & ComboBox.Text ?

Supondo que o campo do destinatário e a combobox são coisas diferentes.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

No IndexChanged da combobox:

.Text &= ", " & ComboBox.Text ?

Supondo que o campo do destinatário e a combobox são coisas diferentes.

e se a caixa de texto não tiver nada? tambem vai meter a virgula? :S

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

isso é apenas uma questão de verificares se a textbox tem algo primeiro.

If String.IsNullOrEmpty(Textbox1.Text.Trim) = True Then 'Significa que está vazia.
    Textbox1.Text = Combobox1.Text
Else
    Textbox1.Text &= ", " & Combobox1.Text
End If

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

mais uma coisa, estou a chamar valores atraves deste código

Sub clientes()

        'Retorna os nomes dos produtos da tabela  produtos

        Dim strConn As New OleDb.OleDbConnection(Stand.My.Settings.ligacaoBD)

        strConn.Open()

        Dim DSet As New DataSet(), SQLStr As String

        Dim cmd As System.Data.OleDb.OleDbCommand

        Dim dbAdaptr As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter()

        'cria o objeto datarow e datatable

        Dim tRow As DataRow, tTbl As DataTable

        'intruções

        With dbAdaptr

            .TableMappings.Add("Table", "clientes")

            SQLStr = "Select email from clientes"

            cmd = New System.Data.OleDb.OleDbCommand(SQLStr, strConn)

            cmd.CommandType = CommandType.Text

            .SelectCommand = cmd

            .Fill(DSet)

            .Dispose()

        End With

        DSet.AcceptChanges()

        tTbl = DSet.Tables.Item(0)

        DSet.Dispose()

        strConn.Close()

        ' preenche a combo combobox

        clientescombo.Text = ""

        clientescombo.Items.Clear()

        clientescombo.BeginUpdate()

        ' carrega a combo com o nome dos fornecedores

        For Each tRow In tTbl.Rows

            clientescombo.Items.Add(tRow("email").ToString)

        Next

        clientescombo.EndUpdate()

    End Sub

para a minha combobox

como é que faço para ter uma opção que envie todos os dados para a textbox?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

mais uma coisa, estou a chamar valores atraves deste código

para a minha combobox

como é que faço para ter uma opção que envie todos os dados para a textbox?

Experimenta isto:

For i As Integer = 0 To Combobox1.Items.Count - 1
   If String.IsNullOrEmpty(Textbox1.Text) = True then
       Textbox1.Text = Combobox1.Items(i).ToString.Trim
   Else
       Textbox1.Text &= ", " & Combobox1.Items(i).ToString.Trim
   End If
Next

Basicamente o que esse ciclo vai fazer é percorrer todos os items da combobox e mete-los na textbox

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Experimenta isto:

For i As Integer = 0 To Combobox1.Items.Count - 1
   If String.IsNullOrEmpty(Textbox1.Text) = True then
       Textbox1.Text = Combobox1.Items(i).ToString.Trim
   Else
       Textbox1.Text &= ", " & Combobox1.Items(i).ToString.Trim
   End If
Next

Basicamente o que esse ciclo vai fazer é percorrer todos os items da combobox e mete-los na textbox

e como é que meto uma opção na minha combobox a dizer "todos"? é que tenho ela a ir buscar dados a uma tabela

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Bem acho que resolvi o problema, meti um botão a dizer todos e envia os itens para textbox, mas agora estou com outro problema.. como é que verifico se o iten (mail) ja foi inserido?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
        If LCase(TextBox1.Text).Contains(LCase(Combobox1.Items(i).ToString.Trim)) Then
            'ja existe, não faças nada
        Else
            'não existe, adiciona
        End If

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora