MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Enviar Relatório Por e-mail

    avatar
    missiva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4
    Registrado : 11/06/2011

    [Resolvido]Enviar Relatório Por e-mail Empty [Resolvido]Enviar Relatório Por e-mail

    Mensagem  missiva em 11/6/2011, 18:06

    Gostaria de Saber como enviar um relatório por e-mail onde cada registo tem um endereço de mail que está no access.

    Isto é imagem um relatório de 100 paginas que pertencem a 50 destinatários, esses destiantários todos têm mail registado e pretendo enviar os registos de acordo com o e-mail, ou seja se um destinatário tem apenas um registo então só vai receber esse registo e não os 100 registo.

    Não sei se percebm a minha dúvida?
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Enviar Relatório Por e-mail Empty Re: [Resolvido]Enviar Relatório Por e-mail

    Mensagem  vieirasoft em 11/6/2011, 18:34

    Se estiver associado a um registo no form, para abrir esses registo no Relatório, pode utilizar uma macro para enviar o relatório por email. Tem isso a funcionar dessa maneira?
    avatar
    missiva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4
    Registrado : 11/06/2011

    [Resolvido]Enviar Relatório Por e-mail Empty Re: [Resolvido]Enviar Relatório Por e-mail

    Mensagem  missiva em 11/6/2011, 21:13

    em cada registo está o e-mail do destinatário
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Enviar Relatório Por e-mail Empty Re: [Resolvido]Enviar Relatório Por e-mail

    Mensagem  vieirasoft em 11/6/2011, 22:40

    Então se o relatório apresenta o registo do formulário, pode ir a Macro: Vá a Macro, Novo, seleccionar objecto e preencha.
    avatar
    missiva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4
    Registrado : 11/06/2011

    [Resolvido]Enviar Relatório Por e-mail Empty Re: [Resolvido]Enviar Relatório Por e-mail

    Mensagem  missiva em 11/6/2011, 22:44

    Ok Vieira,
    Mas como faço para colocar o e-mail dos diferentes destinatários:
    Registo1 : mail:1@mail.pt
    Registo2: mail:2@mail.pt
    etc.
    Obrigado
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Enviar Relatório Por e-mail Empty Re: [Resolvido]Enviar Relatório Por e-mail

    Mensagem  vieirasoft em 11/6/2011, 22:49

    Ah, isso é outra coisa diferente. Tem aqui no fórum, pode procurar. Ainda recentemente o Criquio colocou isso, salvo erro. O TopBr, outro colega também tem mais que um exemplo no Fórum. Email com anexo. Localize no repositório de exemplos.
    avatar
    missiva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4
    Registrado : 11/06/2011

    [Resolvido]Enviar Relatório Por e-mail Empty Re: [Resolvido]Enviar Relatório Por e-mail

    Mensagem  missiva em 11/6/2011, 23:03

    Vieira,

    Ja testei esse exemplo, nao é isso que pretendo.
    O que eu pretendo é uma macro ou codigo que permita quando eu escolher a opção enviar relatório selecione os registos que terão que ser enviados e vai pegar no e-amil e enviar o respectivo resgisto em formato, por exemplo snp, e envia para cada um dos e-mail dos registos seleccionados.
    Se os registos a enviar forem 20 e estejam 20 e-mail diferentes, ex. 20 clientes diferentes, então vai criar automaticamente 20 e-mails com o respectivo anexo.
    Não sei se me faço entender!
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Enviar Relatório Por e-mail Empty Re: [Resolvido]Enviar Relatório Por e-mail

    Mensagem  vieirasoft em 11/6/2011, 23:37

    Amigo:

    Procure no repositório, tem outros exemplos lá.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Enviar Relatório Por e-mail Empty Re: [Resolvido]Enviar Relatório Por e-mail

    Mensagem  HARYSOHN em 12/6/2011, 03:48

    No exemplo que postei dias desses para um colega... e no repositorio creio que o pablo postou um código...

    Onde voce digita o endereço do Detinatário: FulanoDeTal@hotmail.com; SicranoDeTal@hotmail.com....

    Acima no código.. Crie variaveis....

    Dim E-mail_1, Email_2, E-Mail_3........As String
    Iguale essa variável a seu campo na tabela através do Dlookup....
    Dim E-mail_1 = Dlookup... e tal...

    Depois na linha do Detinatário... chame a variável.....

    Creio que é por ai...

    Saudações
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Enviar Relatório Por e-mail Empty Re: [Resolvido]Enviar Relatório Por e-mail

    Mensagem  HARYSOHN em 12/6/2011, 04:12

    Private Sub Form_Open(Cancel As Integer)
    ' variável que representa o mês corrente
    'Aqui se coloca o dia que quer que seja enviado, faz a checagem na pasta relatórios no Dir do BD, se ja tiver os PDF criados não os envia, se não os cria e envia. Isso e feito uma vez por mes para o meu caso
    'se o dia do mês for maior ou igual a 25 e o arquivo mês-ano.pdf ainda não existir, então...
    'If Day(Date) >= 12 And Len(Dir(CurrentProject.Path & "\Relatórios" & Format(Now, "mm-yyyy") & ".pdf")) = 0 Then
    If Day(Date) >= 25 And Len(Dir(CurrentProject.Path & "\Relatórios\Inspecao_" & Format(Now, "mm-yyyy") & ".pdf")) = 0 Then

    DoCmd.SetWarnings False
    ' cria o pdf na subpasta Relatórios com nome "mês-ano.pdf"
    'DoCmd.OutputTo acOutputReport, "Nome do Relatorio", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatórios" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreenDoCmd.SetWarnings True
    ' cria as variáveis dos objetos cdo eenvia o email
    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") = "E-Mail de quem envia@Gmail.com"
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Senha"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    .Fields.Update
    End With
    Set Mens = New CDO.Message
    With Mens
    Set .Configuration = Config
    .From = "Mensagem"
    .Sender = "E-mail de quem envia"

    .Subject = "Relatórios Administrativos da Unidade Prisional de Mineiros"
    .HTMLBody = "Segue em anexo (PDF) os relatórios de inspeção e quantitativos do CIS Mineiros-GO"
    .To = "Destinatário_emai"
    ' a linha abaixo pega o pdf criado e anexa à mensagem
    '.AddAttachment CurrentProject.Path & "\Relatórios" & Format(Now, "mm-yyyy") & ".pdf"
    .AddAttachment CurrentProject.Path & "\Relatórios\Inspecao_" & Format(Now, "mm-yyyy") & ".pdf"
    .AddAttachment CurrentProject.Path & "\Relatórios\Quantitativo_Fechado_" & Format(Now, "mm-yyyy") & ".pdf"
    .AddAttachment CurrentProject.Path & "\Relatórios\Quantitativo_Albergue_" & Format(Now, "mm-yyyy") & ".pdf"

    .Send
    End With
    MsgBox "E-mail's enviados com sucesso." & vbCrLf & _
    "Foram criados na pasta Relatórios, os arquivos em PDF do corrente mês", vbOKOnly + vbInformation, "Relatórios enviados"
    Set Mens = Nothing
    Set Config = Nothing
    Exit Sub
    Else
    Exit Sub
    End If
    End Sub
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1467
    Registrado : 23/01/2018

    [Resolvido]Enviar Relatório Por e-mail Empty Re: [Resolvido]Enviar Relatório Por e-mail

    Mensagem  crysostomo em 28/2/2020, 03:55

    não consigo fazer


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 4/12/2020, 07:18