MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Enviar email de forma automática pelo Outlook

    Compartilhe

    lebersa12
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 16/05/2014

    [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  lebersa12 em Seg 22 Set 2014, 15:23

    Caros amigos,

    Atualmente utilizo o seguinte modulo para enviar emails.

    Sub EnviaEmail()

    Dim appOutlook As Object
    Dim olMail As Object

    'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
    On Error Resume Next
    Set appOutlook = GetObject(, "Outlook.Application")
    If appOutlook Is Nothing Then
    Set appOutlook = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0

    Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

    With olMail
    'On Error Resume Next
    .To = "xxxxx.xxxx@xxx.xxx"
    .CC = "xxxxx.xxxxx@xxx.xxx"
    .Subject = "Teste"
    .Attachments.Add ("Y:xxxxxxxxx.xls")
    '.Attachments.Add = ("C:xxxxxx.xls")
    .Body = "Bom dia," + vbNewLine + "Segue em anexo relatório de Controle." + vbNewLine + vbNewLine + "Atenciosamente," + vbNewLine + "Fulano" + vbNewLine + "Área Comercial"
    .Display '.Send
    End With
    End Sub

    Essa rotina funciona perfeitamente. O que preciso é automatizar essa rotina para que nao seja necessário eu ter que clicar no botão enviar para que o email saia da caixa, preciso que toda essa rotina seja independente do usuário.

    Por gentileza, alguem pode me propor um solução?


    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  JPaulo em Seg 22 Set 2014, 16:41

    Se você substituir o .Display pelo .Send, envia sem avisar.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    lebersa12
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 16/05/2014

    Enviar email de forma automática pelo Outlook

    Mensagem  lebersa12 em Seg 22 Set 2014, 17:53

    JPaulo,

    Obrigado!

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  Roberto_1977 em Qui 02 Out 2014, 16:08

    Boa tarde,

    Após ter adaptado o código aqui postado, ele funcionou na perfeição para o que eu queria.
    Só tenho uma pequena duvida?
    É possivel inserir vários nomes para quem queremos enviar "Para:"ou "Cc:" ????
    Os nomes e respetivos emails estão numa tabela e no meu forme estou a escolher atravez de uma combo box.

    Agradeço....

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  Roberto_1977 em Qui 02 Out 2014, 17:11

    Boa tarde,

    resolvi o meu problema, não sei se é a melhor maneira mas funciona.

    Private Sub Combo205_AfterUpdate()
    If Text209.Value <> "" Then
    Text209.Value = Text209 & Combo205 & "; "
    Else
    Text209.Value = Combo205 & "; "
    End If
    Command236.Enabled = True
    End Sub

    Agradeço a quem tentou.... Cool

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  Caio em Ter 05 Abr 2016, 20:26

    Robert_1977, onde coloco a linha de comando?
    Como funciona esse código ai?
    O meu precisaria que enviasse de acordo com o status de cada registro.

    Alguma ideia?

      Data/hora atual: Qui 08 Dez 2016, 00:08