Outlookマクロ ~メール返信時に行頭の引用符を削除~
お題からしてニッチ。ただその名のとおり。
最近Outlookのマクロを勉強したいなと思いつつ、Excelのように参考書がなく結局手つかず。
必要に迫られネットで拾ってきては断片的に知識を入れるという感じ。
今回のテーマもそんな最近追加したマクロの一つ。
リンク先が記載されためメールに返信すると「> 」が行頭に追加される設定にしているため、せっかくのリンクにクリックで飛べない。
そこで、行頭に引用符が追加されたり、行末に不要な改行が追加されたリンクを修正してもとの形に修正するというもの。
必要な箇所をコピーしてマクロを実行、修正したものがペーストされる。
Sub restore_path() Dim data_obj As New DataObject Dim path As String, indent As String data_obj.GetFromClipboard path = data_obj.GetText indent = "> " path = Replace(path, vbNewLine, "") path = Replace(path, indent, "") data_obj.SetText path data_obj.PutInClipboard sendkeys "^(v)" End Sub
いつもながら先人の知恵を参考にほぼコピペさせてもらっています。
https://q.hatena.ne.jp/1195023344
Excelと比べてOutlookマクロの不満な点でもあるが、ショートカットキーの割当ができない。
仕方なくクイックアクセスツールバーに追加してAltキー+数字キーで我慢しているが、今後マクロが増えてった時に必要なマクロを選択するのが煩わしくなりそう。
メール送信時等の特定イベント時に自動実行されるマクロ?で処理するのがベストなんだろうか。
素人過ぎてわからないので、少しずつだが取り組んでいかねばと思う。
以上