Enviar por mail el precio, la fecha, la hora y el volumen de varias acciones del IBEX 35 en un momento concreto | Operating systems, scripting, PowerShell and security

Mercados y cotizaciones, PowerShell

$acciones = "ES0148396007","ES0105066007","ES0130960018","ES0130670112","ES0118900010","ES0171996087","ES0177542018","ES0144580Y14","ES0169501022","ES0173516115","ES0165386014","ES0178430E18","ES0176252718"

$arraylist = New-Object System.Collections.ArrayList

foreach($accion in $acciones)
{
    $web = (Invoke-WebRequest ('http://www.bolsamadrid.es/esp/aspx/Empresas/FichaValor.aspx?ISIN='+$accion))

    $webhtml = $web.AllElements.where{$_.id -eq "ctl00_Contenido_tblPrecios"}.outerhtml
    $sinhtml = $webhtml.replace(".","").replace(",",".").replace("",",").replace("",",") -replace "<.*?>"
    $htmlsin = $sinhtml.trim()
    $sinespa = $htmlsin.replace("	","")

    $Params = @{
        MemberType = 'NoteProperty'
        Name       = 'Título'
        Value      = $web.ParsedHtml.title.Replace("Bolsa de Madrid - Ficha de ","")
    }
    
    $concsv = $sinespa | ConvertFrom-Csv
    $concsv | Add-Member @Params

    [void]$arraylist.Add($concsv)
}

$EmailFrom = "xxxx@hotmail.com"
$EmailTo = $EmailFrom
$Subject = "Cotización"

$SMTPServer = "smtp.outlook.com"
$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587)
$SMTPClient.EnableSsl = $true

$message = New-Object System.Net.Mail.MailMessage $EmailFrom, $EmailTo
$message.Subject = $Subject
$message.IsBodyHTML = $true

$message.Body = foreach($elemento in $arraylist)
{
    $elemento | Select-Object @{n='Título';e={$_.Título}},@{n='fecha';e={$_.fecha}},@{n='hora';e={$_.hora}},@{n='últ';e={$_.últ}},@{n='Volumen';e={$_.Volumen}} | ConvertTo-Html
}

$SMTPClient.Credentials = New-Object System.Net.NetworkCredential($EmailFrom, "xxx")

$SMTPClient.Send($message)

$acciones = "ES0148396007","ES0105066007","ES0130960018","ES0130670112","ES0118900010","ES0171996087","ES0177542018","ES0144580Y14","ES0169501022","ES0173516115","ES0165386014","ES0178430E18","ES0176252718"

$arraylist = New-Object System.Collections.ArrayList

foreach($accion in $acciones)

{

$web = (Invoke-WebRequest ('http://www.bolsamadrid.es/esp/aspx/Empresas/FichaValor.aspx?ISIN='+$accion))

$webhtml = $web.AllElements.where{$_.id -eq "ctl00_Contenido_tblPrecios"}.outerhtml

$sinhtml = $webhtml.replace(".","").replace(",",".").replace("",",").replace("",",") -replace "<.*?>"

$htmlsin = $sinhtml.trim()

$sinespa = $htmlsin.replace(" ","")

$Params = @{

MemberType = 'NoteProperty'

Name = 'Título'

Value = $web.ParsedHtml.title.Replace("Bolsa de Madrid - Ficha de ","")

}

$concsv = $sinespa | ConvertFrom-Csv

$concsv | Add-Member @Params

[void]$arraylist.Add($concsv)

}

$EmailFrom = "[email protected]"

$EmailTo = $EmailFrom

$Subject = "Cotización"

$SMTPServer = "smtp.outlook.com"

$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587)

$SMTPClient.EnableSsl = $true

$message = New-Object System.Net.Mail.MailMessage $EmailFrom, $EmailTo

$message.Subject = $Subject

$message.IsBodyHTML = $true

$message.Body = foreach($elemento in $arraylist)

{

$elemento | Select-Object @{n='Título';e={$_.Título}},@{n='fecha';e={$_.fecha}},@{n='hora';e={$_.hora}},@{n='últ';e={$_.últ}},@{n='Volumen';e={$_.Volumen}} | ConvertTo-Html

}

$SMTPClient.Credentials = New-Object System.Net.NetworkCredential($EmailFrom, "xxx")

$SMTPClient.Send($message)

Publicado el día 27 de febrero de 2021

CATEGORÍAS

Mercados y cotizaciones, PowerShell