Celcontrol

Midori, tudo bem? Isto! Exatamente o que precisava. Funcionou! Muito obrigado por toda ajuda e paciência em explicar. Ótimo dia pra ti.

Para anexar o arquivo preciso colocar o nome no VBA? A intenção não era essa! Desculpe se não fui claro. A tabela busca na coluna "O" o caminho + nome do arquivo descrito na célula e anexa automaticamente ao e-mail quando executada macro. Meu problema é que só consigo anexar um arquivo mencionando o caminho + nome dentro da célula e queria conseguir anexar mais de um desta forma. Exemplo: Coluna "O" - célula "O2" [c:\pasta1\foto.pdf] A tabela busca o arquivo "foto.pdf na pasta1 e anexa ao e-mail. Queria conseguir anexar mais de um arquivo desta mesma forma, ao mesmo e-mail. Exemplo: Coluna "O" - célula "O2" [c:\pasta1\foto.pdf; c:\pasta1\pasta2\arquivo.docx] Quebrei a cabeça e não consegui... Não se se fui claro desta vez, agradeço a paciência e ajuda.

Tentei novamente, mas não consegui. Segue anexo. Esse código fará com que consiga selecionar os arquivos direto da tabela? Teste.zip

Fiz as alterações, mas agora da erro de procedimento. Há algo mais que devo alterar na tabela além do código? Estou anexando a tabela, poderia se possível verificar? Estou aprendendo e posso estar deixando algo passar Agradeço sua ajuda! Teste.zip

"Erro em tempo de execução 13 tipos incompatíveis" Dim EnviarPara As String Dim Mensagem As String Dim Arquivos As String For I = 1 To Cells(Rows.Count, 1).End(3).Row EnviarPara = ThisWorkbook.Sheets(1).Cells(I, 10) If EnviarPara <> "" And Cells(I, "I") = "FOLLOWUP" Then Mensagem = ThisWorkbook.Sheets(1).Cells(I, 11) Arquivos = ThisWorkbook.Sheets(1).Cells(I, 15) Envia_Emails EnviarPara, Mensagem, Split(Arquivos, ";") End If Next I End Sub Sub Envia_Emails(EnviarPara As String, Mensagem As String, Arquivos As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = EnviarPara .CC = "" .BCC = "" .Subject = "" .Body = Mensagem For Each Nome In Arquivos .Attachments.Add Nome Next Nome .Display ' para envia o email diretamente defina o código .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub

Midori, tudo bem? Não consegui aplicar. Dá erro! "Tipos incompatíveis" Tenho que modificar algo mais na tabela além do código?

Olá a todos, tudo bem? Por gentileza, poderiam me ajudar com uma dificuldade? Na tabela anexa cada linha representa um e-mail a enviar. Na coluna "O" coloco o arquivo que será anexado ao e-mail (exemplo: C:\eu\desktop\foto.pdf) Gostaria de saber como colocar mais de um arquivo na célula, para enviar mais de um arquivo anexo ao mesmo e-mail. (exemplo: C:\eu\desktop\foto20.pdf; C:\eu\desktop\foto10.pdf) Muito obrigado. Abs. Teste.zip