Termine von Outlook nach Tuxcal

[Hannes123]

Hi!

Gibt es eine Möglichkeit die Termine und ggf. auch Aufgaben von Outlook bequem zum Kalender in Neutrino zu transportieren?

Gruß
Hannes

[stikx]

Es kommt darauf an, wie Du bequem definierst.
Soweit ich weis hat Outlook einen Export, den müsste man mit der tuxcal.list (Tuxcal-DB)
synchronisieren bzw. updaten und schon sind die Termine (die derzeit supported werden) im Tuxcal.
Eventuell findet sich ja jemand, der sowas für Windows/Outlook coded.
stikx

[animal]

hallo

hab mal sowas zusammengepfnöselt in VB-Script ist aber erst Montag greifbar werde es dann auf ein ulc stellen.

/hallo

bis mo

[animal]

hier das VB-Script als basis wie man aus OL termine auslesen kann (OL muss laufen)

dieser code ist nicht von mir

Code: Alles auswählen

Call subOutlookAppointments()        'Displays Outlook Tasks with a due date of today or before

Sub subOutlookAppointments

        Dim objOutlook
        Dim objNameSpace
        Dim objFolder
        Dim MyItems
        Dim CurrentAppointment
        Dim strOutput

        Const olMailItem = 0
        Const olTaskItem = 3
        Const olFolderTasks = 13
        Const olFolderCalender = 9


        'Create Outlook, Namespace, Folder Objects and Task Item
            Set objOutlook = CreateObject("Outlook.application")
            Set objNameSpace = objOutlook.GetNameSpace("MAPI")
            Set objFolder = objNameSpace.GetDefaultFolder(olFolderCalender)
            Set MyItems = objFolder.Items

            dtLastWeek = DateAdd("d", -7, date)
            dtNextWeek = DateAdd("d", +7, date)
            strOutput = strOutput & "<h2>Meetings This Week</h2>"
            icount = 0
            For Each CurrentAppointment in MyItems
	            If CurrentAppointment.Start >=  dtLastWeek And CurrentAppointment.Start <= Date Then
				icount = icount + 1
			        strOutput = strOutput & icount & ". " & CurrentAppointment.Subject & vbTab & " <b>Time:</b> " & CurrentAppointment.Start & " <b>duration</b> " & CurrentAppointment.Duration&  vbCRLF
				txtNames = txtNames & CurrentAppointment.Subject & vbTab & " <b>Time:</b> " & CurrentAppointment.Start & " <b>duration</b> " & CurrentAppointment.Duration&  vbCRLF
                    if len(CurrentAppointment.Body) > 0 then
                       strOutput = strOutput & "<blockquote><b>Notes: </b>" & CurrentAppointment.body & "</blockquote>" & vbCrLF & vbCrLF
                    else
                       strOutput = strOutput & vbCrLf
                    end if
                End If
            Next
            strOutput = strOutput & "<h2>Due Next Week</h2>"
            icount = 0
            For Each CurrentAppointment in MyItems
                If CurrentAppointment.Start > date And CurrentAppointment.Start <= dtNextWeek Then
                icount = icount + 1
                    strOutput = strOutput & icount & ". " & CurrentAppointment.Subject & vbTab & " <b>Time:</b> " & CurrentAppointment.Start & " <b>Duration</b> " & CurrentAppointment.Duration &  vbCRLF
                    if len(CurrentAppointment.Body) > 0 then
                       strOutput = strOutput & "<blockquote><b>Notes: </b>" & CurrentAppointment.body & "</blockquote>" &  vbCrLF & vbCrLF
                    else
                       strOutput = strOutput & vbCrLf
                    end if
                End If
            Next

            strOutput = strOutput & "<h2>Future Tasks</h2>"
            icount = 0
            For Each CurrentAppointment in MyItems
                If CurrentAppointment.Start >= dtNextWeek Then
                icount = icount + 1
                    strOutput = strOutput & icount & ". " & CurrentAppointment.Subject
                       strOutput = strOutput & " Due -<b> " & CurrentAppointment.Start  & "</b>" & vbCrLf
                    if len(CurrentAppointment.Body) > 0 then
                       strOutput = strOutput & "<blockquote><b>Notes: </b>" & CurrentAppointment.body & "</blockquote>" &  vbCrLF & vbCrLF
                    else
                       strOutput = strOutput & vbCrLf
                    end if
                End If
            Next
            msgbox txtNames
            
            Set objMsg =  objOutlook.CreateItem(olMailItem)

            objMsg.To = "manager@domain.com" ' your reminder notification address
            objMsg.Subject = "Status Report - " & Date()
            objMsg.Display
            strOutput = replace(strOutput,vbCrLF,"<br>")
            objMsg.HTMLBody = strOutput

        'Display results to user, if any.
'            If strOutput > "" Then
'                Msgbox strOutput, vbExclamation, "Tasks For Today"
'            Else
'                Msgbox "No Tasks Today", vbInformation,"Tasks For Today"
'            End If

        'Clean up
            Set objFolder = Nothing
            Set objNameSpace = Nothing
            set objOutlook = Nothing

            set objMsg = Nothing            
End Sub

daraus eine configdatei zu basteln ist nict mehr schwer (wers braucht