Vendido por
Supercashback
0% de cashback
Excel Básico Avançado 5 Cursos - Formação Especialista

Expirado

579º
Vendido por
mai 2023

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

R$27,90
0% cashback
mai 2023

6 Comentários

Ordernar por:
  • imagem de perfil do usuário MaryRose
    MaryRosemai 2023

    algm q entenda d excel… qual fórmula eu uso pra mandar anexo para o outlook através do excel? preciso disparar um anexo para mais de 200 e-mails e não consigo acertar a fórmula

  • No site do Senai é gratuito.

  • @MaryRosemai 2023

    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.


  • imagem de perfil do usuário Reyel13
    Reyel13mai 2023

    Ta 239

  • @Reyel13mai 2023

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

    Faça seu login para continuar participando da comunidade

    ou cadastre-se
    Ao continuar, você concorda com os Termos de uso e Política de privacidade
  • imagem de perfil do usuário CezarGabriel
    CezarGabrielmai 2023

    Tem o link aí?

    Senai é completo? Básico-avançado?

imagem de perfil do usuário Anônimo
Ao comprar por meio de uma promoção em nosso site, o Pelando pode receber da loja parceira uma comissão sobre a venda.

6 Comentários

Ordernar por:
imagem de perfil do usuário Anônimo
  • imagem de perfil do usuário MaryRose
    MaryRosemai 2023

    algm q entenda d excel… qual fórmula eu uso pra mandar anexo para o outlook através do excel? preciso disparar um anexo para mais de 200 e-mails e não consigo acertar a fórmula

  • No site do Senai é gratuito.

  • @MaryRosemai 2023

    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.


  • imagem de perfil do usuário Reyel13
    Reyel13mai 2023

    Ta 239

  • @Reyel13mai 2023

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

    Faça seu login para continuar participando da comunidade

    ou cadastre-se
    Ao continuar, você concorda com os Termos de uso e Política de privacidade
  • imagem de perfil do usuário CezarGabriel
    CezarGabrielmai 2023

    Tem o link aí?

    Senai é completo? Básico-avançado?

    Saiba mais sobre essa promoção
    Publicado por
    Joao
    Joao

    Método de pagamento: A vista


    Destaques

    • Menor preço de acordo com o Google
    • Com este Curso completo, você vai ter uma base sólida de conhecimento e será capaz de utilizar o Excel de forma plena e eficiente.
    • Nota 4.7
    • 42 horas de vídeo sob demanda
    • Necessário Microsoft Excel instalado

    **Em caso de valor diferente do anunciado, favor nos avisar para que possamos encerrar a promoção. Contamos com a sua ajuda para manter a comunidade organizada e em movimento! ‌‌ ‌



    O Pelando é mais legal no app!

    Baixar o aplicativo

    Libere o seu acesso gratuito e ilimitado às melhores promoções

    Ao continuar, você concorda com os
    R$27,90
    6Comentários
    579º
    Esfriar / Esquentar
    Salvar