全て
| カテゴリ未分類
| 通常
| 数学
| 投資
| 副業
| 転職・就職
| ブログ
| 株Stock
| VBA
| SharePoint
| REST API
| RenderListDataAsStream
| PowerAutomateDesktop
| Graph API
| PowerApps
| PowerAutomate
| PowerFx
| OfficeScriptオフィススクリプト
| PowerAutomate日時Excel日時相互関係
| PowerShell
| Dataverse
| UiPath
| OneDrive
| LINQ
| VB.NET
| C#.NET
| WPFC#.NET
| Git
カテゴリ:VBA
Sub SendEmailFromOutlook() Dim OutlookApp As Object Dim OutlookMail As Object ' Outlookアプリケーションを作成 Set OutlookApp = CreateObject("Outlook.Application") ' 新しいメールアイテムを作成 Set OutlookMail = OutlookApp.CreateItem(0) ' メールの設定 With OutlookMail ' 件名を設定 .Subject = "メールの件名" ' 受信者のアドレスを設定 .To = "recipient@example.com" ' CCやBCCなど、必要に応じて他の受信者を設定 ' .CC = "cc@example.com" ' .BCC = "bcc@example.com" ' メールの本文を設定 .Body = "メールの本文" ' 添付ファイルを追加する場合 ' .Attachments.Add "C:\Path\To\Your\File.txt" ' メールを表示(Sendメソッドを呼び出す前にコメントアウトするか削除する) '.Display ' メールを送信 .Send End With ' オブジェクトを解放 Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub
お気に入りの記事を「いいね!」で応援しよう
Last updated
2024.01.10 18:31:51
[VBA] カテゴリの最新記事
|