Membro desde out 2019
641º Promoção mais quente
374 Reações em comentários
0 Seguidores
0 Seguindo
Caique_Santosparcelado nunca?
Expirada
Caique_SantosTem uma compra minha que não entregaram 1 mês que comprei. Disse que o problema é logístico no RS. Moro em Salvador. Não aconselho comparem na Dafiti. Vejam o reclame aqui
Caique_SantosÉ bom mas acho essa tela enorme horrível
Caique_Santos196 aqui
Caique_SantosEm 40g tem 19 de carbo e 15 de proteina kkkkkkk
Caique_Santos Peguei, obrigado
Caique_Santos 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.
Caique_Santos baratinho. Comprei o meu e mais 2 de presente
Deletada
Caique_Santos alguem com chave premium que queira dividir?
Caique_SantosNão tem pra cep algum
Crie um alerta para o produto que você procura!