Не удается отправить встречу календаря Outlook в VBScript - PullRequest
Новая
       9

Не удается отправить встречу календаря Outlook в VBScript

0 голосов
/ 15 мая 2018

У меня есть немного кода, который отлично работает в VBA (например, Excel), но не работает в VBScript. VBScript не выдает никаких ошибок и сообщает, что код завершается с кодом выхода 0, то есть проблем нет. Если у вас установлен Outlook, вы, вероятно, можете вставить этот код как есть в Excel VBA, и он запустится (хотя тот, у кого есть учетная запись somebody@gmail.com, будет в вашем календаре.) Что мне не хватает ??

Спасибо! 

Sub main()
    SendCalendarAppt "strSubject", "strBody", "strLocation", "someone@gmail.com", Now()
End Sub

Sub SendCalendarAppt(strSubject, strBody, strLocation, strAttendees, datDateTime)

Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Const olAppointmentItem = 1
Const olMeeting = 1
Const olNonMeeting = 0

   Set objOL = CreateObject("Outlook.Application")
   Set objAppt = objOL.CreateItem(olAppointmentItem)

   objAppt.Subject = strSubject
   objAppt.Start = datDateTime
   objAppt.End = datDateTime + 1
   objAppt.Location = strLocation
   objAppt.RequiredAttendees = strAttendees
   objAppt.MeetingStatus = olMeeting
   objAppt.Send

  Set objAppt = Nothing
  Set objOL = Nothing

End Sub
...