Boa Tarde
Com base a um tópico que encontrei neste fórum, tenho um sistema onde eu faço abertura de Ordem de serviço e imprimo, agora referente a este tópico estou tentando enviar um e-mail aos clientes com a ordem de serviços aberta no nome dele com o código que tirei do tópico em questão criado pelo mestre JPaulo, mas não estou conseguindo puxar o arquivo que se encontra na pasta enviados onde eu nomeei de seguinte forma numerododoc+OrdemServiços(486OrdemServiços).
Segue o código
Se alguém tiver uma ideia, e poder me ajudar
eu Agradeço
Com base a um tópico que encontrei neste fórum, tenho um sistema onde eu faço abertura de Ordem de serviço e imprimo, agora referente a este tópico estou tentando enviar um e-mail aos clientes com a ordem de serviços aberta no nome dele com o código que tirei do tópico em questão criado pelo mestre JPaulo, mas não estou conseguindo puxar o arquivo que se encontra na pasta enviados onde eu nomeei de seguinte forma numerododoc+OrdemServiços(486OrdemServiços).
Segue o código
- Código:
Option Compare Database
Option Explicit
Function EnvioAutomaticoDeEmail()
'By JPaulo ® Maximo Access
Dim strAplicacao As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strFicheiro As String
Set strAplicacao = New Outlook.Application
Set objMail = strAplicacao.CreateItem(olMailItem)
strFicheiro = "D:\Sistema_Consulta_Produtos_Dips\Enviados\"
With objMail
.Subject = "Ordem de Serviços"
.Body = "Segue em Anexo Ordem de Serviços"
.To = "Me.EMAIL"
.Attachments.Add (strFicheiro)
On Error Resume Next
.Display
If Err.Number = 287 Then
End
End If
End With
End Function
Se alguém tiver uma ideia, e poder me ajudar
eu Agradeço