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


2 participantes

    [Resolvido]E-mail automático

    avatar
    pjjpm
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 80
    Registrado : 17/09/2014

    [Resolvido]E-mail automático Empty [Resolvido]E-mail automático

    Mensagem  pjjpm 5/12/2014, 16:42

    Olá amigos,
    Necessito da vossa ajuda com o seguinte:
    Criei num formulário um botão para enviar e-mail a partir do Outlook, mas tenho 2 situações:
    1º Gostaria que o e-mail fosse enviado a partir da conta com o endereço correspondente ao campo [EmailPh]
    2º Gostaria também de enviar em anexo o Relatório MENSAGEM.

    O que devo acrescentar ao código que escrevi?

    Sub SendEmail()

    Dim oOutlook As Outlook.Application
    Dim oEmailItem As MailItem

    ' prevent 429 error, if outlook not open
    On Error Resume Next
    Err.Clear
    Set oOutlook = GetObject(, "Outlook.application")
    If Err.Number <> 0 Then
    Set oOutlook = New Outlook.Application
    End If

    Set oEmailItem = oOutlook.CreateItem(olMailItem)

    With oEmailItem
    .To = [Email]
    .Subject = "Manipulado pronto"

    .Body = "Exmo(a) Sr.(ª)  " & [Doente] _
    & vbCrLf & "" _
    & vbCrLf & "Temos o prazer de informar que o seu manipulado já está pronto." _
    & vbCrLf & "" _
    & vbCrLf & "Os melhores cumprimentos." _
    & vbCrLf & "" _
    & vbCrLf & [DirTec]

    .Attachments = "Mensagem"

    .Display
    End With


    Set oEmailItem = Nothing
    Set oOutlook = Nothing
    End Sub

    Obrigado Smile
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 02/10/2011

    [Resolvido]E-mail automático Empty Re: [Resolvido]E-mail automático

    Mensagem  rubenscouto 9/12/2014, 01:43

    Dê uma olhada no link do mestre Avelino,
    http://www.usandoaccess.com.br/tutoriais/gerar-relatorios-em-pdf-e-enviar-por-email.asp?id=1#inicio
    ai tem um tutorial para enviar pelo cadastro do usuário do outlook, basta apenas fazer as alterações necessárias.
    avatar
    pjjpm
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 80
    Registrado : 17/09/2014

    [Resolvido]E-mail automático Empty Re: [Resolvido]E-mail automático

    Mensagem  pjjpm 9/12/2014, 09:45

    Obrigado!
    Vou ver sim
    avatar
    pjjpm
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 80
    Registrado : 17/09/2014

    [Resolvido]E-mail automático Empty Re: [Resolvido]E-mail automático

    Mensagem  pjjpm 9/12/2014, 11:00

    Obrigado.

    A parte de enviar o anexo está vista.

    Falta a parte de enviar o e-mail a partir da conta (endereço de e-mail) especificada no campo [EmailPh]

    Smile
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 02/10/2011

    [Resolvido]E-mail automático Empty Re: [Resolvido]E-mail automático

    Mensagem  rubenscouto 11/12/2014, 09:25

    este e-mail enviado é de uma conta do outlook ou outro provedor, gmail , Hotmail?
    avatar
    pjjpm
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 80
    Registrado : 17/09/2014

    [Resolvido]E-mail automático Empty Re: [Resolvido]E-mail automático

    Mensagem  pjjpm 11/12/2014, 12:02

    É de uma conta do Outlook.

    Da forma que tenho, cria sempre um e-mail com a conta que tenho predefenida. Claro que posso alterar no momento, mas gostaria que fosse sempre buscar a conta ao campo [EmailPh] desse form.

    Obrigado
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 02/10/2011

    [Resolvido]E-mail automático Empty Re: [Resolvido]E-mail automático

    Mensagem  rubenscouto 12/12/2014, 14:10

    os exemplos que tem no forum e onde encontrei enviam o email sendo o emissor o usuario logado no outlook quando o computador está aberto. para setar um só usuario, creio que será dificil pois como você enviará um e-mail de uma conta que não é a do usuario logado? VEja este exemplo do Jpaulo.
    http://maximoaccess.forumeiros.com/t96-resolvidopdf-email-ajuda-jpaulo
    avatar
    pjjpm
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 80
    Registrado : 17/09/2014

    [Resolvido]E-mail automático Empty [Resolvido]E-mail automático

    Mensagem  pjjpm 9/12/2015, 13:41

    Smile

    Conteúdo patrocinado


    [Resolvido]E-mail automático Empty Re: [Resolvido]E-mail automático

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 17:09