Boa tarde, ARTOTTO

Tudo bem amigo?

Então estava fora até agora pouco, e verifiquei que me enviou um e-mail sobre este Tópico (obrigado pelas palavras,
estamos todos aqui para ajudar ) .

Mas quando fui baixar o arquivo exemplo que se encontra no seu link, não consigo acessar para baixar o arquivo, pede
permissão para isso ...

Por gentileza, para eu te ajudar (ou outros deste Fórum), hospede seu arquivo exemplo em sites gratuitos ou que não
necessitem de senhas ou permissões, como SendSpace, DropBox, One drive etc ...

Aguardando a sua resposta e o link para baixar o arquivo exemplo .

Aguardando sua resposta e seu Feed Back ... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB

Cara, Boa Tarde.

Desculpa o inconveniente rsrsrs, eu consegui criar a macro, em cima da última que me ajudou;

Porém, tenho dois problemas:

Primeiro é que quando fecho o excel que criei a macro eu perco ela, mesmo salvando;
Segundo é que na LINHA K têm nomes/e-mails repetidos, gostaria que a macro não enviasse se fosse repetido, segue a macro:

Sub Enviaremail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim texto As String
    Dim DataHoje As Date
    Dim textomail As String

Set Rng = Range("B4")

  DataHoje = Date

  Do While Rng.Value <> ""
    Rng.Select

  If Str(Rng.Value) = DataHoje And Rng.Offset(0, 0).Interior.ColorIndex <> 4 Then
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
     
        With OutMail
         .Display
        End With

            texto = "Prezado(a) " & Rng.Offset(0, -1).Value & "," & vbCrLf & vbCrLf & _
            "A partir do dia 27/11/2019 iniciaremos a 2º etapa de abertura de contas e migração para o Banco Santander;" & vbCrLf & vbCrLf & _
            "Devido ao grande número de Gerências/Diretorias, foi criada uma macro para o envio deste e-mail, assim, não conseguimos anexar um arquivo para cada Gestor, portanto, pedimos a gentileza de ao abrir a planilha regionalizada anexa, onde constam todas as informações essenciais, para que o colaborador possa se deslocar até a agencia que abrirá a conta, filtrar na Coluna K somente a sua gestão, assim terá a relação dos colaboradores, com as informações do Banco: Nome da agencia, Endereço Completo, Contato e Nome da Gerência." & vbCrLf & vbCrLf & _
            "Os colaboradores já podem se dirigir até a agência descrita na planilha. Ressalto que os colaboradores não terão tarifas a serem pagas ao Santander, o pacote essencial não tem Taxas." & vbCrLf & vbCrLf & _
            "Se o colaborador optar por uma conta com mais atrativos, poderá falar com o Gerente no ato da abertura de conta." & vbCrLf & vbCrLf & _
            "Duvidas estaremos à disposição, nos e-mails em CC e/ou números abaixo:" & vbCrLf & vbCrLf & _
            "arthur.oliveira@verzani.com.br / 44282663" & vbCrLf & _
            "thaina.wosniak@verzani.com.br / 44283083" & vbCrLf & _
            "gian.santos@verzani.com.br / 44282962" & vbCrLf & _
            "rosinei.moreira@verzani.com.br / 44283016" & vbCrLf & vbCrLf & _
            "Atenciosamente" & vbCrLf & _
            "Arthur Oliveira - Analista de Dep. pessoal"
                        
        textomail = Rng.Offset(0, -1).Value
         ' Rng.Offset(0, 0).Select  'seleciona a célula que contém a data atual
        '  Selection.Interior.ColorIndex = 4   'colori a célula selecionada
                   

With OutMail
            .To = textomail
            .CC = "gian.santos@verzani.com.br;thaina.wosniak@verzani.com.br;rosinei.moreira@verzani.com.br"
            .BCC = ""
            .Subject = "SANTANDER - 2º AÇÃO ABERTURA CONTA  MASSIFICADA / OPERAÇÃO"
            '.HTMLBody = texto
            .Body = texto
            .Attachments.Add ("L:Departamento PessoalFolhaCONFERE FOLHA 2019REGIONALIZAÇÃOGERENTES  - E-MAIL.xlsx")
            .Attachments.Add ("L:Departamento PessoalFolhaCONFERE FOLHA 2019REGIONALIZAÇÃOCarta Oferta VG - VERZANI & SANDRINI.pdf")
            
End With
       
        Set OutMail = Nothing
        Set OutApp = Nothing

  End If
 
   Set Rng = Rng.Offset(1, 0)

  Loop

        On Error GoTo 0

        Set Rng = Nothing
End Sub

Boa tarde, ARTOTTO

Não precisa se desculpar, é só colocar em outro site de compartilhamento (exemplo SendScape, como tu fez
no outro Tópico ); mas como tu não colocou um arquivo exemplo para este Tópico, ficará no "chutometro"
e pode ocorrer equívocos e lentidão na resolução da sua dúvida...

