[Resolvido] Enviar Email com Ficheiro

Eu tenho aqui um código para enviar Emails, mas não consigo fazer com que o caminho com o Ficheiro seja enviado junto com o email


Ou seja o ficheiro pagamentos que está no caminho "C:\teste\pdf\pagamentos.pdf" não é enviado junto no email, apenas a mensagem "Pagamentos dos Funcionarios do Laboratório"

Código:


Private Sub Comando0_Click()
Dim cod As String
Dim ser As String
Dim DAT As String

Dim OutApp As Object
Dim OutMail As Object

cod = TXCODPC
ser = TXNSERIE
DAT = DTORC

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = "diogoisaias21@gmail.com"
'.CC = ""
'.BCC = ""
.Subject = "Horas Laboratório"
.Body = "C:\teste\pdf\pagamentos.pdf"
.HTMLBody = "Pagamentos dos Funcionarios do Laboratório"
.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Existe alguma solução?

Obrigado

Veja se funciona e de um retorno. Substitui o .Body = "C:\teste\pdf\pagamentos.pdf" por .Attachments.Add "C:\teste\pdf\pagamentos.pdf"

Código:


Private Sub Comando0_Click()
Dim cod As String
Dim ser As String
Dim DAT As String

Dim OutApp As Object
Dim OutMail As Object

cod = TXCODPC
ser = TXNSERIE
DAT = DTORC

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = "diogoisaias21@gmail.com"
'.CC = ""
'.BCC = ""
.Subject = "Horas Laboratório"
.Attachments.Add  "C:\teste\pdf\pagamentos.pdf"
.HTMLBody = "Pagamentos dos Funcionarios do Laboratório"
.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Funcionou muito obrigado

Estando resolvido, não esqueça de finalizar o tópico. Essa ação é importante para que os demais membros saibam que a dúvida colocada foi solucionada.

Aguardamos sua ação.

Resolvido
Eu não encontro a opção de meter como resolvido

Veja

https://www.maximoaccess.com/t860-resolucao-de-topicos

Acho que já está