Ich habe mir in Visual Basic ein Script, in eigen Arbeit und mit Hilfe des Internets geschrieben, welches gespeicherte Kontakte exportieren und in einer bestimmten Datei exportieren und speichern soll. Jedoch speichert das Programm jeden Kontakt einzeln und nicht wie gewollt alle in einer Datei, sodass man diese auch wieder (alle Kontakte auf einmal) importieren kann.
Hat jemand einen Tipp oder vielleicht sogar die Lösung ?
Hier nun der bisherige Code:
Imports Outlook = Microsoft.Office.Interop.Outlook
Public Class Outlook
Private Sub BExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BExport.Click
Dim olApp As Microsoft.Office.Interop.Outlook.Application
Dim olContactsFolder As Microsoft.Office.Interop.Outlook.MAPIFolder
Dim olNameSpace As Microsoft.Office.Interop.Outlook.NameSpace
Dim olContact As Microsoft.Office.Interop.Outlook.ContactItem
Dim syncSuccess As Boolean
Dim obj As Object
Dim olVCard As Microsoft.Office.Interop.Outlook.CardView
olApp = CreateObject("Outlook.Application")
olNameSpace = olApp.GetNamespace("MAPI")
olContactsFolder = olNameSpace.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderContacts)
For Each obj In olContactsFolder.Items
If TypeOf obj Is Microsoft.Office.Interop.Outlook.ContactItem Then
olContact = obj
olContact.SaveAs("C:\Kontakte\" & olContact.FileAs & ".CVS", olVCard)
End If
Next
syncSuccess = TrueCreateContacts_Exit: If syncSuccess = True Then MsgBox("Der Export war erfolgreich", vbInformation) Me.Close() End If
Exit SubCreateContacts_Error: MsgBox("Error#: " & Err.Number & vbCr & Err.Description, vbInformation) syncSuccess = False GoTo CreateContacts_Exit End Sub
Private Sub BExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BExit.Click
Me.Close()
End SubEnd Class
Hat jemand einen Tipp oder vielleicht sogar die Lösung ?
Hier nun der bisherige Code:
Imports Outlook = Microsoft.Office.Interop.Outlook
Public Class Outlook
Private Sub BExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BExport.Click
Dim olApp As Microsoft.Office.Interop.Outlook.Application
Dim olContactsFolder As Microsoft.Office.Interop.Outlook.MAPIFolder
Dim olNameSpace As Microsoft.Office.Interop.Outlook.NameSpace
Dim olContact As Microsoft.Office.Interop.Outlook.ContactItem
Dim syncSuccess As Boolean
Dim obj As Object
Dim olVCard As Microsoft.Office.Interop.Outlook.CardView
olApp = CreateObject("Outlook.Application")
olNameSpace = olApp.GetNamespace("MAPI")
olContactsFolder = olNameSpace.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderContacts)
For Each obj In olContactsFolder.Items
If TypeOf obj Is Microsoft.Office.Interop.Outlook.ContactItem Then
olContact = obj
olContact.SaveAs("C:\Kontakte\" & olContact.FileAs & ".CVS", olVCard)
End If
Next
syncSuccess = TrueCreateContacts_Exit: If syncSuccess = True Then MsgBox("Der Export war erfolgreich", vbInformation) Me.Close() End If
Exit SubCreateContacts_Error: MsgBox("Error#: " & Err.Number & vbCr & Err.Description, vbInformation) syncSuccess = False GoTo CreateContacts_Exit End Sub
Private Sub BExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BExit.Click
Me.Close()
End SubEnd Class