Account | |
Application | |
AppointmentItem | A meeting, a one-time appointment, a recurring appointment or a meeting in the Calendar folder. |
Attachment | |
Category | An object that allows to group Outlook items on user-defined criteria. |
Explorer | Represents the window in which the contents of a folder are displayed. |
Folder | |
Inspector | The window which displays an Outlook-item. |
Items | A collection of item objects in a Folder |
Namespace | There is only one namespace which is returned by application.getNamespace("Mapi") or application.session . |
MailItem | Represents an eMail message. |
Reminder | |
Row | |
Search | |
Store | Returns a store object. |
Table | Represents a read-only and dynamic rowset of data in a folder or search object. |
' ..\..\..\runVBAFilesInOffice.vbs -excel -ol getGlobalAddressList -c main sub main() dim outl as outlook.application dim nmsp as outlook.namespace dim glal as outlook.addressList dim ents as outlook.addressEntries dim entr as outlook.addressEntry set outl = new outlook.application set nmsp = outl.getNamespace("MAPI") set glal = nmsp.getGlobalAddressList() set ents = glal.addressEntries dim c as integer: c=0 for each entr in ents c = c+1 cells(c, 1).value = entr.name cells(c, 2).value = entr.address next entr activeWorkbook.saved = true end sub
' ' ..\..\..runVBAFilesInOffice.vbs -excel -ol addressLists -c main ' sub main dim outl as outlook.application dim nmsp as outlook.namespace dim addrLists as outlook.addressLists dim addrList as outlook.addressList set outl = new outlook.application set nmsp = outl.getNamespace("MAPI") set addrLists = nmsp.addressLists dim c as integer: c=0 for each addrList in addrLists c=c+1 cells(c, 1).value = addrList.name next addrList activeWorkbook.saved = true end sub
' ' ..\..\..\runVBAFilesInOffice.vbs -excel -ol createRecipient -c main ' sub main() dim outl as outlook.application dim nmsp as outlook.namespace dim cald as outlook.folder dim rcpt as outlook.recipient set outl = new outlook.application set nmsp = outl.getNamespace("MAPI") set rcpt = nmsp.createRecipient("Nyffenegger Rene") rcpt.resolve if rcpt.resolved then set fold = nmsp.getSharedDefaultFolder(rcpt, olFolderCalendar) fold.display else msGBox("Could not resolve name") end if activeWorkbook.saved = true end sub