Power BI | 📌 Automação via PowerShell: Usando Um Script para enviar Relatório por e-Mail - Automation via PowerShell: Using a Script to Email Reports

Se quer um fluxo automático sem Power Automate, pode usar um script PowerShell para:

1. Tirar um snapshot do relatório.
2. Enviar um e-mail automaticamente com a imagem.

Esse método requer acesso à API do Power BI e permissões adequadas.

🔹 Pré-requisitos

• Ter o Power BI aberto no local desejado.
• Configurar o envio de e-mails via SMTP (Gmail, Outlook ou Exchange).
• Executar o PowerShell com permissões de administrador.
• Instalar o módulo Powershell Imaging para capturar a tela.

📝 Script PowerShell

# Definir caminho para salvar a captura de tela

$ImagemPath = "$env:TEMP\PowerBI_Snapshot.png"

# Função para capturar a tela

Add-Type -TypeDefinition @"

using System;

using System.Drawing;

using System.Drawing.Imaging;

using System.Runtime.InteropServices;

public class ScreenCapture {

    [DllImport("user32.dll")]

    public static extern IntPtr GetDesktopWindow();

    [DllImport("user32.dll")]

    public static extern IntPtr GetWindowDC(IntPtr hWnd);

    [DllImport("gdi32.dll")]

    public static extern int BitBlt(IntPtr hdcDest, int xDest, int yDest, int wDest, int hDest, IntPtr hdcSrc, int xSrc, int ySrc, int RasterOp);

    [DllImport("gdi32.dll")]

    public static extern bool DeleteDC(IntPtr hdc);

    [DllImport("gdi32.dll")]

    public static extern IntPtr CreateCompatibleDC(IntPtr hdc);

    [DllImport("gdi32.dll")]

    public static extern IntPtr CreateCompatibleBitmap(IntPtr hdc, int nWidth, int nHeight);

    [DllImport("gdi32.dll")]

    public static extern IntPtr SelectObject(IntPtr hdc, IntPtr h);

    [DllImport("gdi32.dll")]

    public static extern bool DeleteObject(IntPtr ho);

    

    public static void CaptureScreen(string filePath) {

        IntPtr hDesk = GetDesktopWindow();

        IntPtr hSrce = GetWindowDC(hDesk);

        IntPtr hDest = CreateCompatibleDC(hSrce);

        int width = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width;

        int height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height;

        IntPtr hBmp = CreateCompatibleBitmap(hSrce, width, height);

        IntPtr hOldBmp = SelectObject(hDest, hBmp);

        BitBlt(hDest, 0, 0, width, height, hSrce, 0, 0, 0x00CC0020);

        Bitmap bmp = Image.FromHbitmap(hBmp);

        bmp.Save(filePath, ImageFormat.Png);

        SelectObject(hDest, hOldBmp);

        DeleteObject(hBmp);

        DeleteDC(hDest);

        DeleteDC(hSrce);

    }

}

"@ -Language CSharp

# Capturar a tela do relatório Power BI

[ScreenCapture]::CaptureScreen($ImagemPath)

# Configurações do e-mail

$SMTPServer = "smtp.office365.com"   # Para Outlook | Use "smtp.gmail.com" para Gmail

$SMTPPort = 587

$EmailFrom = "seuemail@seudominio.com"

$EmailTo = "destinatario@seudominio.com"

$EmailSubject = "Snapshot do Relatório Power BI"

$EmailBody = "Segue em anexo a captura de tela do relatório Power BI."

$SMTPUser = "seuemail@seudominio.com"

$SMTPPassword = "suasenha"

# Criar e enviar o e-mail

Send-MailMessage -From $EmailFrom -To $EmailTo -Subject $EmailSubject -Body $EmailBody `

-Attachments $ImagemPath -SmtpServer $SMTPServer -Port $SMTPPort -UseSsl `

-Credential (New-Object System.Management.Automation.PSCredential ($SMTPUser, (ConvertTo-SecureString $SMTPPassword -AsPlainText -Force)))

Write-Host "E-mail enviado com sucesso!"

🛠 Configurações Necessárias

1. Troque seuemail@seudominio.com e suasenha pelas suas credenciais.
2. Se usar Gmail, ative "Permitir aplicativos menos seguros" ou gere uma senha de aplicativo.
3. Mude o SMTP dependendo do provedor de e-mail:
• Outlook: smtp.office365.com (porta 587).
• Gmail: smtp.gmail.com (porta 587).
• Exchange: smtp.office365.com (para Microsoft 365).

