Outlook Daten
22.07.2013 09:13:27
Rolf
erstmal recht herzlichen Dank, das mir immer so gut geholfen wird. Dank eurer Hilfe war es mir möglich meine eigenen Fehler zu analysieren und zu lernen wie man es richtig macht. Nun stehe ich wiederum an einem Problem, dass ich nicht selber lösen kann. Ich speichere die Kontaktdaten in Outlook mittels untenstehendem Code, nun möchte ich eine Abfrage einfügen, ob dieser Kontakt schon besteht und wenn ja dann eine entsprechende Meldung kommt, "zB dieser Kontakt ist schon vorhanden". Ich habe mal gelesen das Outlook ID's verwendet, wie kann ich dieses Problem lösen?
Danke Euch recht herzlich im voraus für eure Mithilfe.
Gruss
Rolf
Sub Kontakt_click()
Dim MyOutlook As Outlook.Application
Dim KontaktOutlook As Outlook.ContactItem
Set MyOutlook = CreateObject("Outlook.Application")
Set KontaktOutlook = MyOutlook.CreateItem(olContactItem)
With KontaktOutlook
.FirstName = Range("i3")
.LastName = Range("h3")
.Categories = "Mieter Clubhaus"
.HomeAddress = Range("j3")
.HomeAddressPostalCode = Range("A5")
.HomeAddressState = Range("B5")
.HomeAddressCountry = Range("C5")
.Email1Address = Range("I5")
.CompanyName = Range("e3")
.MobileTelephoneNumber = Range("H5")
.Save
End With
Set KontaktOutlook = Nothing
Set MyOutlook = Nothing
MsgBox "Kontakdaten wurden erfolgreich in Outlook eingetragen..." 'Popup mit Erfolgsinfo
End Sub