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