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"
Existe alguma solução?
Obrigado
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
Última edição por diogoisaias21 em 26/7/2021, 23:48, editado 2 vez(es)