ppeterk

Amigos, bom dia! Consegui montar esse código. Ele faz toda a etapa de enviar os emails com os PDFs em anexo. Inclusive, acrescenta a assinatura do Outlook. No entanto, algumas vezes, ele não chega para o destinatário, como se tivesse "agarrado" na fila de envio Alguém consegue me dar alguma solução?: Option Explicit Sub EnviarEmailsComPDF() Dim OutlookApp As Object Dim OutlookMail As Object Dim ws As Worksheet Dim UltimaLinha As Long Dim i As Long Dim PastaPDF As String Dim CaminhoPDF As String Dim NomeArquivo As String Dim CorpoPadrao As String '=== Solicita ao usuário a pasta onde estão os PDFs === With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Selecione a pasta onde estão os PDFs" .AllowMultiSelect = False If .Show <> -1 Then MsgBox "Nenhuma pasta selecionada. Operação cancelada.", vbExclamation Exit Sub End If PastaPDF = .SelectedItems(1) If Right(PastaPDF, 1) <> "\" Then PastaPDF = PastaPDF & "\" End With Set ws = ThisWorkbook.Sheets(1) 'Ajuste se necessário UltimaLinha = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row On Error GoTo ErroHandler Set OutlookApp = CreateObject("Outlook.Application") For i = 2 To UltimaLinha NomeArquivo = Trim(ws.Cells(i, "A").Value) & ".pdf" CaminhoPDF = PastaPDF & NomeArquivo '=== Texto fixo do e-mail (HTML) === CorpoPadrao = "<p>Dr(a) " & Trim(ws.Cells(i, "A").Value) & ", bom dia" & _ "<p>Esperamos que esta mensagem o(a) encontre bem.</p>" & _ If Dir(CaminhoPDF) <> "" Then Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .Display 'Carrega a assinatura padrão 'CorpoPadrao + Assinatura existente .HTMLBody = CorpoPadrao & .HTMLBody .To = ws.Cells(i, "B").Value .Subject = ws.Cells(i, "D").Value .Attachments.Add CaminhoPDF .Send 'Posso usar .Display para revisar antes de enviar ou Send End With Else MsgBox "Arquivo não encontrado: " & CaminhoPDF, vbExclamation, "Aviso" End If Next i MsgBox "E-mails enviados com sucesso!", vbInformation Saida: Set OutlookMail = Nothing Set OutlookApp = Nothing Exit Sub ErroHandler: MsgBox "Ocorreu um erro: " & Err.Description, vbCritical End Sub

Amigos, bom dia! Gostaria da ajuda de vocês, por gentileza: Tenho uma planilha com vários nomes de pessoas, os e-mails dessas pessoas e uma mensagem padrão. Do lado de fora, na pasta eu vou criar alguns PDFs cujo título será o nome das pessoas da planilha. Gostaria de uma macro que enviasse todos os e-mails, com a mensagem padrão e o PDF dessa pessoa como anexo. Estou anexando a planilha e 2 PDFs de exemplo. Enviar e-mails.xlsx LUIS HENRIQUE.pdf MATEUS EDUARDO.pdf

@Aline Steffanato Para te auxiliarmos melhor, anexe um modelo/exemplo da planilha.

@Midori , boa tarde! Agradeço o retorno. Pelo que identifiquei, eu altero os objetos, colocando as variáveis das células. Sobre o loop, devo usar o FOR. No entanto, poderia me ajudar com o loop ? Não sei onde encaixá-lo.

Prezados, boa tarde! Tenho uma planilha com uma relação de e-mails. Além disso, para cada e-mail/pessoa, existe um arquivo PDF salvo na mesma pasta da planilha. Gostaria que o Excel/VBA mandasse um email para cada pessoa da lista, anexando seu respectivo arquivo. Observação: O nome do arquivo tem o mesmo nome da pessoa. Estou anexando a planilha e o PDF de um dos nome da planilha Emails.xlsx Lucas Pereira.pdf

@Midori, perfeitamente. Deu muito certo. Agradeço imensamente. Uma última dúvida: Caso a informação que eu esteja querendo buscar não seja um número e sim uma palavra, o que eu deveria alterar na macro ?

@Midori , boa tarde! Fico muito feliz por me ajudar nesse caso. Poderia só me explicar como eu uso os parâmetros? Tentei dessa forma: 2º dúvida: O caminho do arquivo na coluna "Diretório" está escrita corretamente? "Downloads\6º Andar" Obrigado.

@Midori Perfeito, Midori. Agradeço muito o retorno. Nesse caso, poderia me ajudar com a macro, por gentileza? Seria interessante um botão para a pessoa clicar.

@Midori , a grosso modo, seria a seguinte ideia:

@Midori , obrigado pela resposta. Nesse caso, essa opção não seria viável. Cada planilha está em diretório diferente. Coloquei todas em uma pasta de exemplo. Eu realmente preciso de uma fórmula que fosse em cada diretório, puxando as informações pra coluna C. É possível? Previamente, a pessoa teria que preencher o caminho de onde está cada planilha.

Amigos, boa tarde! Tenho uma planilha BASE que todo mês eu preencho. Gostaria de uma fórmula ou VBA que fizesse semelhante a um PROCV, puxando a informação automaticamente da planilha de cada setor (6º Andar, 5º Andar e 4º Andar), salvas em pastas diferentes. Em anexo: planilha BASE + 3 planilhas de exemplo que eu gostaria de puxar. A fórmula será feira nas células da Coluna C e deve considerar o diretório/endereço da pasta que a planilha do gerente está salva (Coluna D) Obrigado. BASE.xlsx 5º Andar.xlsx 4º Andar.xlsx 6º Andar.xlsx

Amigos, boa tarde! Preciso de um help de vocês. Na planilha, preciso preencher a coluna B, conforme as horas da Coluna A se enquadrem nos grupos de Horas da coluna E. Coloquei 2 exemplos reais preenchidos na coluna B. Gostaria de uma fórmula que fizesse essa "comparação" e já preenchesse automático. Entre Horas.xlsx

Tenho um modelo que costumava usar. Os nomes e as datas são fictícios. Aniversariantes.rar

Prezados, bom dia! Gostaria da ajuda de vocês. Tenho 3 células (B1, E1 e H1). Gostaria que, ao selecionar uma informação na lista suspensa da célula B1, a lista suspensa da célula E1 mostrasse as informações condicionadas/referentes à célula B1. A mesma ideia seria para a célula H1: B1 > E1 > H1 Além disso, gostaria que aparecesse, apenas, valores exclusivos/únicos na lista suspensa. 3 Listas Suspensas.xlsx

@Rebrincar Conserto de Brinquedos, tudo bem? Para facilitar o apoio, anexe uma planilha, exemplificando as informações e o resultado que deseja.