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]Alerta de Aniversariantes enviar email automatico

    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 59
    Registrado : 08/12/2010

    [Resolvido]Alerta de Aniversariantes enviar email automatico Empty [Resolvido]Alerta de Aniversariantes enviar email automatico

    Mensagem  bacano em 24/1/2020, 22:48

    Boa noite JPaulo

    Estive a ver este teu programa https://www.maximoaccess.com/t795-alerta-de-aniversariantes-envia-email-automatico

    esta uma maravilha

    com esse exemplo implementei numa base de dados de uma associação e de semana funciona muito bem, mas ao fim de semana não a ninguém para rodar o programa.

    Queria emitir a sexta feira o mail para os sócios que fazem anos ao sábado e domingo ??

    No Outlook tem uma opção de atraso de entrega para o dia e hora que pretende-mos mas não consigo enviar via Access.

    Alguém que possa ajudar?

    Muito Obrigado
    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 59
    Registrado : 08/12/2010

    [Resolvido]Alerta de Aniversariantes enviar email automatico Empty Alerta de Aniversariantes enviar email automatico

    Mensagem  bacano em 25/1/2020, 22:31

    Boas pessoal

    problema resolvido

    ficou uma maravilha, aqui esta o resultado

    objMail.DeferredDeliveryTime = Date + 1 & " 08:00 AM"
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6777
    Registrado : 15/03/2013

    [Resolvido]Alerta de Aniversariantes enviar email automatico Empty Re: [Resolvido]Alerta de Aniversariantes enviar email automatico

    Mensagem  ahteixeira em 25/1/2020, 22:35

    Olá Ventura,

    Obrigado pelo retorno, o fórum agradece.

    Abraço
    avatar
    Vardost
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 18/05/2015

    [Resolvido]Alerta de Aniversariantes enviar email automatico Empty Re: [Resolvido]Alerta de Aniversariantes enviar email automatico

    Mensagem  Vardost em 4/2/2020, 13:26

    Bom dia bacano,

    Como sou um pouco leigo na programação nos Módulos, gostaria de fazer uma pergunta que para vocês programadores é até óbvia demais.
    Gostaria de saber onde implemento essa linha que você descreveu:

    objMail.DeferredDeliveryTime = Date + 1 & " 08:00 AM"

    Espero não ter sido inconveniente com os amigos.

    Att,

    Valdenir
    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 59
    Registrado : 08/12/2010

    [Resolvido]Alerta de Aniversariantes enviar email automatico Empty Alerta de Aniversariantes enviar email automatico

    Mensagem  bacano em 5/2/2020, 18:54

    Ola Valdenir, boa tarde
    No formulário crias um botao neste caso  EnviarEmail
    e no [Procedimento de Evento] ao Fazer clique inseres este codigo no Módulo

    ele abre o Outlook e so manda o mail um dia depois

    '--------------------------------------------------------------------
    Private Sub EnviarEmail_Click()
    Dim rst As DAO.Recordset
    Dim strSql As String
    Dim strDestinatarios As String
    Dim objOut As Outlook.Application
    Dim objMail As Outlook.MailItem

    strDestinatarios = ""
    Set objOut = New Outlook.Application
    Set objMail = objOut.CreateItem(olMailItem)
    Me.Recalc
    '-----------------------------------------------------------------------
    'Passando os valores do formulário exemplo para os itens de email
    '-----------------------------------------------------------------------

       strSql = "SELECT * FROM FichaSocio WHERE (((Format([DataNascimento],""mmdd""))=Format(Date(),""mmdd"")) AND ((Situacao)<>""Falecido"")) "
       Set rst = CurrentDb.OpenRecordset(strSql)
       Do Until rst.EOF
              strDestinatarios = strDestinatarios & rst("NumeroMatricula") & "; "
              strDestinatarios = strDestinatarios & rst("EmailOutro") & "; "
              rst.MoveNext
       Loop

    strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 2)
    If Len("" & strDestinatarios) < 5 Or strDestinatarios = "" Then
       '    MsgBox "Primeiro informe a quem quer mandar o E-Mail", vbOKOnly + vbCritical, "Obrigado"
           Exit Sub
    End If
    'objMail.To = strDestinatarios
    objMail.BCC = strDestinatarios
    objMail.Subject = "Feliz Aniversário"
    objMail.HTMLBody = "Caro Amigo" & vbCrLf & vbCrLf & "A Direção do " & DLookup("[NomeFirma]", "DadosPrograma") & " e os seus colaboradores, desejam-lhe um feliz dia." & "

    " & fncLerArquivo(fncLocalBd & "\assinaturas\avel.htm")
    objMail.SentOnBehalfOfName = DLookup("[EmailFirma]", "DadosPrograma")

    ' COLOCAS AQUI, ASSIM ELE SO MANDA O MAIL UM DIA DEPOIS AS 08 Horas

    objMail.DeferredDeliveryTime = Date + 1 & " 08:00 AM"

    objMail.Display
    'objMail.Send
    If Weekday(Date) = 1 Then
      Call EnviarEmailSabado
    End If
    End Sub

      Data/hora atual: 13/7/2020, 04:52