Bem vamos as questões, primeiro já verificou se os códigos da mensagem mencionada acima está
em um módulo ou na Planilha (x) Objeto(Worksheet) no Procedimento(Change), como se segue abaixo :

Private Sub Worksheet_Change(ByVal Target As Range)

Se estiver em módulo, tu podes chamá-lo dentro da Planilha (x), como segue abaixo:

Private Sub Worksheet_Change(ByVal Target As Range)
  Call Enviaremail
End Sub

Assim quando entrar na Planilha (x) que contém os dados será enviado o email automaticamente dentro da
data de hoje.

Em relação a segunda questão, nomes e e-mails repetidos; não entendi a sua questão, se tu envia e-mails
somente na data atual, não será enviado e-mail igual dentro desta data pelo fato que tem um critério
que coloquei, como se segue :

And Rng.Offset(0, 0).Interior.ColorIndex <> 4

Pode me explicar melhor esta sua dúvida com mais detalhes, se tu colocar um arquivo exemplo será
melhor para compreender o que quer (não esquecendo de explicar com mais detalhes e se incluir imagens
melhor )

Aguardando sua resposta e o link para baixar o arquivo exemplo ... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB

Laerte,

Então foi mal, segue o link:

https://www.sendspace.com/file/yc5hg6

Esse é o arquivo que criei para enviar o e-mail (Criar a macro), na verdade neste não vão ter vários dias é somente hoje que irei enviar, mas como têm mais de um colaborador sobre a mesma gerência, exemplo: se um gerente tem 100 linhas no arquivo, a macro está abrindo 100 e-mails para ele, sendo que eu precisava enviar apenas 1;

Agora a questão de estar perdendo a macro toda vez que fecho não consegui entender

Obrigado.

Boa tarde, ARTOTTO

Só para esclarecer, acho que tu está salvando em xlsx e não em xlsm que é para macro, pois o
arquivo que baixei está no formato .xlsx, por isso que está sumindo sua macro ...

Verifique se está salvando com o formato correto! ..

Em relação a outra questão estou verificando, aguarde um pouco que estou na correria aqui, mas
te envio logo resposta

Aguardando sua resposta ... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB

Boa noite, ARTOTTO

No Link abaixo se encontra o arquivo exemplo "GERENTES - E-MAIL - Solucao 1.2 LB.Zip" com a solução :

https://www.sendspace.com/file/7ovsnt

Agora uns adendos, criei um botão "Enviar Email" que quando clicado fará o que queria (enviar somente
uma única vez o e-mail para cada Gerente da Coluna "K"); na célula "P3" está com um "x" e quando for
executado o código essa célula ficará com o nome do Gerente para que não envie novamente mais de
1 e-mail.

Aqui como foi salvo no formato ".xlsm" não está "sumindo" os códigos e funcionando tudo OK, é claro
que não executei o Outlook, pois não tenho ele aqui instalado, executei com msgbox

Verifique se era assim que queria...

Qualquer dúvida ou algum problema me informe

Aguardando sua resposta e seu Feed Back ... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB ;D

Laerte,

Cara deu super certo, você é fera mesmo;

Tenho só uma dívida, como são muitas linhas meu Outlook travou, ao abrir todos os e-mails, como está tudo certinho, têm como colocar para Abrir e Enviar sozinho? abre e envia?

Assim não trava meu pc;

Obrigado mais uma vez;

Bom dia, ARTOTTO

Obrigado; não me considero um "Fera" (aqui no Fórum existem muitos "Feras") tento fazer o melhor
para ajudar .

Para enviar os e-mails automaticamente, sem precisar fazer isso manualmente é só tu colocar ".Send" ,
segue abaixo o trecho do código já alterado, é só você substituir o outro por esse :

With OutMail
            .To = textomail
            .CC = "gian.santos@verzani.com.br;thaina.wosniak@verzani.com.br;rosinei.moreira@verzani.com.br"
            .BCC = ""
            .Subject = "SANTANDER - 2º AÇÃO ABERTURA CONTA  MASSIFICADA / OPERAÇÃO"
            '.HTMLBody = texto
            .Body = texto
            .Attachments.Add ("L:Departamento PessoalFolhaCONFERE FOLHA 2019REGIONALIZAÇÃOGERENTES  - E-MAIL.xlsx")
            .Attachments.Add ("L:Departamento PessoalFolhaCONFERE FOLHA 2019REGIONALIZAÇÃOCarta Oferta VG - VERZANI & SANDRINI.pdf")
            .Send 

End With

Verifique se funciona direito, qualquer coisa é só me informar

Aguardando sua resposta e seu Feed Back ... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB ;D

Perfeito Man.

Obrigado mais uma vez;

Bom dia, ARTOTTO

Legal que está funcionando como queria, fico feliz

Obrigado

Abraços, até mais

LaerteB