Este fórum está sendo desativado

[Leonardosampaio]

Galera, boa tarde.

Eu tenho uma planilha de plano de ação. Nela é acompanhando os prazos e ação referente.

Criei uma formação condicional para sempre que, usando como variável a data, ação ficar à 30 / 15 / e 7 dias do vencimento a cor da célula é alterada para a cor referente vermelho, laranja e verde.

Gostaria que essa planilha enviasse, automaticamente, um e-mail para informar/sinalizar o tempo restante para atendimento ao prazo.

O problema é que no serviço eu utilizo o Lotus Notes e gostaria de manter o e-mail de trabalho já que eu quero enviar esse correio para as pessoas responsáveis por cada ação e pelo plano de ação.

Não tenho muito conhecimento com VBA, na verdade meu conhecimento é quase nulo, mas pelo que andei pesquisando é possível o envio pelo outlook.

Primeiro: É possível enviar pelo Lotus Notes?
Segundo: Se não, seria possível usar uma outra plataforma de correio eletrônico para tal tarefa?
Terceiro: Essa rotina, dentro dos moldes da planilha q vou anexa, é possível?

Desde já trato pela atenção.

Obs:. Eu tentei pesquisar antes de abrir o tópico, mas com pouco conhecimento fica até difícil de pesquisar.

[eduardogrigull]

Primeiro tente mandar um e-mail com vba usando esse método:

Código: Selecionar todos

Sub EnviarEmail()
    
    Dim objMessage, objConfig, fields
    Set objMessage = New CDO.Message
    Set objConfig = New CDO.Configuration
    Set fields = objConfig.fields
    
    With fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.servidoremail.com" 'Seu servidor
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Porta do servidor
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "seuemail@seuprovedor.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
        '.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Update
    End With
    
    Set objMessage.Configuration = objConfig
    
    With objMessage
        .Subject = "assunto"
        .From = "seuemail@seuprovedor.com"
        .To = "emaildestinatario@sss.com"
        .HTMLBody = "Conteudo"
    End With
    
    objMessage.Send

End Sub

Coloque em um módulo, arrume as portas, endereços, servidor, emails, etc de acordo com o seu e-mail. Se voce não sabe, basta olhar nas configurações do seu e-mail.

Adicione a referência no VBA de: “Microsoft CDO for Windows 2000 Library”

Verifique se o seu e-mail permite "encaminhamentos POP", pois se isso estiver desativado, irá bloquear o código...
Se isso funcionar, ai podemos partir pro código de um e-mail automático. Se nao entender algo, só avisar