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

Last updated at 2024-05-30Posted at 2023-01-23

ChatGpt

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

【Q】お題はこれ

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に関連する記事

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up