🎯 Como Rodar o Script?

1. Salve o código como EnviarRelatorio.ps1.
2. Abra o PowerShell como Administrador.

.\EnviarRelatorio.ps1

3. O script capturará a tela e enviará um e-mail com a imagem anexada. 

 

🔥 Vantagens Desta Abordagem

✅ Automatiza a captura de tela do relatório Power BI.

✅ Envia automaticamente um e-mail com o snapshot.

✅ Funciona sem precisar do Power Automate (economizando licenças).

✅ Adaptável para rodar periodicamente via Agendador de Tarefas do Windows.

👉 Não se esqueça de seguir André Bernardes no Linkedin. Clique aqui e me contate via What's App. 

Comente e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série de Livros nut Project 

  

Excel | Anexe a pasta de trabalho ativa em um e-mail

Um, dos meus códigos VBAs favoritos: Ele permite anexar e enviar o arquivo em que você está trabalhando com um endereço de e-mail, título e corpo da mensagem predefinidos! Primeiro você precisa definir a referência ao Microsoft Outlook (no seu editor VBA, clique em ferramentas => referências e escolha Microsoft Outlook).

Sub SendFIleAsAttachment()

     'Declarar suas variáveis 

    ' Definir referência para a biblioteca de objetos do Microsoft Outlook 

        Dim OLApp As Outlook.Application

         Dim OLMail As  Object 

    'Abrir o Outlook iniciar um novo item de correio 

        Definir OLApp = Novo Outlook.Application

         Definir OLMail = OLApp.CreateItem( 0 )

        OLApp.Session.Logon  

    'Crie seu item de e-mail e envie 

        com OLMail

        . To = "admin@datapigtechnologies.com; mike@datapigtechnologies.com" 

        .CC = "" 

        .BCC = "" 

        .Subject = "Esta é a linha de assunto" 

        .Body = "Olá"

        .Anexos.Adicionar ActiveWorkbook.FullName

        .Display   'Alterar para .Enviar para enviar sem revisar 

        End  With 

    'Limpeza de memória 

        Set OLMail = Nothing 

        Set OLApp = Nothing 

End  Sub

Parabéns! Como você ainda está lendo isso, você está realmente interessado em aprender VBA. Como você já viu, a linguagem de programação VBA é extremamente útil e pode nos poupar muito tempo. Espero que você tenha achado essas informações úteis e as use para se tornar um mestre em MS Excel, VBA e software de computador em geral.

  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série Donut Project 

  

 Clique nas capas abaixo e compre também: 

PIECE OF CAKE - MS Excel - Zipando - Compactando e Enviando por e-Mail - Zip and mail the ActiveWorkbook

Este código foi escrito para que estiver usando o Outlook como seu programa de e-mail.

Este código enviará a planilha recém-criada (cópia do seu Activeworkbook). Guardará o zip na pasta de trabalho antes de enviá-lo com um carimbo de data | hora. Depois que o arquivo zip for enviado, o arquivo zip e a pasta de trabalho serão excluídos.

