[Resolvido]Listar Arquivos Diretório.

Salve galera,

Dei uma pesquisada no fórum mas não encontrei nada a respeito.
Gostaria de um ajuda de vocês.

Criei um formulário para envio de emails. Esta funcionando direitinho.
Porém, gostaria de enviar um anexo junto. Já consegui gerar o relatório em PDF e tudo mais. E enviar o arquivo por email, mas apenas 1 arquivo...

Mas o que eu gostaria de fazer é reaproveitar este formulário.
Como faço para criar uma ListBox, e listar todos os arquivos pdf que eu tenho em uma pasta??
Para serem enviados por email?


Estou utilizando o seguinte código para disparar o e-mail....

Código:

Private Sub BtnEnv_Click()
        Dim mess_body As String
        Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Set appOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = appOutLook.CreateItem(olMailItem)
           
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
            With MailOutLook
            .BodyFormat = olFormatRichText
            .To = Me.Email_Address
            .Subject = Me.Mess_Subject
            .HTMLBody = Me.mess_text
            If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
                .Attachments.Add (Me.Mail_Attachment_Path)
            End If
            '.DeleteAfterSubmit = True  'This would let Outlook send th note without storing it in your sent bin
            .Send
            End With
            'MsgBox MailOutLook.Body
            Exit Sub
email_error:
            MsgBox "Erro encontrado." & vbCrLf & "Mensagem de Erro.: " & Err.Description
            Resume Error_out
Error_out:
End Sub

Gostaria de poder listar estes arquivos em uma ListBox... assim eu poderia reaproveitar este formulário para todos os relatórios e enviar mais de 1 arquivo em anexo..

É possível? como eu poderia fazer?

Obrigado.

Amigo, acabei de adicionar esse exemplo, não é com list box, mas tem coisa interessante nele.
abs


http://maximoaccess.forumeiros.com/repositorio-de-exemplos-ms-access-f7/envio-de-email-com-ate-3-anexos-e-relatorio-no-corpo-do-email-em-html-t789.htm#4815

Muito Obrigado topbr..

Vou ter que baixar em casa para testar...
=/

Aki onde estou links de repositórios são bloqueados..

Irei testar em casa..

Obrigado por hora.

OK

TopBr...

QUal as referencias que precisam??

Aki na minha maquina deu um erro..

Obrigado.

Microsoft Outlook 12.0 Object Library, procure na net

Salve Top..

Gostei do seu exemplo...

Porém fica uma dúvida de principiante..

Como faço para adaptar esta sua idéia de anexos naquele método que eu citei ali em cima??

Obrigado.

O fera Avelino tem um exemplo:
http://www.usandoaccess.com.br/tutoriais/tuto12.asp?id=1#inicio

Obrigado novamente Top...

E lá vai mais uma pergunta... aproveitando o mesmo tópico...

Eu gostaria de gerar um Gráfico, à partir de uma consulta que tenho.
Só que pelo que vi, e pelo que consegui fazer, os gráficos são bem "ruinzinhos". Tem poucos modelos.
Existe alguma maneira de adicionar mais gráficos ao access?
Tipo os modelos do Excel?

Obrigado.

Colega, confesso que tambem não manjo muito de graficos não, mas no repositorio de exemplos tem um exemplo de grafico, de uma olhadinha la

OK...

Vou dar uma procurada lá...

Obrigado.

Top...

Estava fuçando no seu exemplo...
e pra enviar o email... vc gera um arquivo em formato HTML e depois anexa ele no corpo do email...

Tem como fazer isto sem gerar este arquivo??

Pq no meu campo de texto, eu crio o texto certinho e etc, porém quando envio o email ele fica tudo em uma linha apenas.. Tenho que acrescentar tags html para que ele fique certo..

No seu exemplo ele sai como se fosse uma tabela, porém eu gostaria de fazer isto sem gerar este arquivo..
Tem como?

Vc utiliza assim...

Código:

'Cria o html para envio no corpo do email
DoCmd.OutputTo acOutputReport, "RelEmailParaJovens", acFormatHTML, origem & "Email" & "." & "html", 0 'strCaminho, 0


e depois anexa

Código:

    strMensagemCorpoDoEmail = "Email" & "." & "html"
    .BodyFormat = olFormatHTML
    .HTMLBody = fncLerArquivo(fncLocalBD & "" & strMensagemCorpoDoEmail)
    .Subject = "A/C. " & Me.cxFiltra & " - " & strTitulo
    .display
    Me.DataEnvio.Value = Date

Como posso fazer para não gerar este arquivo?

Obrigado.

Assim?

.Subject = "A/C. Fulano" & Date
.body = "Prezado Srº " _
& vbCrLf & "" _ ' Pula linha
& vbCrLf & "Linha 1 Texto no corpo do email " _
& vbCrLf & "" _ 'Pula linha
& vbCrLf & "Linha 2 Texto no corpo do email " _
& vbCrLf & "Linha 3 Texto no corpo do email " _
& vbCrLf & "" _ 'Pula linha
& vbCrLf & "Seu nome"
.Display

ou simplismente se vc quer somente uma linha no corpo do email deixe assim:

.body = "Escreva aqui sua linha "

Mais ou menos isso Top...

Eu vi que vc tem um módulo com o nome de ("mod_HTMLNoCorpoDoEmail")..

Tem como eu utilizar ele?

Quantas linhas vc pretende usar no corpo do email?

Dificil dizer...

Seria utilizado para N fins...
E o usuário poderia colocar sua própria mensagem...

Tenho algumas cadastradas na base... ja com tags html...
Porém fica aberto ao usuário colocar sua própria mensagem.

o/

Alguém tem alguma idéia de como posso fazer isto?

Pq no meu campo de texto, eu crio o texto certinho e etc, pulando linhas e tudo mais, porém quando envio o email, o texto fica tudo em uma linha apenas..
Para que ele fique certo eu tenho que acrescentar tags html no campo para que ele fique certo no e-mail...

Existe alguma maneira de fazer isto?? Para que o texto saia igual ao que está no campo?

Obrigado.

teste desta forma;

.Body = "Ola" & vbNewLine & "isto" & "é" & vbNewLine & "um teste..."

Vai ficar assim no mail:

Olá
isto
é
um teste...

Se o seu código de envio tiver .HTMLBody em vez de .Body, a mudança de linha não se realiza.