none
Outlook Kontakte exportieren

    שאלה

  • Hoi Freunde,

    ich möchte nun aus Outlook auch noch Kontakte in eine .csv-Datei exportieren.

    In Anlehnung an das Beispiel mit den Kalenderdaten bin ich bis hierher gekommen, es wird aber nüscht exportiert:

    Module Module2
    
        Sub Main()
            Try
                Dim objOutlook = CType(GetObject(, "Outlook.Application"), Outlook.Application)
                Dim folder = objOutlook.GetNamespace("MAPI").GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
                Dim l As New List(Of Outlook.ContactItem)
                For i = 1 To folder.Items.Count
                    l.Add(CType(folder.Items(i), Outlook.ContactItem))
                Next
    
                Dim res = (From itm In l Where itm.LastName >= ("[LastModificationTime] > '01/1/2003'") _
                                       Order By itm.FullName _
                                                   Select String.Format("{LastName}" + "{FirstName}" + "{PrimaryTelephoneNumber}" + "{CompanyMainTelephoneNumber}", _
                                                 itm.LastName, itm.FirstName, 
    
                Using writer As New IO.StreamWriter("C:\contacts.txt")
                    writer.WriteLine(Join(res, vbNewLine))
                    End Using
    
            Catch ex As Exception
                Console.WriteLine(ex.ToString)
            End Try
            '
            Console.ReadLine()
        End Sub
    End Module
    Wo liegt wohl hier der Fehlerteufel (oder Denkfeler)  begraben ?

    Doei
    Franz
    יום חמישי 03 ספטמבר 2009 22:05

תשובות

כל התגובות