Sub Zip_Mail_ActiveWorkbook()
    Dim strDate As String, DefPath As String, strbody As String
    Dim oApp As Object, OutApp As Object, OutMail As Object
    Dim FileNameZip, FileNameXls
    Dim FileExtStr As String

    DefPath = Application.DefaultFilePath
    If Right(DefPath, 1) <> "\" Then
        DefPath = DefPath & "\"
    End If

    'Create date/time string and the temporary xl* and zip file name
    If Val(Application.Version) < 12 Then
        FileExtStr = ".xls"
    Else
        Select Case ActiveWorkbook.FileFormat
        Case 51: FileExtStr = ".xlsx"
        Case 52: FileExtStr = ".xlsm"
        Case 56: FileExtStr = ".xls"
        Case 50: FileExtStr = ".xlsb"
        Case Else: FileExtStr = "notknown"
        End Select
        If FileExtStr = "notknown" Then
            MsgBox "Sorry unknown file format"
            Exit Sub
        End If
    End If

    strDate = Format(Now, " yyyy-mm-dd h-mm-ss")

    FileNameZip = DefPath & Left(ActiveWorkbook.Name, _
    Len(ActiveWorkbook.Name) - Len(FileExtStr)) & strDate & ".zip"

    FileNameXls = DefPath & Left(ActiveWorkbook.Name, _
    Len(ActiveWorkbook.Name) - Len(FileExtStr)) & strDate & FileExtStr


    If Dir(FileNameZip) = "" And Dir(FileNameXls) = "" Then

        'Make copy of the activeworkbook
        ActiveWorkbook.SaveCopyAs FileNameXls

        'Create empty Zip File
        NewZip (FileNameZip)

        'Copy the file in the compressed folder
        Set oApp = CreateObject("Shell.Application")
        oApp.Namespace(FileNameZip).CopyHere FileNameXls

        'Keep script waiting until Compressing is done
        On Error Resume Next
        Do Until oApp.Namespace(FileNameZip).items.Count = 1
            Application.Wait (Now + TimeValue("0:00:01"))
        Loop
        On Error GoTo 0

        'Create the mail
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        strbody = "Hi there" & vbNewLine & vbNewLine & _
                  "This is line 1" & vbNewLine & _
                  "This is line 2" & vbNewLine & _
                  "This is line 3" & vbNewLine & _
                  "This is line 4"

        On Error Resume Next
        With OutMail
            .To = "ron@debruin.nl"
            .CC = ""
            .BCC = ""
            .Subject = "This is the Subject line"
            .Body = strbody
            .Attachments.Add FileNameZip
            .Send   'or use .Display
        End With
        On Error GoTo 0

        'Delete the temporary Excel file and Zip file you send
        Kill FileNameZip
        Kill FileNameXls
    Else
        MsgBox "FileNameZip or/and FileNameXls exist"
    End If
End Sub

#A&A #PIECEOFCAKE #POC #VBA #RondeBruin #MS #Excel

Veja também:

• MS Excel - Zipando - Abra uma Janela e Escolha os Arquivos que deseja Compacatar
• MS Excel - Zipando - Escolha uma Pasta e Compacte Tudo Nela
• MS Excel - Zipando - Compacte Todos os Arquivos Contidos na Pasta Informada no Código
• MS Excel - Zipando - Compactando a Planilha Atual
• MS Excel - Zipando - Compactando e Enviando por e-Mail

Consulte-nos

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

• VBA Specialist® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist® 

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com

VBA Excel - Enviando emails via VBA - Send Email Using VBA

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Um dos meios mais fáceis de automatizar o envio de e-mails através do MS Excel é invocar a função ObjectOutlook.Application.

Esta função devolve a referência ao objeto ActiveX, neste caso a aplicação Outlook, o qual é utilizado para a criação e o envio do  e-mail.

Copie e cole o código abaixo para que isso aconteça:

Sub EnvieMailVBA()

Dim Email_Subject, Email_Send_From, Email_Send_To, _

Email_Cc, Email_Bcc, Email_Body As String

Dim Mail_Object, Mail_Single As Variant

Let Email_Subject = "A&A: Enviando e-mail com VBA"

Let Email_Send_From = "<Digite o seu e-mail aqui>"

Let Email_Send_To = "<Digite o email para quem enviará>"

Let Email_Cc = "<Digite a pessoa para quem enviará a cópia deste email >"

Let Email_Bcc = "<Digite o email para quem enviará uma cópia oculta>"

Let Email_Body = "Parabéns!!!! O seu envio ocorreu com sucesso !!!!"

On Error GoTo debugs

Set Mail_Object = CreateObject("Outlook.Application")

Set Mail_Single = Mail_Object.CreateItem(0)

With Mail_Single

Let .Subject = Email_Subject

Let .To = Email_Send_To

Let .cc = Email_Cc

Let .BCC = "bernardess@gmail.com" 'Email_Bcc

Let .Body = Email_Body

.send

End With

debugs:

If Err.Description <> "" Then MsgBox Err.Description

End Sub

Como um lembrete: Quando enviar um e-mail usando este código VBA, uma janela pop-up alertando os usuários de que o "Um programa está tentando enviar automaticamente um email em seu nome. Você quer permitir isso? " aparece. 

Este é um aviso de segurança válido e não há nenhum trabalho direto ao redor dele. No entanto, existem outros dois meios pelos quais essa tarefa pode ser executada, uma através do uso de CDO e outro que simula a utilização do teclado.

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, Excel, e-mail, email, mail, send, objectoutlook.application, activeX

VBA Excel - Enviando emails via CDO - Send Email Using CDO

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

O que é CDO?

É uma biblioteca de objetos que expõe as interfaces do Messaging Application Programming Interface (MAPI). 

O CDO permite que manipulemos os dados do Exchange para enviar e receber mensagens.

O uso do CDO pode ser preferível em casos onde gostaríamos de evitar a segurança pop-up que aparecem, tais como: "um programa está tentando enviar automaticamente um e-mail em seu nome", atrasando o nosso envio de e-mail até que o usuário forneça um resposta.

Neste exemplo usaremos a função CreateObject ("CDO.Message").

Um ponto importante a observar aqui é definir a configuração SMTP corretamente, de modo a evitar o temido "Erro em tempo de execução -2147220973 (80040213) " ou o " valor de configuração SendUsing erros é inválido "de aparecer.

Sub EnvieMail_CDO()

Dim CDO_Mail_Object As Object

Dim CDO_Config As Object

Dim SMTP_Config As Variant

Dim Email_Subject, Email_Send_From, Email_Send_To, Email_Cc, Email_Bcc, Email_Body As String

Let Email_Subject = "Enviando email via CDO"

Let Email_Send_From = "< Seu endereço de email >"

Let Email_Send_To = "< Endereço de email para envio >"

Let Email_Cc = "< Endereço de email de cópia >"

Let Email_Bcc = "< Endereço de email de cópia oculta >"

Let Email_Body = "Parabéns!!!! Seu envio através de CDO funcionou !!!!"

Set CDO_Mail_Object = CreateObject("CDO.Message")

On Error GoTo debugs

Set CDO_Config = CreateObject("CDO.Configuration")

CDO_Config.Load -1

Set SMTP_Config = CDO_Config.Fields

With SMTP_Config

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Coloque o nome do seu SERVIDOR abaixo:

Let .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "YOURSERVERNAME"

Let .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

.Update

End With

With CDO_Mail_Object

Set .Configuration = CDO_Config

End With

Let CDO_Mail_Object.Subject = Email_Subject

Let CDO_Mail_Object.From = Email_Send_From

Let CDO_Mail_Object.To = Email_Send_To

Let CDO_Mail_Object.TextBody = Email_Body

Let CDO_Mail_Object.cc = Email_Cc 'Use se achar necessário

Let CDO_Mail_Object.BCC = "bernardess@gmail.com" 'Use se achar necessário

'CDO_Mail_Object.AddAttachment FileToAttach 'Use se achar necessário

CDO_Mail_Object.send

debugs:

If Err.Description <> "" Then MsgBox Err.Description

End Sub

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, Excel, e-mail, email, mail, send, CDO, SMTP, CreateObject, MAPI, 

VBA Excel - Enviando emails usando Send Keys - Send Email Using Send Keys

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Um outro modo de enviarmos um e-mail é por utilizarmos o comando ShellExecute para executar qualquer programa dentro do VBA. O comando ShellExecute pode ser usado para carregar um documento com um programa associado. Em essência, criamos um objeto string e o passamos como um parâmetro para a função ShellExecute. O resto do trabalho é feito pelo Windows. Ele decide automaticamente qual programa está associado a determinado tipo de documento.

Podemos usar a função ShellExecute para abrirmos o IExplorer, Word, Paintbrush e uma série de outras aplicações. 

A operação pode ser lenta e se não quiser executar o Send Keys antes mesmo do e-mail aparecer na tela e esperar alguns segundos, certifique-se que o envio do e-mail foi processos totalmente e, em seguida, ative o Send Keys. O envio precipitado impedirá que o email seja enviado.

Sub SendKeyMail()

Dim Mail_Object As String

Dim Email_Subject, Email_Send_To, Email_Cc, Email_Bcc, Email_Body As String

Email_Subject = "A&A: Enviando email via Keys"

Email_Send_To = " <Endereço de email para quem envia> "

Email_Cc = " <Endereço de email para quem deseja enviar cópia> "

Email_Bcc = " <Cópia oculta deste email> "

Email_Body = " Parabéns!!!! Seu email foi enviado !!!!"

Mail_Object = "mailto:" & Email_Send_To & "?subject=" & Email_Subject & "& body=" & Email_Body & "& cc=" & Email_Cc & "& bcc=" & Email_Bcc

On Error GoTo debugs

ShellExecute 0&, vbNullString, Mail_Object, vbNullString, vbNullString, vbNormalFocus

Application.Wait (Now + TimeValue("0:00:03"))

Application.SendKeys "%s"

debugs:

If Err.Description <> "" Then MsgBox Err.Description

End Sub

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, Excel, e-mail, email, mail, send, send keys, ShellExecute,