collapse

* Benutzer Info

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

* Wer ist Online

  • Punkt Gäste: 64
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 2
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14038
  • stats Beiträge insgesamt: 67220
  • stats Themen insgesamt: 9067
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

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

Offline tismo

  • Access-User
  • *
  • Beiträge: 92
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: 206
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-User
  • *
  • Beiträge: 92
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-User
  • *
  • Beiträge: 92
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.