faz com procv

=PROCV(C3;Contatos!A:B;2)

só colar lá na sua celula

Boa Tarde wilmarleal é isso mesmo que preciso mas ele puxa sempre o mesmo e-mail e tenho mais de um e-mail ai cada celula pode ser diferente. não sei se me expressei direito.

Obrigado.

Melhorei um pouquinho
coloca essa

=SEERRO(PROCV(C3;Contatos!A:B;2;0);"")

ou seja, se tiver vazio ou um nome inexistente nao aparecer #N/D ou Erro

gupastrello,

pode colocar essa formula ai embaixo que resolvo, testado e aprovado, quqlquer coisa da um grito ai

Wilmar boa noite tem mais uma questão, depois que inseri a formula ok ela puxa o e-mail correspondente mas quando executo a macro para envio de e-mail ele não envia, ai fiz alguns testes se eu digitar ai envia mas se puxar pela formula não envia, já tentei formatar a celula mas mesmo assim não envia, tem como corrigir isso?

Obrigado.

Pessoal estou com problemas ao importar os emails de outra planilha, o que acontece é que quando ele importa os dados ai a macro para envio de e-mail não funciona ela só funciona quando é digitado isso tem como acertar?

Obrigado.

gupa, não tenho como testar o envio de email, mas pelo que vi em sua rotina você Definiu :

Const colEmail As Integer = 8 - como se o endereço estivesse na Coluna "8" - "H" e os mesmos estão na Col "9" - "I".

E na rotina de envio você omitiu a instrução: "TO":
.To = txtEmail.Value

Você só colocou :
.Subject - Assunto
.Body - e o corpo da mensagem

[]s

entendi, eu sou bem leigo em VBA você consegue corrigir isso pra mim?

Obrigado.

Eu fiz um procv na coluna J para puchar os e-mails da planilha contatos, funciona mas não envia o e-mail so envia se eu digitar, não consigo resolver isso.

segue em anexo.

Como eu disse, eu não tenho como testar, mas é só inserir a linha abaixo na rotina: Private Sub cmdEnviaEmail_Click()

With OutLookMail
.To = txtEmail.Value
.Subject = "Aviso"

e alterar o numero da constante : Const colEmail As Integer = 8 o numero 8 para 9

Uma dica, quando for anexar algum arquivo, procure reduzi-lo ao maximo, deixando com poucos dados, de preferencia somente com a questão da duvida, alem de ficar mais leve, fica mais analizar.

[]s

Mauro desculpe a minha ignorancia mas não consigo achar essa rotina como faço pra abrir ela?

Eu consegui achar inseri a linha e mudei de 8 para 9 mas não funcionou.

gupa, eu não utilizo Outlook ou outro programa de envio de email, por isto não tenho como testar, mas troque a rotina de envio pela a abaixo e faça o teste :

Private Sub cmdEnviaEmail_Click()
   
    Dim aplicacaoOutlook As Object
    Dim OutLookMail As Object
    Dim cell As Range

    Application.ScreenUpdating = False
    Set aplicacaoOutlook = CreateObject("Outlook.Application")

    On Error GoTo limpa
    
            Set OutLookMail = aplicacaoOutlook.CreateItem(0)
            On Error Resume Next
            With OutLookMail
                .To = txtEmail.Value
                .Subject = "Aviso"
                .Body = "Caro " & txtNome.Text _
                      & vbNewLine & vbNewLine & _
                        "Entre em contato com nosso serviço de cobrança " & _
                        "para tratar assunto de seu interesse com urgência"
                'Podemos enviar um anexo
                .Attachments.Add ("c:dadoscarta.txt")
                .Send
            End With
            On Error GoTo 0
            Set OutLookMail = Nothing
            MsgBox ("Email enviado com sucesso..." & " para " & txtEmail.Text)
limpa:

    Set aplicacaoOutlook = Nothing
    Application.ScreenUpdating = True
End Sub

[]s

Mauro infelizmente não funcionou não sei o porque, mas eu otimizei a planilha e está em anexado tbm fiz um resumo do que acontece se você ou alguem pouder ajudar é muita ajuda para o meu trabalho obrigado.

montei uma planilha com auxilio de algumas intruçoes , é uma planilha que faz a gestão de atividades e as que entram em atraso ela faz o envio de email para os responsávies, bom cheguei num ponto em que não consigo mais finalizar existe uma aba que é de contatos quando fiz um procv que quando insiro o nome do contato na coluna C ele busca o e-mail correspondente na aba Contatos e inseri na coluna I que que é onde a macro busca o e-mail para envio de pendencias porem só é enviado email quando a coluna J tem a Letra "A" .

Falhas que não consigo corrigir.
1 - Preciso exluir o formulário, quero usar somente o comando de envio de email pelo botão na planilha
2 - quando a data está vencida não consigo fazer inserir automáticamente a letra "A" na coluna J
3 - a macro só fuciona o envio de email se o email for digitado na coluna "I"
se ele for inserido automaticamente pelo procv não funciona a macro ou seja não envia email.

desde já obrigado.

segue planilha em anexo.