Тема: VBA: Добавить событие в календарь Outlook
Кто нибудь задавался таким вопросом. Есть ли такая возможность?
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Серый форум → Общение → VBA (Visual Basic for Applications) → VBA: Добавить событие в календарь Outlook
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Кто нибудь задавался таким вопросом. Есть ли такая возможность?
Ganzales, какой язык?
Ну хотелось бы обойтись стредствами VBA, написать некий макрос, который будет забивать события из Excel документа.
Вот нашел такую статью: Работа с сообщениями и контактами из VBA - AskIt.RU
Не вижу только объекта для элемента "Событие", есть для Встречи, в принципе можно организовать через него, но много чего лишнего получиться.
Ganzales, ну Вам-то напоминать про необходимость оформления ссылок тэгами … Я оформил.
Ganzales, ну Вам-то напоминать про необходимость оформления ссылок тэгами … Я оформил.
Спасибо огромное)) Испарвлюсь)
Вобщем нашел вот такой пример создания совещания:
Sub test2()
Set myItem = Application.CreateItem(1) 'Create an appointment
myItem.MeetingStatus = 1 'Appointment is a meeting
myItem.Subject = "Marketing Strategy Meeting"
myItem.Location = "Conference Room B"
myItem.Start = #2/14/2011 6:30:00 PM#
myItem.Duration = 90
MyAttendee = InputBox("Enter name of Required Attendee")
If MyAttendee <> "" Then
Set myRequiredAttendee = myItem.Recipients.Add(MyAttendee)
myRequiredAttendee.Type = 1 'Required
End If
MyAttendee = InputBox("Enter name of Optional Attendee")
If MyAttendee <> "" Then
Set myOptionalAttendee = myItem.Recipients.Add(MyAttendee)
myOptionalAttendee.Type = 2 'Optional
End If
myItem.Send
End Sub
Есть знатоки VBA, как обратиться к объекту оутлука из екселя?
Либо поздним связыванием:
Set objOutlook = WScript.CreateObject("Outlook.Application")
либо ранним, установив ссылку на «Microsoft Outlook XXX Object Library», и объявив переменную:
Dim objOutlook As Outlook.Application
Для VBA раннее связывание удобнее для программирования.
Конечно прошу прощения, но можно на пальцах)
Sub test2()
Set myItem = Application.CreateItem(1) 'Create an appointment
myItem.MeetingStatus = 1 'Appointment is a meeting
myItem.Subject = "Marketing Strategy Meeting"
myItem.Location = "Conference Room B"
myItem.Start = #2/14/2011 6:30:00 PM#
myItem.Duration = 90
MyAttendee = InputBox("Enter name of Required Attendee")
If MyAttendee <> "" Then
Set myRequiredAttendee = myItem.Recipients.Add(MyAttendee)
myRequiredAttendee.Type = 1 'Required
End If
MyAttendee = InputBox("Enter name of Optional Attendee")
If MyAttendee <> "" Then
Set myOptionalAttendee = myItem.Recipients.Add(MyAttendee)
myOptionalAttendee.Type = 2 'Optional
End If
myItem.Send
End Sub
Вот этот код сейчас работает в Outlook, но не работает в Excel. Как я понимаю
Set myItem = Application.CreateItem(1) 'Create an appointment
тут я должен создать ссылку на объект оутлука?
Наподобие:
Dim objOutlook As New Outlook.Application
Set myItem = objOutlook.CreateItem(1) 'Create an appointment
…
Во, супер, а я ходил все вокруг, да около)
А не, это я окном ошибся, вот в такую ошибку упираюсь.
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:
User-defined type not defined
---------------------------
ОК Справка
---------------------------
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться