collapse

* Benutzer Info

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

* Wer ist Online

  • Punkt Gäste: 36
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 1
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14070
  • stats Beiträge insgesamt: 67529
  • stats Themen insgesamt: 9099
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Termine in Outlook aus Tabelle  (Gelesen 250 mal)

Offline henne222

  • Newbie
  • Beiträge: 26
Termine in Outlook aus Tabelle
« am: Juli 20, 2018, 12:46:59 »
Hallo,

ich habe vor Termine die in einer Access Tabelle stehen ins Outlook zu übernehmen per Click auf einen Button.... Dafür habe ich mir dieses VBA Script geschrieben es wir kurz der erste Termin erstellt und dann wieder gelöscht.... normalerweise sollte er alle Datensätze aus der Tabelle ins Outlook übernehmen ... komme einfach nicht drauf wo der Fehler liegt...
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("tblTermine")
Set outApp = CreateObject("Outlook.Application")
Set apptOutApp = outApp.CreateItem(1) 'olAppointmentItem)

With rs
   
    Do While Not .EOF
           
        With apptOutApp
            .Start = rs!EventDate
            .Subject = rs!EventSubject
            .Save
           
           
        End With
        .MoveNext
     Loop
       

    .Close
   
End With


Set apptOutApp = Nothing
Set rs = Nothing
Set db = Nothing

ist bestimmt wieder ne Kleinigkeit und ich sehe den Wald vor lauter Bäumen nicht
 

Offline PhilS

  • Administrator
  • Access-Profi
  • *****
  • Beiträge: 360
    • Tipps zu Access, VBA, SQL und Co.
Re: Termine in Outlook aus Tabelle
« Antwort #1 am: Juli 20, 2018, 12:56:55 »
Zitat
Set apptOutApp = outApp.CreateItem(1) 'olAppointmentItem)
Das gehört in die Schleife, damit für jeden Datensatz ein neuer Termin erstellt wird.
Neues Access 2019 Feature angekündigt: Modern Charts
 

Offline henne222

  • Newbie
  • Beiträge: 26
Re: Termine in Outlook aus Tabelle
« Antwort #2 am: Juli 20, 2018, 13:04:22 »
Gott bin ich blind... vilen Dank, so haut es dann auch hin