bom dia
no campo de email, tem que ser hiperlink pra funcionar é isso?
bom, tente esse aqui, cole na primeira linha da coluna de email,
se nao resolveu poste ai o resultado

abraço

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

gupastrello,

Bom Dia!

Não entendi sua colocação nº 2.

Quanto ao restante, veja se é assim.

Bom dia, Wilmar ainda dá o mesmo erro ele puxxa o e-mail mas o envio não acontece.

mas se digitar o e-mail ele funciona.

Bom dia Wagner, a colocação nr. 2´seria quando vencer o prazo da atividade automaticamente aparece a letra A na coluna J

quanto ao restante está puxando os emails mas quando clico pra enviar não faz o envio.

Obrigado.

gupastrelo, como eu disse não utilizo programas de email, mas em algumas pesquisas vi que tirou este exemplo do site abaixo :

VBA - Cadastro de Clientes com envio de Email no Excel - I
http://www.macoratti.net/10/11/vba_ccli.htm

Veja na parte 1 diz que diz que estes recursos, são para : Microsoft Excel versão 2007; e Microsoft OutLook 2007, apos acionar o envio que diz não ter ocorrido abra o Outlook e veja se a está na pasta de Saida.

Uma obs, você está abrindo vários tópicos com duvidas parecidas, procure manter o foco somente em um tópico.

[]s

Ele esta enviando agora mas dando o erro em anexo.

Acredito que este erro seja decorrente de ser mais de um destinatário ao mesmo tempo.

Obrigado.

Boa tarde Pessoal, a planilha já está fazendo o envio de e-mails, mas somente envia para 1 remetente e da erro, a macro puxa o primeiro e0-mail que esta com a letra A de aberto na frente e envia somente pra ele o restante dos e-maisl que estão com a de aberto não é enviado.

alguem consegue me ajudar?

Não sou muito bom nisso mas veja se funciona:

Sub EnviaEmail()
   
    Dim aplicacaoOutlook As Object
    Dim OutLookMail As Object
    Dim cell As Range
    Dim UltimaLinha, i As Long

    Application.ScreenUpdating = False
    Set aplicacaoOutlook = CreateObject("Outlook.Application")
    Set OutLookMail = aplicacaoOutlook.CreateItem(0)
    
   For Each cell In Sheets("Sheet1").Columns("I").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Offset(0, 1).Value <> "" Then
            If cell.Value Like "?*@?*.?*.?*.?*" And LCase(cell.Offset(0, 1).Value) = "a" Then
            With OutLookMail
                .To = cell.Value
                .Subject = "Aviso"
                .Body = "Caro " & cell.Offset(0, -6).Value _
                      & 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
            MsgBox ("Email enviado com sucesso..." & " para " & cell.Value)
        End If
    Next
    
    Set OutLookMail = Nothing
    Set aplicacaoOutlook = Nothing
    Application.ScreenUpdating = True
End Sub

Abs,