PowerShellでExcelファイル生成と自動メール送信タスクを作成する方法

# 1. 必要なモジュールやライブラリをインポート
Import-Module SomeModule

# 2. 変数の宣言と初期化
$today = Get-Date
$outputPath = "C:\Reports\output.xlsx"

# 3. メイン処理
New-Item -Path $outputPath -ItemType File
Write-Output "Task completed on $today"

# 4. ログやエラーの処理
Write-EventLog -LogName Application -Source "PowerShellScript" -EntryType Information -EventId 1 -Message "Task executed successfully."

Install-Module -Name ImportExcel -Scope CurrentUser

Import-Module ImportExcel

# 新しいExcelファイルの作成
$data = @(
    @{ Name = "John"; Age = 30; Department = "Sales" }
    @{ Name = "Jane"; Age = 25; Department = "Marketing" }
    @{ Name = "Bob"; Age = 35; Department = "HR" }
)

# Excelファイルにデータを書き込む
$data | Export-Excel -Path "C:\Reports\EmployeeData.xlsx" -AutoSize

# データを書き込みながらスタイルを設定
$data | Export-Excel -Path "C:\Reports\StyledData.xlsx" -AutoSize -BoldTopRow -FreezeTopRow

try {
    $data | Export-Excel -Path "C:\Reports\Output.xlsx" -AutoSize
    Write-Output "Excelファイルの生成が成功しました。"
} catch {
    Write-Error "Excelファイルの生成中にエラーが発生しました： $_"
}

# SMTPサーバー情報
$smtpServer = "smtp.gmail.com"
$smtpPort = 587
$from = "your-email@gmail.com"
$to = "recipient-email@example.com"
$subject = "PowerShellメール送信テスト"
$body = "これはPowerShellから送信されたメールです。"

# 認証情報
$username = "your-email@gmail.com"
$password = "your-email-password"
$securePassword = ConvertTo-SecureString $password -AsPlainText -Force
$credential = New-Object System.Management.Automation.PSCredential($username, $securePassword)

# メール送信
Send-MailMessage -From $from -To $to -Subject $subject -Body $body -SmtpServer $smtpServer -Port $smtpPort -UseSsl -Credential $credential

# HTML形式のメール
$htmlBody = @"
<h1>PowerShellメールテスト</h1>
<p>このメールは、<b>PowerShell</b>から送信されました。</p>
"@

Send-MailMessage -From $from -To $to -Subject $subject -Body $htmlBody -BodyAsHtml -SmtpServer $smtpServer -Port $smtpPort -UseSsl -Credential $credential

try {
    Send-MailMessage -From $from -To $to -Subject $subject -Body $body -SmtpServer $smtpServer -Port $smtpPort -UseSsl -Credential $credential
    Write-Output "メールの送信に成功しました。"
} catch {
    Write-Error "メール送信中にエラーが発生しました: $_"
}

# データセットを作成
$data = @(
    @{ Name = "John Doe"; Age = 30; Department = "Sales" }
    @{ Name = "Jane Smith"; Age = 28; Department = "Marketing" }
    @{ Name = "Mike Johnson"; Age = 35; Department = "HR" }
)

# Excelファイルにデータを書き込む
$data | Export-Excel -Path "C:\Reports\EmployeeData.xlsx" -AutoSize

# データセット1
$employeeData = @(
    @{ Name = "John Doe"; Age = 30; Department = "Sales" }
    @{ Name = "Jane Smith"; Age = 28; Department = "Marketing" }
)

# データセット2
$departmentData = @(
    @{ Department = "Sales"; Manager = "Alice" }
    @{ Department = "Marketing"; Manager = "Bob" }
)

# Excelファイルにデータを書き込み、シートを追加
$employeeData | Export-Excel -Path "C:\Reports\CompanyData.xlsx" -WorksheetName "Employees" -AutoSize
$departmentData | Export-Excel -Path "C:\Reports\CompanyData.xlsx" -WorksheetName "Departments" -AutoSize -Append

# 現在の日付を取得
$date = Get-Date -Format "yyyyMMdd"

# ファイル名に日付を追加
$filepath = "C:\Reports\EmployeeData_$date.xlsx"

# データをExcelに保存
$data | Export-Excel -Path $filepath -AutoSize

# 保存先ディレクトリの指定
$directory = "C:\Users\Public\Reports"

# ディレクトリが存在しない場合は作成
if (-not (Test-Path $directory)) {
    New-Item -ItemType Directory -Path $directory
}

# ファイルを指定したディレクトリに保存
$filepath = "$directory\EmployeeData.xlsx"
$data | Export-Excel -Path $filepath -AutoSize

# メール送信に必要な情報
$smtpServer = "smtp.gmail.com"
$smtpPort = 587
$from = "your-email@gmail.com"
$to = "recipient-email@example.com"
$subject = "PowerShellによるレポート送信"
$body = "添付ファイルとしてExcelレポートをお送りします。"

# 認証情報
$username = "your-email@gmail.com"
$password = "your-email-password"
$securePassword = ConvertTo-SecureString $password -AsPlainText -Force
$credential = New-Object System.Management.Automation.PSCredential($username, $securePassword)

# 添付するファイルのパス
$attachmentPath = "C:\Reports\EmployeeData.xlsx"

