Excel Básico Avançado 5 Cursos - Formação Especialista

Para enviar anexos por e-mail para o Outlook usando o Excel, você precisará de um script VBA (Visual Basic for Applications) em vez de uma fórmula. O VBA permite automatizar tarefas e interagir com outros aplicativos do Microsoft Office, como o Outlook.

Aqui está um exemplo de código VBA que você pode usar para enviar anexos por e-mail para uma lista de endereços no Excel:

----------------------------------------------------------

Sub EnviarAnexoParaOutlook()

   Dim OutlookApp As Object

   Dim OutlookMail As Object

   Dim Anexo As String

   Dim Destinatario As String

   Dim Assunto As String

   Dim Corpo As String

   ' Configurações do e-mail

   Anexo = "C:\Caminho\Para\Seu\Anexo.pdf" ' Caminho completo para o arquivo anexo

   Assunto = "Assunto do e-mail"

   Corpo = "Corpo do e-mail"

   ' Loop através das linhas na planilha ativa (assumindo que os endereços de e-mail estão na coluna A)

   For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

       Destinatario = Cells(i, 1).Value ' Obter o endereço de e-mail da coluna A

       ' Cria uma nova instância do aplicativo Outlook

       Set OutlookApp = CreateObject("Outlook.Application")

       ' Cria um novo e-mail

       Set OutlookMail = OutlookApp.CreateItem(0)

       ' Configura as propriedades do e-mail

       With OutlookMail

           .To = Destinatario

           .Subject = Assunto

           .Body = Corpo

           ' Adiciona o anexo ao e-mail

           .Attachments.Add Anexo

           ' Envia o e-mail

           .Send

       End With

       ' Limpa a memória

       Set OutlookMail = Nothing

       Set OutlookApp = Nothing

   Next i

   MsgBox "E-mails enviados com sucesso!"

End Sub

--------------------------------------------

Antes de executar o código acima, certifique-se de modificar o valor da variável "Anexo" para o caminho completo do seu arquivo de anexo. Além disso, verifique se a lista de endereços de e-mail está na coluna A da planilha ativa.

Para usar o código acima, siga estas etapas:

Abra o Excel e pressione Alt + F11 para abrir o Editor VBA.

Insira um novo módulo: clique com o botão direito do mouse no painel à esquerda e escolha "Inserir" -> "Módulo".

Cole o código VBA fornecido no novo módulo.

Modifique o valor da variável Anexo para o caminho correto do seu arquivo de anexo.

Pressione F5 ou vá para "Executar" -> "Executar Sub/Usuário" para iniciar a macro.

Aguarde até que todos os e-mails sejam enviados. Você verá uma mensagem informando que os e-mails foram enviados com sucesso.

Tem o link aí?

faz login que o desconto aparece (com duração de + 7h, parece)