Thema Datum  Von Nutzer Rating
Antwort
Rot Wie kann ich einen anderen Kontakteordner ansprech
 28.08.2006 14:53:18 philipp
NotSolved
30.08.2006 11:07:38 nightrider
NotSolved

Ansicht des Beitrags:
Von:
philipp		 Datum:
28.08.2006 14:53:18		 Views:
1899		 Rating:
     
Antwort:
  Ja
Thema:
Wie kann ich einen anderen Kontakteordner ansprech
Hallo !
Ich habe folgendes Problem mit Kontakte von Excel -> Outlook

Die Kontakte sollen nicht im Standart OL "Kontakte" Ordner gelöscht/kopiert werden, sondern in einen eigens erstellten Namens "Firmenkontakte"
Wie müßte ich den Code anpassen ???

[Code]

Private Sub OutlookKontakte_loeschen_anlegen()

Dim olApp As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objKontaktOrdner As MAPIFolder
Dim objKontakt As Outlook.ContactItem
Dim i As Integer
On Error Resume Next
Set olApp = CreateObject("Outlook.Application")
Set objNameSpace = olApp.GetNamespace("MAPI")
Set objKontaktOrdner = objNameSpace.GetDefaultFolder(olFolderContacts)
Do
i = 0
For Each objKontakt In objKontaktOrdner.Items
If objKontakt.Sensitivity <> olPrivate Then
objKontakt.Delete
Else
i = i + 1
End If
Next
Loop Until objKontaktOrdner.Items.Count = i

Set objKontakt = Nothing
Set objKontaktOrdner = Nothing
Set olApp = Nothing
On Error GoTo 0

'Kontakte anlegen'


Dim appOutLook As Outlook.Application
Dim conoutlook As Outlook.ContactItem
Set appOutLook = CreateObject("Outlook.Application")

Range("A2").Select

Do Until ActiveCell.Value = ""
Set conoutlook = appOutLook.CreateItem(olContactItem)
With conoutlook
.FirstName = ActiveCell.Value
.LastName = ActiveCell.Offset(0, 1).Value
.BusinessAddress = ActiveCell.Offset(0, 2).Value & ", " & ActiveCell.Offset(0, 3).Value
.BusinessAddressCountry = ActiveCell.Offset(0, 4).Value
.BusinessAddressPostalCode = ActiveCell.Offset(0, 5).Value
.BusinessAddressState = ActiveCell.Offset(0, 6).Value
.Email1Address = ActiveCell.Offset(0, 7).Value
.HomeTelephoneNumber = ActiveCell.Offset(0, 8).Value
.BusinessTelephoneNumber = ActiveCell.Offset(0, 9).Value
.BusinessFaxNumber = ActiveCell.Offset(0, 10).Value
.Save
End With
ActiveCell.Offset(1, 0).Select
Loop

Set conoutlook = Nothing
Set appOutLook = Nothing

End Sub


[/Code]

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Wie kann ich einen anderen Kontakteordner ansprech
 28.08.2006 14:53:18 philipp
NotSolved
30.08.2006 11:07:38 nightrider
NotSolved