Серый форум — VBA: Добавить событие в календарь Outlook

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

null@example.com (Ganzales) — Tue, 15 Feb 2011 09:23:56 +0000

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

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

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

null@example.com (Ganzales) — Tue, 15 Feb 2011 09:21:18 +0000

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

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

null@example.com (alexii) — Tue, 15 Feb 2011 08:48:17 +0000

Наподобие:

Dim objOutlook As New Outlook.Application

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

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

null@example.com (Ganzales) — Tue, 15 Feb 2011 07:21:26 +0000

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

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

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

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

null@example.com (alexii) — Tue, 15 Feb 2011 07:07:14 +0000

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

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

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

Dim objOutlook As Outlook.Application

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

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

null@example.com (Ganzales) — Tue, 15 Feb 2011 06:38:23 +0000

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

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

null@example.com (alexii) — Mon, 14 Feb 2011 15:31:03 +0000

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

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

null@example.com (Ganzales) — Mon, 14 Feb 2011 14:34:56 +0000

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

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

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

null@example.com (Ganzales) — Mon, 14 Feb 2011 13:54:41 +0000

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

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

null@example.com (alexii) — Mon, 14 Feb 2011 13:36:00 +0000

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

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

null@example.com (Ganzales) — Mon, 14 Feb 2011 13:13:05 +0000

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