Beiträge von Therion

Ich hätte da 'nur' VB im Angebot:

Imports Outlook = Microsoft.Office.Interop.Outlook
Public Class CalReader
  Dim objOL As Outlook.Application = New Outlook.Application
  Dim objNS = objOL.GetNamespace("MAPI")
  Sub KalenderLesen(Rcpnt As String)
    Dim myRecipient As Outlook.Recipient = objNS.createrecipient(Rcpnt)
    myRecipient.Resolve()
    Dim SharedFolder As Folder
    Dim Termine As New List(Of Outlook.AppointmentItem)
    If myRecipient.Resolved Then
      SharedFolder = objNS.GetSharedDefaultFolder(myRecipient, 9) ' 9 = Kalenderordner
      Dim oItems = SharedFolder.Items
      For Each oAppt In oItems
        TextBox1.Text &= "start: " & oAppt.Start & "; end: " & oAppt.End & "; subj: " & oAppt.Subject & vbCrLf
      Next
    End If
  End Sub
  Private Sub CalReader_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim Kalender = My.Application.CommandLineArgs(0) ' z.B. "Jane Doe", "Doe, Jane" oder "jane.doe@firma.com"
    KalenderLesen(Kalender)
  End Sub
End Class

Zudem habe ich einen Verweis auf die 'Microsoft Outlook 14.0 Object Library' und den Namespace 'Microsoft.Office.Interop.Outlook' importiert.

Das kenne ich eigentlich auch so... Es handelt sich um Exchangekonten und als Client kommt Outlook 2013 zum Einsatz.
In der Zwischenzeit habe ich etwas mit Outlook und .NET bzw. VBA experimentiert. Damit funktioniert es.
Für mich sieht es so aus, als würde die Namensauflösung beim FolderAccess nicht funktionieren (Vermute wg. Outlook 2013?).

Hallo, Water, das sieht dann so aus:

Genauso hatte ich das gemacht, funktioniert aber leider nicht. Ich habe jetzt noch ein paar Varianten getestet:

• Ohne $iFolderType=$olFolderCalendar funktioniert es gar nicht (@error=1).
• _OL_FolderAccess($oOL, "\\Jane.Doe@company.com\Kalender", $olFolderCalendar) führt zu @error = 3, @extended = 1
• Andere Namesschreibweisen (z.B. ohne führenden '\\' oder mit '\\Doe, Jane \...', wie es in Outlook angezeigt wird) produzieren @error=4, @extended = 1 oder @error=3, @extended=-2147352567
• Mein eigener Name (ala 'tom.therion@company.com\Kalender', egal, ob mit oder ohne '\\') funktioniert problemlos.

Hallo, Water,

danke für die Antwort. OutlookEx hatte ich mir bereits angesehen (sogar mindestens zweimal) und ein Wenig mit _OL_AppointmentGet experimentiert.
Bei meinen eigenen Kalendereinträgen funktioniert das auch wunderbar, aber die freigegebenen Ordner konnte ich nicht erreichen.
Wenn das mit OutlookEx grundsätzlich funktioniert, habe ich vermutlich nur ein Problem bei der Adressierung der freigegeben Kalender.

Wie muss ich denn die Freigabe ansprechen?

Moin, zusammen,

gibt es eine Möglichkeit, mit AutoIt freigegebene Outlookkalender auszulesen?

Hintergrund ist der: Ich möchte aus den ausgelesenen Terminen eine Gesamtübersicht erstellen (ListView oder Excel), um die Einsatzplanung zu vereinfachen und nicht immer alle Kalender einzeln prüfen zu müssen.

Bin für jeden Tipp dankbar.

Gruß, Therion.

Eine elegante Lösung wäre, sich eine Unterabfrage mit ColumnB und einem Count(*) zu erstellen und auf die zu verjoinen - aber Joins in UPDATE-Klauseln scheinen bei SQLite nicht zu funktionieren (hab's jedenfalls nicht hingekriegt).

Vielleicht hilft dir eine abhängige Unterabfrage:

"UPDATE tblErgebnis SET ColumnA=ColumnA+(SELECT COUNT(*) FROM tblData GROUP BY ColumnB HAVING ColumnC IN (SELECT ColumnC FROM tblGehalt) AND ColumnB=tblErgebnis.columnB)"