VBAでメール本文から文章を抽出したく、下記サイトを参考に実行したのですがエラーになり、原因が分かりません。
https://tonari-it.com/outlook-vba-mailitem-body/
エラーメッセージ
コンパイルエラー ユーザー定義型は定義されていません
ソースコード
Sub Get_MailBody()
Dim objItem As Object
Dim objIns As Inspector
Dim lngStart As Long
Dim lngEnd As Long
Set objIns = Application.ActiveInspector
Set objItem = objIns.CurrentItem
With objItem MsgBox Mid(objItem.Body, Len("【作業時間】") + 1, (InStr(objItem.Body, vbCrLf) - Len("【作業時間】") + 1)) End With
End Sub
試したこと
参照設定での定義がされていないのではないかと、下記画像の箇所にチェックを入れました。
使用しているのはOffice 2013です。
エラーの原因をご教示頂けると幸いです。
>使用しているのはOffice 2013です。
OutlookのVBAで本文を取り出そうとしているのでしょうか?
そうならば参照設定が不要でしょうし、
ほかのアプリからメールを取り出したいなら、
参照設定が必要になります。
Officeというのは各アプリのセット?パッケージ?の総称?
Outlookのメール本文の中から欲しい情報を抽出して、エクセルの指定したセルに出力したいです。
Microsoft Officeの2013年版を使用しています。
エクセルのVBAを使うイメージで質問したのですが、この回答を頂いて私が操作しようとしていたものがOutlook VBAだったことに気づきました。
Excelからメールにアクセスするなら、どのフォルダのどんなメールを探したいのでしょう?
そこまでのサンプルが必要でしょうか?
Webで検索したらサンプルが転がっていそうだとは思いますが。