MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido] Enviar Email com Ficheiro

    avatar
    diogoisaias21
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 172
    Registrado : 01/09/2017

    [Resolvido] Enviar Email com Ficheiro Empty [Resolvido] Enviar Email com Ficheiro

    Mensagem  diogoisaias21 26/7/2021, 16:34

    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


    Última edição por diogoisaias21 em 26/7/2021, 23:48, editado 2 vez(es)

    diogoisaias21 gosta desta mensagem

    avatar
    Nill2013Br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 14/05/2013

    [Resolvido] Enviar Email com Ficheiro Empty Re: [Resolvido] Enviar Email com Ficheiro

    Mensagem  Nill2013Br 26/7/2021, 19:44

    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
    avatar
    diogoisaias21
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 172
    Registrado : 01/09/2017

    [Resolvido] Enviar Email com Ficheiro Empty Re: [Resolvido] Enviar Email com Ficheiro

    Mensagem  diogoisaias21 26/7/2021, 20:24

    Funcionou muito obrigado

    Nill2013Br gosta desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    [Resolvido] Enviar Email com Ficheiro Empty Re: [Resolvido] Enviar Email com Ficheiro

    Mensagem  DamascenoJr. 26/7/2021, 22:05

    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.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    diogoisaias21
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 172
    Registrado : 01/09/2017

    [Resolvido] Enviar Email com Ficheiro Empty Re: [Resolvido] Enviar Email com Ficheiro

    Mensagem  diogoisaias21 26/7/2021, 23:45

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    [Resolvido] Enviar Email com Ficheiro Empty Re: [Resolvido] Enviar Email com Ficheiro

    Mensagem  DamascenoJr. 26/7/2021, 23:48



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    diogoisaias21
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 172
    Registrado : 01/09/2017

    [Resolvido] Enviar Email com Ficheiro Empty Re: [Resolvido] Enviar Email com Ficheiro

    Mensagem  diogoisaias21 26/7/2021, 23:50

    Acho que já está 😀
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    [Resolvido] Enviar Email com Ficheiro Empty Re: [Resolvido] Enviar Email com Ficheiro

    Mensagem  DamascenoJr. 27/7/2021, 00:53

    lol!


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 25/9/2022, 16:45