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

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

2011-02-15T09:23:56Z

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

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

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

2011-02-15T09:21:18Z

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

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

2011-02-15T08:48:17Z

Наподобие:

Dim objOutlook As New Outlook.Application

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

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

2011-02-15T07:21:26Z

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

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

2011-02-15T07:07:14Z

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

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

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

Dim objOutlook As Outlook.Application

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

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

2011-02-15T06:38:23Z

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

2011-02-14T15:31:03Z

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

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

2011-02-14T14:34:56Z

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

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

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

2011-02-14T13:54:41Z

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

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

2011-02-14T13:36:00Z

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

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

2011-02-14T13:13:05Z

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