【必読】パワポ本15選 👉

【パワポVBA】Outlookを起動してメール送信するマクロ

PowerPoint VBAを使い、Outlookを起動してメール送信するマクロをご紹介します。

件名と本文を任意の文字列で設定し、指定した宛先へ自動でメール送信します。

スポンサーリンク
スポンサーリンク

Outlookを起動してメール送信するマクロ

Sub SendEmail()
'Outlookを新規で起動 Dim objOutlook As Object Set objOutlook = CreateObject("Outlook.Application") 'メール作成 Dim objEmail As Object Set objEmail = objOutlook.CreateItem(0) '宛先、件名、本文の設定 With objEmail .To = "送信先アドレス" .Subject = "件名" .body = "本文" End With 'メール送信 objEmail.Send 'オブジェクトの解放 Set objEmail = Nothing Set objOutlook = Nothing
End Sub

宛先、件名、本文を自分のものに置き換えて実行すると、Outlookを起動して指定された宛先にメールが送信されます。

  • メールを自動送信するには、デスクトップ版のOutlookにログインした状態で実行する必要があります。

マクロの使い方は、次の記事で解説しています。

PowerPointマクロ入門 | コピペで始める楽々コース

PowerPointマクロ入門 | コピペで始める楽々コース
PowerPointでマクロを始めたいけど、難しそうでよく分からないという方向けの入門編です。PPD…

超効率化マクロ10選!

ChatGPTで開発したマクロを含めた超効率化マクロ集です。AIを使ってマクロ開発したい方のご参考になれば幸いです。

詳細は、次の記事で解説しています。

PowerPoint超効率化マクロ10選!無駄作業からの解放

PowerPoint超効率化マクロ10選!無駄作業からの解放
PowerPointを使っていると同じ作業を繰り返したり、手動での作業に時間がかかってしまうことがあ…