Enviar e-mail via Access com anexo. URGENTE!!!

Question

Olá galera, por favor, eu estou usando o camando abaixo para poder enviar e-mail automaticamente com anexo, porém ele só funciona com o nome do arquivo completo, ou seja, "C:\TESTE\teste.xml", e quando tento colocar "C:\TESTE\*.xml" ele não funciona, eu gostaria de saber porque e como devo fazer para usar o *.xml uma vez que eu não sei o nome do arquivo mas sei a extensão do mesmo.

Segue código:

Private Sub Comando98_Click()

Dim OutApp As Object

Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")

OutApp.Session.Logon

Set OutMail = OutApp.CreateItem(0)

With OutMail

    .To = "*** O endereço de email foi removido para fins de privacidade ***"

    .Subject = "Arquivo XML NFe"

    .Body = "Este é um e-mail de envio automático, onde segue anexo o arquivo XML, favor não responder"

    .Attachments.Add "c:\teste\TESTE.xml"

    .Display

End With

Set OutMail = Nothing

Set OutApp = Nothing

End Sub

Answer 1

Olá,

o caractere curinga não funciona neste contexto.

Mas você pode, com poucas linhas, adaptar seu código para ter esta funcionalidade. Basta usar a função Dir(), que entende o curinga, e fazer um loop pelo resultado. Aqui tem um exemplo para você entender a sintaxe: http://www.hobbub.com/vba-vb-vsto/iterating-over-a-directory-with-a-dir-loop-loop-through-directory-vb/

---

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br