仕事で使うREDMINEに関する考察(7)

# ChatGpt

最近、CHATGPTにコードを書かせるのが流行っていますね。そんな訳で私もやってみました。

https://www.youtube.com/watch?v=WgIFNcbYl9I

【Q】お題はこれ

https://qiita.com/EasyCording/items/6adcdad79b1295c28811


``` I want to write programing code of VBA, Which get outlook mail and push button and send to post through redmine api```

【A】

```demo.v
Sub SendEmailToRedmine()
    Dim outlookApp As Outlook.Application
    Dim outlookMail As Outlook.MailItem
    Dim redmineUrl As String
    Dim redmineApiKey As String

    Set outlookApp = New Outlook.Application
    Set outlookMail = outlookApp.CreateItem(olMailItem)

    ' configure the email
    outlookMail.To = "example@example.com"
    outlookMail.Subject = "Test email"
    outlookMail.Body = "This is a test email"

    ' add the button to the email
    Set btn = outlookMail.GetInspector.ModifiedFormPages.Add("Button1")
    btn.Caption = "Send to Redmine"
    btn.OnClick = "SendToRedmine"

    ' show the email
    outlookMail.Display

    ' function to handle the button click
    Sub SendToRedmine()
        ' specify the Redmine URL and API key
        redmineUrl = "https://redmine.example.com"
        redmineApiKey = "your_api_key"

        ' construct the request
        Set http = CreateObject("MSXML2.XMLHTTP")
        http.Open "POST", redmineUrl & "/issues.json", False
        http.setRequestHeader "Content-Type", "application/json"
        http.setRequestHeader "X-Redmine-API-Key", redmineApiKey

        ' send the request
        http.Send (outlookMail.Subject & outlookMail.Body)
    End Sub
End Sub
```


This is just a sample code and you need to modify the url and key of your redmine server, also you might need to import libraries like "Microsoft Outlook xx.x Object Library" and "Microsoft XML, v6.0" to run this code.

Please note, this is a simple example and you may need to add additional error handling and validation to your code to suit your needs.

# 結果
　自分でやりたいことを、さくっと見本を見せてくれる。
　最高やないですかあ。。。。
　　

# ついでに

こんな質問しました。

```上記のコードを紹介するブログ記事を書いてください。タイトルは、「仕事で使うREDMINEに関する考察(7)」。最後には初心者向けのアドバイスと、VBAの展望も教えてください。```



>「仕事で使うREDMINEに関する考察(7)」
>
>仕事でREDMINEを使う上で、Outlookから直接投稿する方法について考察します。
>
>OutlookからREDMINEに投稿するには、VBAを使って、Outlookから送信したメールにボタンを追加し、そのボタンをクリックすることで>REDMINEに投稿することができます。
>
>以下は、OutlookからREDMINEに投稿するためのVBAのサンプルコードです。

中略

>このサンプルコードは、Outlookから送信したメールにボタンを追加し、そのボタンをクリックすることでREDMINEに投稿するという基本的な流れを示しています。

>注意点としては、このサンプルコードを実行するためには、「Microsoft Outlook xx.x Object Library」や「Microsoft XML, v6.0」のライブラリをインポートする必要があることと、実際には、追加の処理が必要です。（


# まとめ

ああ、記事まで書いてくれるんですね。
ひょっとして、私の出る幕なしですか？

いずれにしろ、これから世界がヤバくなるのは確実です。

# 参考
- Redmineに関連する記事
1. [仕事で使うREMINEに関する考察（１９）](https://qiita.com/EasyCording/items/6ca2cb52a654df882598) 
2. [WIKI一発記入　仕事で使うREDMINEに関する考察(18)](https://qiita.com/EasyCording/items/a7d6adc1ab5b1d41a95f) 
3. [CHATGPTにてRedmine view customizerのHTML要素を生成する(4)](https://qiita.com/EasyCording/items/e04b73d185bb406cdf7a) 
4. [チケット運用の盲点　仕事で使うREDMINEに関する考察(17)](https://qiita.com/EasyCording/items/f1a802a1b8c334c34828) 
5. [CHATGPTにてRedmine view customizerのHTML要素を生成する(3)](https://qiita.com/EasyCording/items/752332e2883ce666460c) 
6. [CHATGPTにてRedmine view customizerのHTML要素を生成する(2)](https://qiita.com/EasyCording/items/90e2708aadcd3c1ae917) 
7. [CHATGPTにてRedmine view customizerのHTML要素を生成する(1)](https://qiita.com/EasyCording/items/6740c3ba7117ee18c2a9) 
8. [CHATGPT便りの開発方針　仕事で使うREDMINEに関する考察(16)](https://qiita.com/EasyCording/items/cab4dbb6c36820727f69) 
9. [チケットからTODO作業へ落とし込み　仕事で使うREDMINEに関する考察(15)](https://qiita.com/EasyCording/items/6fe972110b39117b91ae) 
10. [仕事で使うREDMINEに関する考察(14)](https://qiita.com/EasyCording/items/a76b7fe02f8d5ecefe5e) 
11. [CHATGPT利活用　仕事で使うREDMINEに関する考察(12)](https://qiita.com/EasyCording/items/857b7cf12b7dd091ff82) 
12. [やりたいことを少しずつ　仕事で使うREDMINEに関する考察(11)](https://qiita.com/EasyCording/items/b9d939a861c06bb57f18) 
13. [組織を巻き込むプレゼン資料　仕事で使うREDMINEに関する考察(10)](https://qiita.com/EasyCording/items/605a860e5a4d66011747) 
14. [OfficeのフローにREDMINEをねじ込む　仕事で使うREDMINEに関する考察(9)](https://qiita.com/EasyCording/items/e63cbe486b08f99e1702) 
15. [RedmineチケットにCHATGPTを実装（超簡単）](https://qiita.com/EasyCording/items/20439251ad82d492d654) 
16. [RedmineのチケットにCHATGPTを実装（２）](https://qiita.com/EasyCording/items/3df63dcbb7e1f9f2d14e) 
17. [Office365からRedmineへのメール送信してチケット登録](https://qiita.com/EasyCording/items/3176b4020954e2eddbb6) 
18. [Redmineプラグイン開発](https://qiita.com/EasyCording/items/5e837a3425d3df8bfb0c) 
19. [RedmineをTODOリストに使う　仕事で使うREDMINEに関する考察(8)](https://qiita.com/EasyCording/items/bbf470b09a08d06b87f3) 
20. [仕事で使うREDMINEに関する考察(7)](https://qiita.com/EasyCording/items/3260595d70a86c21308e) 
21. [仕事で使うREDMINEに関する考察(6)](https://qiita.com/EasyCording/items/c2c3a5850941f45d1317) 
22. [仕事で使うREDMINEに関する考察(5)](https://qiita.com/EasyCording/items/f46ce0718f005f8b4d96) 
23. [仕事で使うREDMINEに関する考察(4)](https://qiita.com/EasyCording/items/e2f6fffde3d8e0a0012b) 
24. [仕事で使うREDMINEに関する考察(3)](https://qiita.com/EasyCording/items/44dd27c6b897b0d7d82b) 
25. [仕事で使うREDMINEに関する考察(2)](https://qiita.com/EasyCording/items/7f8fbba0553635a7421d) 
26. [仕事で使うREDMINEに関する考察](https://qiita.com/EasyCording/items/c3b62c9e5ca3f0cc379f)