# メール送信
Send-MailMessage -From $from -To $to -Subject $subject -Body $body -SmtpServer $smtpServer -Port $smtpPort -UseSsl -Credential $credential -Attachments $attachmentPath

# 複数ファイルを添付する場合
$attachments = @("C:\Reports\EmployeeData.xlsx", "C:\Reports\DepartmentData.xlsx")

Send-MailMessage -From $from -To $to -Subject $subject -Body $body -SmtpServer $smtpServer -Port $smtpPort -UseSsl -Credential $credential -Attachments $attachments

# 添付ファイルの存在を確認
if (Test-Path $attachmentPath) {
    # ファイルが存在する場合はメールを送信
    Send-MailMessage -From $from -To $to -Subject $subject -Body $body -SmtpServer $smtpServer -Port $smtpPort -UseSsl -Credential $credential -Attachments $attachmentPath
    Write-Output "メールが送信されました。"
} else {
    # ファイルが存在しない場合のエラーメッセージ
    Write-Error "指定したファイルが存在しません: $attachmentPath"
}

# HTMLメールとして送信
$htmlBody = @"
<h1>PowerShellによるレポート送信</h1>
<p>添付ファイルとして、最新のExcelレポートをお送りします。</p>
"@

Send-MailMessage -From $from -To $to -Subject $subject -Body $htmlBody -BodyAsHtml -SmtpServer $smtpServer -Port $smtpPort -UseSsl -Credential $credential -Attachments $attachmentPath

try {
    # 添付ファイル付きでメールを送信
    Send-MailMessage -From $from -To $to -Subject $subject -Body $body -SmtpServer $smtpServer -Port $smtpPort -UseSsl -Credential $credential -Attachments $attachmentPath
    Write-Output "メールが正常に送信されました。"
} catch {
    Write-Error "メール送信中にエラーが発生しました: $_"
}

# Excelファイルを作成するためのデータ
$data = @(
    @{ Name = "John Doe"; Age = 30; Department = "Sales" }
    @{ Name = "Jane Smith"; Age = 28; Department = "Marketing" }
    @{ Name = "Mike Johnson"; Age = 35; Department = "HR" }
)

# 保存先ファイルパス
$filepath = "C:\Reports\EmployeeReport_$(Get-Date -Format 'yyyyMMdd').xlsx"

# Excelファイルにデータを書き込む
$data | Export-Excel -Path $filepath -AutoSize

# メール送信情報
$smtpServer = "smtp.gmail.com"
$smtpPort = 587
$from = "your-email@gmail.com"
$to = "recipient-email@example.com"
$subject = "毎日のPowerShellレポート"
$body = "最新のレポートを添付ファイルとして送信します。"

# 認証情報
$username = "your-email@gmail.com"
$password = "your-email-password"
$securePassword = ConvertTo-SecureString $password -AsPlainText -Force
$credential = New-Object System.Management.Automation.PSCredential($username, $securePassword)

# 添付ファイルのパス
$attachmentPath = $filepath

# メール送信
Send-MailMessage -From $from -To $to -Subject $subject -Body $body -SmtpServer $smtpServer -Port $smtpPort -UseSsl -Credential $credential -Attachments $attachmentPath

try {
    # メール送信処理
    Send-MailMessage -From $from -To $to -Subject $subject -Body $body -SmtpServer $smtpServer -Port $smtpPort -UseSsl -Credential $credential -Attachments $attachmentPath
    Write-Output "レポートが正常に送信されました。" | Out-File "C:\Scripts\Logs\ReportLog.txt" -Append
} catch {
    Write-Error "メール送信中にエラーが発生しました: $_" | Out-File "C:\Scripts\Logs\ErrorLog.txt" -Append
}

# 不要な重複処理を排除
$employees = Get-Content "C:\Data\employees.csv"

# 一度だけファイルを読み込んで、その後は使い回し
$data = $employees | Where-Object { $_.Age -gt 30 }

# 必要な処理を変数で再利用
$attachmentPath = "C:\Reports\EmployeeData_$(Get-Date -Format 'yyyyMMdd').xlsx"

# 非同期でメール送信を実行
$job = Start-Job -ScriptBlock {
    Send-MailMessage -From "your-email@gmail.com" -To "recipient@example.com" -Subject "レポート送信" -Body "レポートを送信します。" -Attachments "C:\Reports\EmployeeReport.xlsx"
}

# 非同期処理を待機
$job | Wait-Job
$job | Receive-Job
Remove-Job -Job $job

try {
    # 重要な処理
    $data | Export-Excel -Path "C:\Reports\EmployeeData.xlsx"
    Write-Output "Excelファイルが正常に作成されました。"
} catch {
    # エラーハンドリング
    Write-Error "エラーが発生しました: $_"
    # エラーをログに記録
    $_ | Out-File "C:\Logs\error_log.txt" -Append
}

# ログファイルに成功メッセージを追加
Write-Output "$(Get-Date -Format 'yyyy-MM-dd HH:mm:ss') - レポートが正常に送信されました。" | Out-File "C:\Logs\activity_log.txt" -Append

# エラーログを記録
try {
    # メール送信処理
    Send-MailMessage -From $from -To $to -Subject $subject -Body $body -Attachments $attachmentPath
} catch {
    # エラーログに記録
    Write-Error "$(Get-Date -Format 'yyyy-MM-dd HH:mm:ss') - メール送信エラー: $_" | Out-File "C:\Logs\error_log.txt" -Append
}