WSH - AddContact

Alle Skripte sind Muster ohne jede Gewährleistung oder Funktionsgarantie. für Schäden bin ich nicht verantwortlich. Achten Sie auf Zeilenumbrüche bei der Übernahme.

Eine weitere Möglichkeit, mal schnell per MAPI in einem Postfach Objekte zu verändern, zeigt das Beispiel einen Kontakt anzulegen.

Das auch Viren und andere Programme den Zugriff früher genutzt haben, hat Microsoft entsprechende Warnungen ergänzt. Siehe auch Outlook Sicherheitswarnung

Diese kleine Skript legt mich einfach in ihrem Kontaktordner an.

Const olContactItem = 2
Set objOutlook = CreateObject("Outlook.Application")
Set objContact = objOutlook.CreateItem(olContactItem)
objContact.FullName = "Frank Carius"
objContact.Email1Address = "frank.carius@netatwork.de"
objContact.CompanyName = "Net at Work"
objContact.JobTitle = "Consultant"
objContact.BusinessTelephoneNumber = "+49 5251 304 600"
objContact.BusinessAddress = "Am Hoppenhof 32" & vbCrLf & "33104 Paderborn"
objContact.Birthday = "3/22/1966"  ' Das Datum stimmt nicht :-)
objContact.Save

Natürlich können Sie noch viele weitere Felder mit Inhalten füllen.

Und wenn der Kontakt nicht in ihrem eigenen Kontaktordner auftauchen soll, dann könnne Sie natürlich den Kontakt auch in einem anderen Ordner unterbringen.

Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myFolderParent = myNameSpace.Folders("öffentliche Ordner")
    Set myFolderParent = myFolderParent.Folders("Alle öffentlichen Ordner")
    Set myFolderContact = myFolderParent.Folders("Firmenkontakte")
  
    Set objContact = objOutlook.CreateItem(olContactItem)
    objContact.FullName = "Frank Carius"
    objContact.Email1Address = "frank.carius@netatwork.de"
    objContact.CompanyName = "Net at Work"
    objContact.JobTitle = "Consultant"
    objContact.BusinessTelephoneNumber = "+49 5251 304 600"
    objContact.BusinessAddress = "Am Hoppenhof 32" & vbCrLf & "33104    Paderborn"
    objContact.Move myFolderContact
    myFolderContact.save

Links

Diese Skript funktioniert bis Exchange 2000 SP2. Mit SP3 wurde das "Sicherheitsmodell" umgestellt, so dass erst eine Änderung hilft: