collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 83
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 0

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 14132
  • stats Beiträge insgesamt: 68386
  • stats Themen insgesamt: 9210
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Termin in outlook Kalender eintragen  (Gelesen 614 mal)

Offline tismo

  • Access-Profi
  • **
  • Beiträge: 101
Termin in outlook Kalender eintragen
« am: März 27, 2018, 18:50:07 »
Hallo,

ich weiß, dass Thema wurde bereits beschrieben, aber ich komme trotz Suche in verschiedensten Foren nicht weiter.
Ich möchte einen Termin in Outlook in Kalender2 eintragen. Mit folgender vba erscheint der Eintrag immer nur im Haupt-Kalender.

Private Sub Befehl22_Click()

 Dim appOL As New Outlook.Application
  Dim itm As Outlook.AppointmentItem
  Dim olNS As Outlook.NameSpace
  Dim olCal As Outlook.MAPIFolder

  Set olNS = appOL.GetNamespace("MAPI")
  Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders("Kalender2")
    If Err Then
      Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders.Add("Kalender2")
      Err.Clear
   End If
  Set itm = Outlook.CreateItem(olAppointmentItem)
  itm.Start = Format(Me![Datum], "dd.mm.yyyy") & " " & Format(Me![Zeit], "hh:mm")
  itm.Duration = [Dauer]
  itm.Subject = [Ereignis] & " " & [Bezeichnung]
  itm.Save

End Sub

wo liegt mein Fehler ?

Gruß,
Lars
« Letzte Änderung: März 27, 2018, 18:59:45 von tismo »
praktisch denken - Särge schenken.
 

Offline markus888

  • Access-Profi
  • **
  • Beiträge: 249
Re: Termin in outlook Kalender eintragen
« Antwort #1 am: März 27, 2018, 19:16:49 »
Verwende die Items.add statt der CreateItem Methode.
In der VBA Hilfe finden sich Erklärungen und Beispiele falls benötigt.

LG Markus
10 Jahre Access
 

Offline tismo

  • Access-Profi
  • **
  • Beiträge: 101
Re: Termin in outlook Kalender eintragen
« Antwort #2 am: März 27, 2018, 19:39:55 »
Danke,

Problem gelöst. Hier die vba, die funktioniert  :)
Private Sub Befehl22_Click()

 Dim appOL As New Outlook.Application
  Dim itm As Outlook.AppointmentItem
  Dim olNS As Outlook.NameSpace
  Dim olCal As Outlook.MAPIFolder
 
  Set olApp = CreateObject("Outlook.Application")
  Set olNS = appOL.GetNamespace("MAPI")
  Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders("Kalender2")
    If Err Then
      Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders.Add("Kalender2")
      Err.Clear
   End If
 
  Set olApp = olApp.CreateItem(olAppointmentItem)
 
  olApp.Start = Format(Me![Datum], "dd.mm.yyyy") & " " & Format(Me![Zeit], "hh:mm")
  olApp.Duration = Format(Me![Dauer])
  olApp.Subject = [Ereignis] & " " & [Bezeichnung]
  olApp.Save
  olApp.Move olCal
 

End Sub
praktisch denken - Särge schenken.
 

Offline tismo

  • Access-Profi
  • **
  • Beiträge: 101
Re: Termin in outlook Kalender eintragen
« Antwort #3 am: März 27, 2018, 20:31:35 »
Tja, da war ich wohl etwas voreilig ...


Ich hatte eingentlich vor gehabt, dass der Nutzer über eine Liste den entsprechenen Kalender auswählen kann.

Was muss ich anstatt
Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders("Kalender2")
für 'Kalender2' einsetzen, wenn das Textfeld 'Kalender' heißt ?

Fehler gefunden:
Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders(([Kalender]))
« Letzte Änderung: März 27, 2018, 21:06:48 von tismo »
praktisch denken - Särge schenken.
 

 

Letzten Termin verschiedener Aufträge ermitteln

Begonnen von Klaus S. aus BBoard Tabelle/Abfrage

Antworten: 2
Aufrufe: 1073
Letzter Beitrag Februar 26, 2016, 08:46:53
von Klaus S. aus B
Bestelldatum+Werktage=SOLL-Termin

Begonnen von Olga8888Board Tabelle/Abfrage

Antworten: 12
Aufrufe: 1955
Letzter Beitrag Mai 18, 2017, 12:26:00
von Lachtaube
Termin wieder aus outlook löschen

Begonnen von tismoBoard Access Programmierung

Antworten: 0
Aufrufe: 2372
Letzter Beitrag Mai 05, 2011, 22:13:31
von tismo
Kalender - Termin/ToDo Verwaltung

Begonnen von ErzengelBoard Access Programmierung

Antworten: 6
Aufrufe: 5560
Letzter Beitrag Februar 26, 2012, 22:09:06
von Erzengel
Wieder Outlook Termin diesmal löschen

Begonnen von JonnyBoard Access Programmierung

Antworten: 6
Aufrufe: 2343
Letzter Beitrag Februar 21, 2014, 11:57:39
von Hondo