Wezwanie na spotkanie lub wydarzenie kalendarzowe

Poniższy artykuł przedstawia kod, dzięki któremu użytkownik może utworzyć wezwanie na spotkanie dla określonych adresatów lub utworzyć wydarzenie kalendarzowe.

Różnica pomiędzy wezwaniem a wydarzeniem polega na umieszczeniu w pierwszym przypadku adresatów (przygotowanie wiadomości do wysłania, która osadzi się w kalendarzu odbiorcy). O ile przedstawiona funkcja nie będzie zawierała adresów email to utworzone zostanie wydarzenie gotowe do zapisania po akceptacji „Zapisz i zamknij” w kalendarzu inicjatora.

Poniższe ekrany pokazują przyporządkowanie adresatów, jako obserwatorów bądź też osoby, które są zobowiązane do stawienia się na spotkaniu:

Rys 1. Widok wezwania na spotkanie, które zawiera inicjatora (nadawcę) oraz trzy osoby towarzyszące.

Poniższy kod funkcji zawiera osobny parametr dla osób, które są zobligowane do odbycia spotkania, jak i osoby poinformowane, które mogą, ale nie muszą się na nim stawić. Takimi osobami są obserwatorzy m@m.com oraz k@m.com.

Sub Wywołanie_testowe()
    If OutlookZaproszenie_lub_wydarzenie(Temat:="Spotkanie z MrX", _
                                         Poczatek:="2011-05-18 17:00", _
                                         Dlugosc:=15, _
                                         Miejsce:="Budynek 123", _
                                         Adresat:="adres@vbatools.pl", _
                                         Adresat_opc:="m@m.com, k@m.com", _
                                         Tresc:="Spotkajmy się aby omówić sprawy") = False Then _
       MsgBox "Brak możliwości wysłania wiadomości!", vbExclamation, "VBATools.pl"
End Sub

Function OutlookZaproszenie_lub_wydarzenie(Temat$, Poczatek As Date, Dlugosc&, Optional Miejsce$, _
                                           Optional Adresat$, Optional Adresat_opc$, _
                                           Optional Tresc$) As Boolean
                                           
    Dim oAppointment As Outlook.AppointmentItem
    Dim oOutlook As Outlook.Application
    Dim sAdresat() As String, sAdresat_opc() As String, x&, m&, h&
   
    On Error GoTo blad
        h = Dlugosc \ 60: m = Dlugosc Mod 60
   
    Set oOutlook = New Outlook.Application
    Set oAppointment = Outlook.CreateItem(olAppointmentItem)
   
    With oAppointment
        .Subject = Temat
        .Start = Poczatek
        .End = Poczatek + CDate(CStr(h) & ":" & CStr(m) & ":00")
        .LOCATION = Miejsce
        .Body = Tresc
    
        If Len(Adresat) > 0 Or Len(Adresat_opc) > 0 Then
            .MeetingStatus = olMeeting
            Adresat = Replace(Adresat, ";", ",")
            sAdresat = Split(Adresat, ",")
            For x = 0 To UBound(sAdresat)
                If sAdresat(x) Like "*@*.*" Then
                  .Recipients.Add(sAdresat(x)).Type = 1
                End If
            Next
            Adresat_opc = Replace(Adresat_opc, ";", ",")
            sAdresat_opc = Split(Adresat_opc, ",")
            For x = 0 To UBound(sAdresat_opc)
                If sAdresat_opc(x) Like "*@*.*" Then
                  .Recipients.Add(sAdresat_opc(x)).Type = 2
                End If
            Next
            .Display '.Send
        Else
            .MeetingStatus = olNonMeeting
            .Display '.Save
        End If
    End With
   
    Set oAppointment = Nothing
    Set oOutlook = Nothing
    OutlookZaproszenie_lub_wydarzenie = True
    Exit Function

blad:
    Debug.Print "VBATools.pl Error nr " & Err.Number & vbCr & Err.DESCRIPTION
    OutlookZaproszenie_lub_wydarzenie = False
End Function

Niżej przedstawiona procedura tworzy na podstawie powyższej funkcji wydarzenie kalendarzowe.

Sub Wywołanie_testowe_wydarzenia()
    If OutlookZaproszenie_lub_wydarzenie(Temat:="Spotkanie z MrX", _
                                         Poczatek:="2011-05-18 17:00", _
                                         Dlugosc:=15, _
                                         Miejsce:="Budynek 123", _
                                         Tresc:="Spotkanie uzgodnienia spraw") = False Then _
       MsgBox "Brak możliwości wysłania wiadomości!", vbExclamation, "VBATools.pl"
End Sub

Rys 2. Widok wydarzenia kalendarzowego, gotowego do zapisania w kalendarzu.

Powyższe funkcje można wykorzystać przy budowie interfejsu lub wywoływać z przycisku menu.
W przypadku braku doświadczenia w instalacji makr polecam artykuł Instalacja i uruchamianie makr.

MVP Shon Oskar – VBATools.pl
Jeśli masz pytania dot. tego artykułu zapraszam na Forum
Skonfiguruj swój pakiet dodatków do Excela, Worda, PowerPointa i Outlooka

© Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.

Dodaj Wezwanie na spotkanie lub wydarzenie kalendarzowe Wezwanie na spotkanie lub wydarzenie kalendarzowe

wyświetleń: 9431