通过Outlook发送自动电子邮件的脚本

Sub SendEmail()
    Dim olApp As Object
    Dim olMail As Object
    
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)
    
    With olMail
        .To = "recipient@example.com"
        .CC = "cc@example.com"
        .BCC = "bcc@example.com"
        .Subject = "Automated Email"
        .Body = "This is an automated email sent from Outlook."
        .Send
    End With
    
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

$ol = New-Object -ComObject Outlook.Application
$mail = $ol.CreateItem(0)
$mail.To = "recipient@example.com"
$mail.CC = "cc@example.com"
$mail.BCC = "bcc@example.com"
$mail.Subject = "Automated Email"
$mail.Body = "This is an automated email sent from PowerShell."
$mail.Send()