Thema Datum  Von Nutzer Rating
Antwort
Rot Makro zur Kontaktimportierung
 28.11.2014 08:03:11 Etzel
NotSolved

Ansicht des Beitrags:
Von:
Etzel		 Datum:
28.11.2014 08:03:11		 Views:
1431		 Rating:
     
Antwort:
  Ja
Thema:
Makro zur Kontaktimportierung

Hey Leute,

ich würde bei Outlook 2010 gern ein Makro haben, welches meine Kontakte aktualisiert. 

Zu meinen Problem:
Die Kontakt CSV, von der ich die Kontakte alle 2 Woche aktualisiere, liegt hierbei auf einem Netzlaufwerk und hat immer denselben Pfad. Nun wollte ich mir diesen Vorgang mit einem Makro vereinfachen. Es ist außerdem notwendig, dass es Duplikate durch die neueren Dateien ersetzt.

Ich habe bereits ein bisschen was versucht.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Sub Import_contacts()
 
    Dim qWks As Worksheet
 
    Dim i As Integer
 
    Dim MyOutApp As Object
 
    Dim MyOutCon As Object
 
    Dim mf As Object
 
    Dim sFile As String
 
    Dim sPfad As String
 
    'Wo stehen die Kontaktdaten
 
    sPfad = "C:\Test\"
 
    sFile = "Adressen.csv"
 
    Set qWks = sPfad & sFile
 
    'Outlook Objekt erstellen
 
    Set MyOutApp = CreateObject("Outlook.Application")
 
    'Mit "With" wird auf das Tabellenobjekt referenziert
 
    With qWks
 
        'Zählschleife starten
 
        'Dazu wird der letzten Eintrag in Spalte A bestimmt
 
        'Der Adressenbereich beginn in Zeile 2
 
        'deshalb startet auch die Zählschleife dort
 
        For i = 2 To Range("A300").End(xlUp).Row
 
            'Outlook Kontaktobject erstellen
 
            Set mf = MyOutApp.GetNamespace("MAPI").GetDefaultFolder(10).Folders("test")
 
            Set MyOutCon = mf.Items.Add(2)
 
            'Eine vollständige Liste der möglichen Felder
 
            'finden Sie in der Outlook-VBA-Hilfe
 
            With MyOutCon
 
                .FirstName = Cells(i, 1).Value
 
                .LastName = Cells(i, 1).Offset(0, 1).Value
 
                .Email1Address = Cells(i, 1).Offset(0, 2).Value
 
                .MobileTelephoneNumber = Cells(i, 1).Offset(0, 3).Value
 
                .Save
 
            End With
 
            'Object entfernen
 
            Set MyOutCon = Nothing
 
        Next i
 
    End With
 
    Set MyOutApp = Nothing
 
End Sub

 

Jedoch bricht er mit "Typen unverträglich." ab. Da ich kaum Erfahrung in VBA-Programmierung habe, komme ich jetzt einfach nicht mehr weiter.

Verwendet jemand von euch sowas oder hat eine Idee wie ich das lösen könnte?

Danke schon mal für eure Antworten. 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Makro zur Kontaktimportierung
 28.11.2014 08:03:11 Etzel
NotSolved