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 de produtos em promoção para todos clientes através do gmail

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 869
    Registrado : 12/04/2016

    [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail Empty [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail

    Mensagem  marcelo marques 29/4/2018, 19:54

    boa noite pessoal eu mais uma vez preciso da ajuda de vocês gostaria de um código (formulário) no qual transformasse um relatório de produtos em pdf e enviasse para todos clientes  através do gmail. ..


    abraço
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail Empty Re: [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail

    Mensagem  FabioPaes 30/4/2018, 10:31

    Existem Vários Exemplos desse tipo aqui no Forum amigo! Vários mesmo e de diversas formas!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 869
    Registrado : 12/04/2016

    [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail Empty Re: [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail

    Mensagem  marcelo marques 3/5/2018, 14:02

    boa tarde FabioPaes desculpa a demora para responder eu ate havia pegado um modelo aqui no fórum porém aqui ele esta dando erro
    Anexos
    [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail AttachmentEmail.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (160 Kb) Baixado 27 vez(es)
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 869
    Registrado : 12/04/2016

    [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail Empty Re: [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail

    Mensagem  marcelo marques 3/5/2018, 15:13

    veja o erro abaixo
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1124
    Registrado : 18/07/2012

    [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail Empty Enviar email de produtos em promoção para todos clientes através do gmail

    Mensagem  toyebom 3/5/2018, 17:47

    Eu também utilizo essa bd para mandar mails, o erro não aparece se cada vez que abrires carregares no icon do envelope e a seguir no painel que abrir carregares em guardar.
    Tens de fazer sempre isso quando abres o painel de email senão dá esse erro.
    O problema é que tens de exportar os dados do teu email para o painel principal que sempre que abres tem o remetente vazio e ao carregares no envelope e guardares ele vai-te exportar o teu endereço de email e palavras passe para o painel principal para funcionar.
    Pode ser feito de outra forma com subformulários ocultos mas não fiz porque é raro utilizar.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 869
    Registrado : 12/04/2016

    [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail Empty Re: [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail

    Mensagem  marcelo marques 4/5/2018, 11:25

    bom dia toyebom ainda está dando mesmo erro
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1124
    Registrado : 18/07/2012

    [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail Empty Enviar email de produtos em promoção para todos clientes através do gmail

    Mensagem  toyebom 4/5/2018, 18:05



    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 869
    Registrado : 12/04/2016

    [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail Empty Re: [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail

    Mensagem  marcelo marques 7/5/2018, 19:18

    boa noite toyebom me desculpa pela demora em responder mais ainda continua o mesmo erro da imagem da mensagem número 04 deve se problema na configuração do computador
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 869
    Registrado : 12/04/2016

    [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail Empty Re: [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail

    Mensagem  marcelo marques 9/5/2018, 08:29

    bom dia toyebom  veja o codigo abaixa  o erro esta na linha .Send  no final coloquei a mensagem de erro que esta aparecendo
    abraço

    Function EnviarEmail()
     '  On Error GoTo erromail

    Dim Mens As Object
    Dim Config As Object
    Set Mens = CreateObject("CDO.Message")
    Set Config = CreateObject("CDO.Configuration")

    With Config

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = [email] 'endereço do e-mail de quem envia
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = [senhaEmail]
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    .Fields.Update

    End With

    With Mens

    If Not IsNull(Me.cxaCc) Then
    .CC = Me.cxaCc
    End If

    If Not IsNull(Me.cxaCco) Then
    .BCC = Me.cxaCco
    End If

    Set .Configuration = Config
    .From = cxaDe 'nome de quem envia
    .Sender = [email] 'email de quem envia.
    .Subject = cxaAssunto 'caixa texto assunto
    .TextBody = cxaMensagem & vbCrLf & vbCrLf & "________________________________" & vbCrLf & "Nome do Remetente" & vbCrLf & "Tel: (00) 0000-0000" & vbCrLf & "E-mail: endereco.de.email@gmail.com" & vbCrLf
    .To = cxaPara 'caixa texto para quem vai o email"
    '.Send 'envia

    Dim L As Long
    If Me.cxaListaAnexos.ListCount > 0 Then
    For L = 0 To Me.cxaListaAnexos.ListCount - 1
    .AddAttachment Me!cxaListaAnexos.Column(0, L)
    Next L

    Else
    End If
    .Send  ' O erro esta nesta linha
    End With

    DoCmd.Close acForm, "mensagemEmail"
    MsgBox " Email enviado!", vbInformation, " Sispac"

    Set Mens = Nothing
    Set Config = Nothing
    Exit Function

    'erromail:
    'MsgBox err.Number & " " & err.Description

    '  MsgBox " Erro de execução", vbCritical, " Erro"
    '  MsgBox " Erro de execução:  101", vbCritical, " Erro"
    '  DoCmd.Close acForm, "envioEmail"

    Set Mens = Nothing
    Set Config = Nothing
    Exit Function

    End Function





    obs: mensagem de erro ( não foi possivel enviar a mensagem para o servidor SMTP o codigo de erro de transporte foi 0x80040217 . A resposta do servidor foi not avaiilable )
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 869
    Registrado : 12/04/2016

    [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail Empty Re: [Resolvido]Enviar email de produtos em promoção para todos clientes através do gmail

    Mensagem  marcelo marques 9/5/2018, 09:09

    bom dia Fabio e toyebom deu certo o erro que estava dando era na configuração do Gmail

    muito obrigado a vocês

      Data/hora atual: 26/1/2022, 20:15