2

このExcel VBAコードでは、Outlookで新しい予定を作成しようとしています。その予定をメールで送信したい、つまりユーザーを予定に招待したいのです。
このことのために新しい outlook.recipients オブジェクトを作成する必要があるかどうか、または .Recipeint.Add プロパティを適切に使用していないかどうかはわかりません。

Sub app()

    Dim OutApp As Outlook.Application 
    Dim OutMail As Outlook.AppointmentItem 

    Set OutApp = New Outlook.Application
    Set OutMail = OutApp.CreateItem(olAppointmentItem)

    With OutMail

       .Location = " happening"
       .Subject = " Event check "
       .Start = "8:00 PM" & Format(Date)
       .End = "9:00 PM" & Format(Date)
       .Body = "this is event details"
       .Recipients.Add ("someone@gmail.com") ' This line is not working
      ' .Display
       .Send

    End With

End Sub

アプリケーション定義またはオブジェクト定義のエラーが発生しています。前もって感謝します。

4

2 に答える 2

3

予約は個人的なものであり、あなただけのものです。

受信者を追加する前に、まず会議に変更する必要があります。

これを行うにはAppointmentItem.MeetingStatus = olMeeting、コードに追加します。したがって、コードの場合は次のようになります

Sub app()
Dim OutApp As Outlook.Application 
Dim OutMail As Outlook.AppointmentItem 

Set OutApp = New Outlook.Application
Set OutMail = OutApp.CreateItem(olAppointmentItem)

With OutMail
   .MeetingStatus = olMeeting
   .Location = " happening"
   .Subject = " Event check "
   .Start = "8:00 PM" & Format(Date)
   .End = "9:00 PM" & Format(Date)
   .Body = "this is event details"
   .Recipients.Add ("someone@gmail.com") ' This line is not working
  ' .Display
   .Send

End With
End Sub
于 2013-10-25T17:00:41.903 に答える
0

このようなポップアップが表示されますか？

ここに画像の説明を入力

その場合、[拒否] をクリックしている場合は、それがエラーの原因である可能性があります。これは、ハッカーが Outlook オブジェクト モデルを介して電子メール受信者にアクセスするのを防ぐために、オブジェクト モデル ガードが配置されているために発生します。この記事を参照してください。

http://msdn.microsoft.com/en-us/library/office/ff864479%28v=office.14%29.aspx

于 2013-10-25T17:15:49.440 に答える