Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Geschäftstelefon-Nummer in Outlook-Kontaktordner editieren

Gruppe

Outlook

Problem

Die Geschäftstelefonangabe des in Zelle B2 genannten Email-Kontakts soll editiert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub ContactEdit()
   Dim oOL As Object
   Dim olNS As Object
   Dim fdContacts As Object
   Dim fdItems As Object
   Dim fdItem As Object
   Set oOL = CreateObject("Outlook.Application")
   Set olNS = oOL.GetNamespace("MAPI")
   Set fdContacts = olNS.GetDefaultFolder(olFolderContacts)
   Set fdItems = fdContacts.Items
   Set fdItem = fdItems(Range("B1").Value)
   On Error GoTo ERRORHANDLER
   fdItem.BusinessTelephoneNumber = Range("B2").Value
   fdItem.Save
ERRORHANDLER:
   Set fdItem = Nothing
   Set fdItems = Nothing
   Set fdContacts = Nothing
   Set olNS = Nothing
   Set oOL = Nothing
End Sub