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:
- VBS:MakeContact
- ADSI und LDAP
- Q324037 PRB: Microsoft Exchange 2000 Server Service Pack 3 Security Modification and CDOEX/CDOSYS
- Contact Object.
http://msdn.Microsoft.com/library/en-us/vbaol10/html/olobjContactItem.asp - Outlook Security
- Add a Picture to Contact in Outlook 2003 via Script
http://gsexdev.blogspot.com/2005/09/add-picture-to-contact-in-outlook-2003.html - HOWTO: Dump out Contacts using CDOEX and ADO
http://blogs.msdn.com/akashb/archive/2008/11/14/howto-dump-out-contacts-using-cdoex-and-ado.aspx