OL Kontaktordner mit VBA ansprechen

Re(5): OL Kontaktordner mit VBA ansprechen

MausiWuzi — Sun, 03 Sep 2006 18:46:09 GMT

ich bin hauptberuflich student und nebenbei selbsständig

ich verdiene eigentlich ganz gut, aber geld kann man doch nie genug haben!

Re(4): OL Kontaktordner mit VBA ansprechen

partysan.net — Fri, 01 Sep 2006 13:24:48 GMT

Sag mal verdienst du mit deiner sonstigen Arbeit nix ?
Ein Forum sollte zur Hilfestellung da sein und nicht zum Geschäfte machen !!!

lg
Philipp

Re(3): OL Kontaktordner mit VBA ansprechen

MausiWuzi — Wed, 30 Aug 2006 11:56:27 GMT

oder ich schreib dir gleich das ganze prog, geht wahrscheinlich wesentlich schneller

Re(3): OL Kontaktordner mit VBA ansprechen

MausiWuzi — Wed, 30 Aug 2006 11:55:22 GMT

für wen oder was brauchst du das?

hab mir selbst ein kleines framework für microsoft outlook tätigkeiten geschrieben, d.h. die gewünschte funktionalität hab ich schon ausprogrammiert.

wenn dabei geld rausspringt, stell ich es dir gerne zur verfügung.

Re(2): OL Kontaktordner mit VBA ansprechen

partysan.net — Wed, 30 Aug 2006 08:32:38 GMT

Wie mache ich das ????
lg
Philipp

Re: OL Kontaktordner mit VBA ansprechen

MausiWuzi — Tue, 29 Aug 2006 07:30:10 GMT

lass dir einfach mal alle ordner und unterordner sequentiell ausgeben

OL Kontaktordner mit VBA ansprechen

partysan.net — Fri, 25 Aug 2006 12:18:03 GMT

Hallo !
Ich habe eine EXCEL Adressenliste die in einen Kontakte Ordner namens "Verteilerlisten" reinkopiert werden soll !
Derzeit schaffe ich es nur die Daten in den *TRÖT* "Kontakte" Ordner zu löschen/kopieren.
Wie müßte ich den Code anpassen, dass er die Routine auf den
"Verteilerlisten" Ordner anwendet ?

Danke
lg
Philipp

[Code]

Sub OutlookKontakte()
'
' OutlookKontakte Makro
' AKHEDXKAP
'

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]