Outlook VBAとChatGPTの連携で作業を効率化しよう！

2025.02.01

皆さん、こんにちは！

今日は、Outlook VBAとChatGPTを組み合わせて、日々のメール管理をもっと効率的にする方法をご紹介します。プログラミング初心者の方でも大丈夫。わかりやすく解説していきますので、ぜひ最後までご覧ください。

Outlook VBAとは？
ChatGPTとは？
Outlook VBAとChatGPTの連携方法
よくある質問や疑問
1. Q1: VBAのコードがタイムアウトエラーを起こします。どうすればいいですか？
2. Q2: ChatGPTをExcelで使う方法はありますか？
まとめ

Outlook VBAとは？

まず、Outlook VBAについてお話ししましょう。

VBAとは「Visual Basic for Applications」の略で、Microsoftのアプリケーションを自動化するためのプログラミング言語です。Outlook VBAを使うと、メールの自動仕分けや定型文の送信など、日常の業務を自動化できます。

ChatGPTとは？

次に、ChatGPTについてです。ChatGPTは、OpenAIが開発した高度なAIモデルで、人間のような自然な文章を生成することができます。これを活用すれば、メールの内容を自動で生成したり、返信の提案を受けたりすることが可能になります。

Outlook VBAとChatGPTの連携方法

では、具体的にOutlook VBAとChatGPTをどのように連携させるかを見ていきましょう。

OpenAI APIの取得：まず、OpenAIのAPIキーを取得します。これは、ChatGPTを利用するための鍵となるものです。
VBAでHTTPリクエストを作成：次に、VBAでHTTPリクエストを作成します。これにより、OutlookからChatGPTにデータを送信し、返信を受け取ることができます。
ChatGPTからの応答を処理：最後に、ChatGPTからの応答を受け取り、それをメールの本文や件名に反映させます。

具体的なコード例としては、以下のようになります：

/* VBAコード */

Sub SendToChatGPT()

    Dim http As Object

    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    Dim apiEndpoint As String

    apiEndpoint = "https://api.openai.com/v1/chat/completions"
    Dim apiKey As String

    apiKey = "YOUR_API_KEY" ' ここに取得したAPIキーを入力してください
    Dim requestBody As String

    requestBody = "{""model"":""gpt-3.5-turbo"",""messages"":[{""role"":""user"",""content"":""こんにちは、今日の天気は？""}]}"
    With http

        .Open "POST", apiEndpoint, False

        .setRequestHeader "Content-Type", "application/json"

        .setRequestHeader "Authorization", "Bearer " & apiKey

        .send requestBody

        Dim response As String

        response = .responseText

    End With