Aus Excel einen Termin in einem öffentlichen Outlook Kalender erstellen!

  • Sonstige

    Aus Excel einen Termin in einem öffentlichen Outlook Kalender erstellen!

    Hallo

    Ich bin was das VBA Programmieren angeht ein richtiger Neuling und komme da bei einer Sache nicht mehr weiter.

    Ich versuche aus einem UserForm heraus eine Exel Tabelle zu erstellen und anhand von dieser im Outlook Kalender einen Termin zu erstellen. So weit bin ich schon gekommen! Mein Problem ist aber, dass ich nicht meinen eigenen Kalender ansteuern möchte sondern einen andern öffentlichen (freigegebenen) Kalender hier in unserem Netzwerk (Name Autoreservation)

    Vielleicht kann mir ja jemand von Euch weiterhelfen! Hoffe zu diesem Thema gibt's noch keine Einträge, konnte nichts finden! Vielen Dank und lieber Gruss aus der Schweiz... Böbi

    Folgendes konnte ich Dank dem WWW schon zusammenbasteln:

    Visual Basic-Quellcode

    1. Private Sub CommandButton1_Click()
    2. Dim letzte_Zeile As Long
    3. letzte_Zeile = Range("A65536").End(xlUp).Offset(1, 0).Row
    4. Cells(letzte_Zeile, 1) = TextBox1
    5. Cells(letzte_Zeile, 2) = TextBox2
    6. Cells(letzte_Zeile, 3) = TextBox3
    7. Cells(letzte_Zeile, 4) = TextBox4
    8. SendKeys "{TAB}"
    9. SendKeys "{TAB}"
    10. Unload UserForm1
    11. Dim OutApp As Object, apptOutApp As Object
    12. 'Hie fö d'Termine a
    13. Range("A2").Select
    14. Do Until ActiveCell.Value = ""
    15. Set OutApp = CreateObject("Outlook.Application")
    16. Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
    17. With apptOutApp
    18. 'Datum und Zyt
    19. 'So wird genau ä Wuche später am achti dr Termin ersteut!
    20. '.Start = Format(Now() + 7, "dd.mm.yyyy") & " 08:00"
    21. 'Oder mi nimt der Termin us dr Zäuä
    22. .Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " 08:00"
    23. 'Infos zum Termin ir spaute rächts näb em Termin!
    24. .Subject = ActiveCell.Offset(0, 1)
    25. 'Zusätzleche Text Ärztliche Bestimmung
    26. .Body = ActiveCell.Offset(0, 3)
    27. 'Zuesätzleche Text dr Ort
    28. .Location = ActiveCell.Offset(0, 2)
    29. 'Erinnerig ???
    30. .ReminderMinutesBeforeStart = 10
    31. 'mit oder ohni Sound
    32. .ReminderPlaySound = True
    33. 'Erinnerig widerhole
    34. .ReminderSet = True
    35. 'und no dr Termin spichere
    36. .Save
    37. End With
    38. 'Nächschti Zäuä
    39. ActiveCell.Offset(1, 0).Select
    40. 'Variablen lääääärreeeee
    41. Set apptOutApp = Nothing
    42. Set OutApp = Nothing
    43. Loop
    44. MsgBox "Hopp BSCYB"
    45. End Sub
    47. Private Sub CommandButton2_Click()
    48. Unload UserForm1
    49. End Sub
    52. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    53. If CloseMode = 0 Then
    54. Cancel = 1
    55. MsgBox "Bitte Schaltfläche 'Abbruch' zum Schließen benutzen.", _
    56. vbOKOnly + vbInformation, "Bitte Schaltfläche betätigen."
    57. End If
    59. End Sub


    Edit by Agent: VB-Tag eingefügt und verschoben -> VBA

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Agent“ ()