Hallo Franz,
Schau dir mal den folgenden Kode schnipsel an. Dieser exportiert die Einträge aus dem Contact Ordner in eine csv-Datei.
Nicht vergessen die Microsoft.Office.Interop.Outlook Referenz einzufügen. J
Imports Microsoft.Office.Interop
Imports System.IO
Public Class Form1
Dim outlookApp As Microsoft.Office.Interop.Outlook.Application
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim outlookNameSpace As Outlook.NameSpace = outlookApp.GetNamespace("MAPI")
Dim contactFolder As Outlook.MAPIFolder = _
outlookNameSpace.GetDefaultFolder( _
Outlook.OlDefaultFolders.olFolderContacts)
Dim contactItems As Outlook.Items = contactFolder.Items
Dim sw As StreamWriter = New StreamWriter("C:\Robert\Mail.csv", True)
Dim str As String = String.Empty
Try
For Each contact As Outlook.ContactItem In contactItems
If (contact.Account IsNot Nothing) Then
str += contact.Account
Else
str += String.Empty
End If
If (contact.FirstName IsNot Nothing) Then
str += "," & contact.FirstName
Else
str += "," & String.Empty
End If
If (contact.LastName IsNot Nothing) Then
str += "," & contact.LastName
Else
str += "," & String.Empty
End If
If (contact.BusinessTelephoneNumber IsNot Nothing) Then
str += "," & contact.BusinessTelephoneNumber
Else
str += "," & String.Empty
End If
If (contact.BusinessAddress IsNot Nothing) Then
str += "," & contact.BusinessAddress
Else
str += "," & String.Empty
End If
If (contact.CompanyName IsNot Nothing) Then
str += "," & contact.CompanyName
Else
str += "," & String.Empty
End If
sw.WriteLine(str)
str = String.Empty
Next
sw.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
outlookApp = New Microsoft.Office.Interop.Outlook.Application()
End Sub
End Class
Für Deine Referenz lies auch diese Artikel über Automatisierung.
1. Programming samples that can reference items and folders in Outlook by using Visual Basic .NET
2. Handy Tasks Using Microsoft Office Outlook 2003 and Visual Basic .NET
3. How to use the Microsoft Outlook Object Library to force a Send/Receive action by using Visual Basic .NET
Grüße,
Robert
