envio de email

[vasco16]

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..

[ribeiro55]

No IndexChanged da combobox:

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

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

[vasco16]

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

[PNDmartins]

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

[vasco16]

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?

[PNDmartins]

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

[vasco16]

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

[vasco16]

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?

[ribeiro55]

        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

[vasco16]

obrigado 😉