none
Adicionar arquivos para Envio RRS feed

  • Pergunta

  • Boas pessoALL

    Estou desenvolvendo um app em Visual Basic e ele possui um form com uma mala direta que envia e-mails direto do aplicativo.

    Andei tentando utilizar uma classe OpenDialogFile, da seguinte maneira:

    Private Sub btn_IncluirAnexo_Click(sender As Object, e As EventArgs) Handles btn_IncluirAnexo.Click
            Dim Conta As Integer
            Dim OFD As New OpenFileDialog()
            Try
                OFD.CheckFileExists = True
                OFD.Title = "Selecione um arquivo para anexar"
                OFD.ShowDialog()
                For Conta = 0 To UBound(OFD.FileNames)
                    lsb_Anexos.Items.Add(OFD.FileName(Conta))
                Next
            Catch ex As Exception
                MessageBox.Show( "Erro na Inclusão do Anexo" & Chr(13) & ex.Message, "ERRO")
            End Try
        End Sub

    Não está funcionando... 

    Alguém sabe de uma rotina que realmente funcione para adicionar um anexo junto ao envio do email?

    Obrigado a todos

    quarta-feira, 20 de novembro de 2019 15:33