1

Тема: VBA: Добавить событие в календарь Outlook

Кто нибудь задавался таким вопросом. Есть ли такая возможность?

2

Re: VBA: Добавить событие в календарь Outlook

Ganzales, какой язык?

3

Re: VBA: Добавить событие в календарь Outlook

Ну хотелось бы обойтись стредствами VBA, написать некий макрос, который будет забивать события из Excel документа.

4

Re: VBA: Добавить событие в календарь Outlook

Вот нашел такую статью: Работа с сообщениями и контактами из VBA - AskIt.RU

Не вижу только объекта для элемента "Событие", есть для Встречи, в принципе можно организовать через него, но много чего лишнего получиться.

5

Re: VBA: Добавить событие в календарь Outlook

Ganzales, ну Вам-то напоминать про необходимость оформления ссылок тэгами … Я оформил.

6

Re: VBA: Добавить событие в календарь Outlook

alexii пишет:

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, как обратиться к объекту оутлука из екселя?

7

Re: VBA: Добавить событие в календарь Outlook

Либо поздним связыванием:

Set objOutlook = WScript.CreateObject("Outlook.Application")

либо ранним, установив ссылку на «Microsoft Outlook XXX Object Library», и объявив переменную:

Dim objOutlook As Outlook.Application

Для VBA раннее связывание удобнее для программирования.

8

Re: VBA: Добавить событие в календарь Outlook

Конечно прошу прощения, но можно на пальцах)

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

тут я должен создать ссылку на объект оутлука?

9

Re: VBA: Добавить событие в календарь Outlook

Наподобие:

Dim objOutlook As New Outlook.Application

Set myItem = objOutlook.CreateItem(1) 'Create an appointment
…

10

Re: VBA: Добавить событие в календарь Outlook

Во, супер, а я ходил все вокруг, да около)

11

Re: VBA: Добавить событие в календарь Outlook

А не, это я окном ошибся, вот в такую ошибку упираюсь.
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

User-defined type not defined
---------------------------
ОК   Справка   
---------------------------