MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Alerta de Aniversariantes enviar email automatico

    avatar
    bacano
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 44
    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
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 44
    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 : 6528
    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 : 22
    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
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 44
    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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/2/2020, 10:28