「メール」の送信では、うまく制御できたのですが、「会議出席依頼」の送信ではエラーになりました。
メソッドまたはプロパティがありません。というエラーです。
おそらくOutlookの「会議出席依頼」の場合、Toというプロパティが存在しないということだと思いますが、
エラーを発生させないようにしたいです。どのようにすれば良いでしょうか?
参考となるVBAびコードを示していただけると助かります。何卒よろしくお願いします。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strTo As String
strTo = Item.To '宛先 エラーの発生箇所
' 件名チェック、以下省略
End Sub
Item.Classでメールアイテムかどうかを判定するのが良いかと。
If Item.Class = olMail Then
'送信するオブジェクトがメールの場合
else
'送信するオブジェクトがメール以外(例:会議室依頼)の場合
End If
Item.Classの種類は以下を参考に。通常のメールはolMail(43)、会議室依頼はolMeetingRequest(53)となります。
http://msdn.microsoft.com/en-us/library/bb208118(v=office.12).aspx
olMail 43 Represents a MailItem object.
olMeetingRequest 53 Represents a MeetingItem object that is a meeting request.
ありがとうございます!
勉強になりました。