none
Aktuellen Datensatz als Termin erstellen mit Access

    Frage

  • Hallo, ich weiß diese Frage wird sehr oft im Internet gestellt, ich habe für mein Problem ab noch keine wirklich gute Lösung gefunden.

    Ich habe eine Datenbank erstellt, in der Meldungen eingetragen werden, die nach einer bestimmten Zeit auslaufen. Der Benutzer gibt seinen Name, den Ort der Meldung, die Zeit wenn die Meldung aufgetreten ist und die Zeit wann die Meldung abläuft, sowie den Grund. Diese sollen jetzt als Termin in Outlook übertragen werden. Also als Titel: den Ort und die Uhrzeit, als Startzeit: das Auslaufdatum/Uhrzeit, Dauer: 1h als Ort: den Ort der Meldung usw.

    Das selbe habe ich schon in Excel implementiert, dort werden die Daten nebeneinander eingelesen und als Termin exportiert, in Access konnte ich bisher nur einen Termin erstellen, der automatisch den ersten Datensatz (statt des aktuellen) nach Outlook exportiert. Hier einmal den Code den ich mithilfe des Excelcodes und Internetsuche zusammengestellt habe.

    Sub NachOutlook()
    
    
       Dim outDate As String
       Dim outName As String
       Dim outlocation As String
       Dim outreason As String
       Dim strcategory As String
       Dim db As DAO.Database
       Dim rst As DAO.Recordset
       Dim objFolder As Object
       Dim objOutApp As Object
       Dim objTermin As Object
       Dim objNS As Object
       
       
       outDate = Abgemeldet_bis
       outName = Operator
       outlocation = WTG
       outReason = Grund
       strcategory = "Rote Kategorie"
      
      If Termin_erstellen = True Then
      
      Set outApp = CreateObject("Outlook.Application")
      Set apptOutApp = outApp.CreateItem(1) 'olAppointmentItem)
      With apptOutApp
            .Start = Format(outDate, "dd.mm.yyyy hh:mm")
            .Duration = 1
            .Subject = "Abmeldungsende " & outlocation & " um " & Format(outDate, "hh:mm")
    
            .Location = outlocation
            .Body = "Abgemeldet durch " & outName & " Grund: " & outReason
    
            .ReminderPlaySound = True
            .ReminderMinutesBeforeStart = 20
            'Erinnerung wiederholen
            .ReminderSet = True
            .Categories = strcategory
            .Importance = 2
            'Termin speichern
            .Save
            
           
        End With
        
     
    Set apptOutApp = Nothing
    Set outApp = Nothing
    Set rst = Nothing
    Set db = Nothing
    Else
    Exit Sub
    End If
    
    End Sub
    
    
    

    Wie bekomme ich per Schaltfläche den aktuellen Datensatz aus einem Formular als Termin in Outlook? Ich hoffe ihr könnt mir helfen. Ich bin relativ neu in Access.

    Gruß

    Freitag, 18. August 2017 11:36

Alle Antworten

  • Die Felder

    Abgemeldet_bis
    Operator
    WTG
    Grund

    sind das Felder in deinem Formular mit dem Aktuellen Datensatz?

    Montag, 21. August 2017 11:23