Outlookopdrachten vanuit andere programma's


1 Toegang tot Outlook
1.1.1 Outlook is niet geladen
1.1.2 Outlook is geladen
1.1.3 Outlook-bibliotheek laden

1.2 Standaardmappen in Outlook
1.2.1 overzicht standaardmappen

1.3 Standaarditems in Outlook
1.3.1 overzicht standaarditems

1.4 Outlook mappenstruktuur
1.4.1 eigenschappen map
1.4.2 overzicht mappenstruktuur

2 VBA opdrachten in Outlook
2.0 email eigenschappen

3 Email-concepten
3.1.1 nieuw email concept
3.1.2.1 meer adressen
3.1.2.2 meer CC-adressen
3.1.2.3 meer BCC-adressen
3.1.3.1 TO contact toevoegen
3.1.3.2 CC contact toevoegen
3.1.3.3 BCC contact toevoegen
3.1.4 bijlagen toevoegen
3.2.1 email-concept lezen
3.2.2 verplaatsen
3.2.3 verwijderen
3.2.4 wijzigen
3.3.1 filteren en lezen
3.3.2 filteren en verplaatsen
3.3.3 filteren en verwijderen
3.3.4 filteren en wijzigen
3.4.1 zoeken en lezen
3.4.2 zoeken en verplaatsen
3.4.3 zoeken en verwijderen
3.4.4 zoeken en wijzigen

4 Emails in Postvak UIT
4.1 nieuwe email
4.1.1 nieuwe email met HTML
4.2.1 lezen
4.2.2 verplaatsen
4.2.3 verwijderen
4.2.4 wijzigen
4.3.1 filteren en lezen
4.3.2 filteren en verplaatsen
4.3.3 filteren en verwijderen
4.3.4 filteren en wijzigen
4.4.1 zoeken en lezen
4.4.2 zoeken en verplaatsen
4.4.3 zoeken en verwijderen
4.4.4 zoeken en wijzigen

5 Verzonden emails
5.2.1 lezen
5.2.2 verplaatsen
5.2.3 verwijderen
5.2.4 wijzigen
5.3.1 filteren en lezen
5.3.2 filteren en verplaatsen
5.3.2a verwijderen met loop
5.3.3 filteren en verwijderen
5.3.4 filteren en wijzigen
5.4.1 zoeken en lezen
5.4.2 zoeken en verplaatsen
5.4.3 zoeken en verwijderen
5.4.4 zoeken en wijzigen

6 Ontvangen emails
6.2.1 lezen
6.2.2 verplaatsen
6.2.3 verwijderen
6.2.4 wijzigen
6.3.1 filteren en lezen
6.3.2 filteren en verplaatsen
6.3.3 filteren en verwijderen
6.3.4 filteren en wijzigen
6.4.1 zoeken en lezen
6.4.2 zoeken en verplaatsen
6.4.3 zoeken en verwijderen
6.4.4 zoeken en wijzigen
6.5 opslaan

7 Kontaktpersonen
7.0 eigenschappen
7.1.1 nieuwe kontaktpersoon
7.2.1 lezen
7.2.5 opslaan als bestand
7.2.2 verplaatsen
7.2.3 verwijderen
7.2.4 wijzigen
7.3.1 filteren en lezen
7.3.2 filteren en verplaatsen
7.3.3 filteren en verwijderen
7.3.4 filteren en wijzigen
7.4.1 zoeken en lezen
7.4.2 zoeken en verplaatsen
7.4.3 zoeken en verwijderen
7.4.4 zoeken en wijzigen

8 Distributielijst
8.0 eigenschappen
8.1 nieuwe distributielijst
8.2.1 lezen
8.2.2 verplaatsen
8.2.3 verwijderen
8.2.4 wijzigen
8.3.1 filteren en lezen
8.3.2 filteren en kopiŽren
8.3.2 filteren en verplaatsen
8.3.3 filteren en verwijderen
8.3.4 filteren en wijzigen
8.4.1 zoeken en lezen
8.4.2 zoeken en verplaatsen
8.4.3 zoeken en verwijderen
8.4.4 zoeken en wijzigen
8.5.1 kontaktpersoon lezen
8.5.2 alle kontakten lezen
8.5.3 kontakt toevoegen
8.5.4 kontakt verwijderen
8.5.5 kontakt verwijderen (alt.)
8.5.6 filteren en kontakt verwijderen

9 Notities
9.0 eigenschappen
9.1 nieuwe notitie
9.2.1 lezen
9.2.2 verplaatsen
9.2.3 verwijderen
9.2.4 wijzigen
9.3.1 filteren en lezen
9.3.2 filteren en verplaatsen
9.3.3 filteren en verwijderen
9.3.4 filteren en wijzigen
9.4.1 zoeken en lezen
9.4.2 zoeken en verplaatsen
9.4.3 zoeken en verwijderen
9.4.4 zoeken en wijzigen

10 Afspraken
10.0 eigenschappen
10.1 nieuwe afspraak
10.2.1 lezen
10.2.2 verplaatsen
10.2.3 verwijderen
10.2.4 wijzigen
10.3.1 filteren en lezen
10.3.2 filteren en verplaatsen
10.3.3 filteren en verwijderen
10.3.4 filteren en wijzigen
10.4.1 zoeken en lezen
10.4.2 zoeken en verplaatsen
10.4.3 zoeken en verwijderen
10.4.4 zoeken en wijzigen
10.4.5 zoeken met meer criteria

11 Vergaderverzoek
11.0 eigenschappen
11.1 nieuw vergaderverzoek
11.2.1 lezen
11.2.3 verplaatsen
11.2.3 verwijderen
11.2.5 voorlopig accepteren
11.2.6 accepteren
11.2.7 weigeren
11.3.1 filteren en lezen
11.3.2 filteren en verplaatsen
11.3.3 filteren en verwijderen
11.3.5 filteren en voorl. accepteren
11.3.6 filteren en accepteren
11.3.7 filteren en weigeren
11.3.8 filteren en kopiŽren
11.4.1 zoeken en lezen
11.4.2 zoeken en verplaatsen
11.4.3 zoeken en verwijderen
11.4.5 zoeken en voorl. accepteren
11.4.6 zoeken en accepteren
11.4.7 zoeken en weigeren
11.4.8 zoeken en kopiŽren

12 Taak
12.0 eigenschappen
12.1 nieuwe taak
12.2.1 lezen
12.2.2 verplaatsen
12.2.3 verwijderen
12.2.5 zoeken meer criteria
12.2.4 wijzigen
12.3.1 filteren en lezen
12.3.2 filteren en verplaatsen
12.3.3 filteren en verwijderen
12.3.4 filteren en wijzigen
12.4.1 zoeken en lezen
12.4.2 zoeken en verplaatsen
12.4.3 zoeken en verwijderen
12.4.4 zoeken en wijzigen

13 Taakverzoek
13.1 eigenschappen
13.1 nieuw taakverzoek
13.2.1 lezen
13.2.2 verplaatsen
13.2.3 verwijderen
13.2.5 voorlopig accepteren
13.2.6 accepteren
13.2.7 weigeren
13.3.1 filteren en lezen
13.3.2 filteren en verplaatsen
13.3.3 filteren en verwijderen
13.3.4 filteren en wijzigen
13.3.5 filteren en voorl. accepteren
13.3.6 filteren en accepteren
13.3.7 filteren en weigeren
13.3.8 filteren en kopiŽren
13.4.1 zoeken en lezen
13.4.2 zoeken en verplaatsen
13.4.3 zoeken en verwijderen
13.4.4 zoeken en wijzigen

14 Logboekitem
14.0 eigenschappen
14.1 nieuw logboekitem
14.2.1 lezen
14.2.2 verplaatsen
14.2.3 verwijderen
14.2.4 wijzigen
14.3.1 filteren en lezen
14.3.2 filteren en verplaatsen
14.3.3 filteren en verwijderen
14.3.4 filteren en wijzigen
14.4.1 zoeken en lezen
14.4.2 zoeken en verplaatsen
14.4.3 zoeken en verwijderen
14.4.4 zoeken en wijzigen
14.4.5 zoeken

15 Discussie
15.0 eigenschappen
15.1 nieuwe discussie
15.1.1 in specifieke map
15.2.1 lezen
15.2.2 verplaatsen
15.2.3 verwijderen
15.2.4 wijzigen
15.3.1 filteren en lezen
15.3.2 filteren en verplaatsen
15.3.3 filteren en verwijderen
15.3.4 filteren en wijzigen
15.4.1 zoeken en lezen
15.4.2 zoeken en verplaatsen
15.4.3 zoeken en verwijderen
15.4.4 zoeken en wijzigen
15.4.5 zoeken

16 Bijlagen (Attachments)
16.0 eigenschappen
16.1 opslaan als bestand

1 Toegang tot Outlook

Er zijn 3 methoden om vanuit een programma toegang te krijgen tot Outlook:

1.1.1 Outlook is niet geladen

de methode CreateObject
with CreateObject("Outlook.Application")
x=.GetNamespace("MAPI").GetDefaultFolder(6).Items.count
End With
Beperking:
De 'CreateObject'-methode herkent Outlook typenamen niet, alleen de Outlookconstanten.
Bijvoorbeeld: de typenaam van map 'PostvakIN' is in VBA olFolderInbox; de Outlookcontante voor deze map is 6 (zoals boven).
x=CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.count
Levert dan ook een fout op.

1.1.2 Outlook is geladen

de methode Getobject
With Getobject(,"Outlook.Application")
x=.GetNamespace("MAPI").GetDefaultFolder(6).Items.Count
End With
De methode 'GetObject' kent dezelfde beperking voor typenamen als de methode 'CreateObject'.

1.1.3 Outlook-VBA-bibliotheek laden

de methode 'references': onafhankelijk of Outlook is geladen.
handmatig: VBEditor/ Menubalk / Extra / Verwijzingen / Microsoft Outlook 11.0 Object Library /aanvinken
' Outlook 2000
' Outlook 2003
' Outlook 2007
sub referentie()
ThisWorkbook.VBProject.References.AddFromFile "msoutl9.olb"
ThisWorkbook.VBProject.References.AddFromFile "msoutl10.olb"
ThisWorkbook.VBProject.References.AddFromFile "msoutl11.olb"
End sub
daarna kun je outlook als object gebruiken in de code
with Outlook
x=.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.Count
end with
Bij deze methode kun je zowel gebruik maken van de Outlook typenames als de Outlookconstanten.

Alle voorbeeldcode in deze pagina maakt gebruik van de Methode 'CreateObject'.

1.2 Standaardmappen in Outlook

1.2.1 Overzicht standaardmappen

' Verwijderde items(olFolderDeletedItems)
' Postvak UIT (olFolderOutbox)
' Verzonden items (olFolderSentItems)
' Postvak IN (olFoderInbox)
' Agenda (olFolderCalendar)
' Contactpersonen (olfolderContacts)
' Logboek (olFolderJournal)
' Notities (olFolderNotes)
' Taken (olFolderTasks)
' Herinneringen
' Herinneringen
' Concepten (olFolderDrafts)
Sub mappen_defaultmappen()
With CreateObject("Outlook.Application").GetNamespace("MAPI")
c01 = .GetDefaultFolder(3).Name
c02 = .GetDefaultFolder(4).Name
c03 = .GetDefaultFolder(5).Name
c04 = .GetDefaultFolder(6).Name
c05 = .GetDefaultFolder(9).Name
c06 = .GetDefaultFolder(10).Name
c07 = .GetDefaultFolder(11).Name
c08 = .GetDefaultFolder(12).Name
c09 = .GetDefaultFolder(13).Name
c10 = .GetDefaultFolder(14).Name
c11 = .GetDefaultFolder(15).Name
c12 = .GetDefaultFolder(16).Name
End With
End Sub

1.3 Standaarditems in Outlook

Outlook kent een aantal standaarditems:
- email
- afspraak
- kontaktpersoon
- taak
- logboek
- notitie
- 'sticker' (Post-it)
- distributielijst

Daarnaast zijn er afgeleide items als
- taakverzoek
- vergaderverzoek

Omdat Outlook emails onderscheidt naar de plaats waar ze zijn opgeslagen zullen we de volgende emails onderscheiden:
- concept-email : in map Concepten GetDefaultFolder(16)
- email : in map Postvak UIT GetDefaultFolder(4)
- verzonden email : in map Verzonden items GetDefaultFolder(5)
- ontvangen email : in map Postvak IN GetDefaultFolder(6)

1.3.1 Overzicht standaarditems

' email (olMailItem)
' afspraak (olAppointmentItem)
' kontaktpersoon (olContactItem)
' taak (olTaskItem)
' logboek (olJournalItem)
' notitie (olNoteItem)
' sticker (olPostItem)
' distributielijst (olDistributionListItem)
Sub items_standaarditems()
With CreateObject("Outlook.Application")
.CreateItem(0)
.CreateItem(1)
.CreateItem(2)
.CreateItem(3)
.CreateItem(4)
.CreateItem(5)
.CreateItem(6)
.CreateItem(7)
End With
End Sub

1.4 Overzicht Outlook mappenstruktuur

Maak een overzicht van de Outlook mappenstruktuur met mapeigenschappen zoals bijv. de naam (.Name), het aantal items (.items) en het aantal submappen (.folders).

1.4.1 Eigenschappen van een Outlook map

Sub mappen_eigenschappen()
With CreateObject("Outlook.Application").GetNamespace("MAPI").Folders(1)
c01 = .Name
c02 = .Folders.Count
c03 = .Items.Count
c04 = .Class
c05 = .DefaultItemType
c06 = .DefaultMessageClass
c07 = .Description
c08 = .Session
c09 = .UnReadItemCount
c010 = .WebViewURL
c011 = .WebViewOn
c012 = .WebViewAllowNavigation
c013 = .EntryID
End With
End Sub

Deze macro maakt een overzicht van Outlookmappen op 4 nivo's, maar is eenvoudig uit te breiden naar meer nivo's.

1.4.2 Overzicht van de Outlook mappenstruktuur

Sub mappen_Outlookmappenstruktuur()
For Each fld In CreateObject("Outlook.Application").GetNamespace("MAPI").Folders
c01 = c01 & vbCr & vbCr & fld.Name & "|" & fld.Folders.Count & "|" & fld.Items.Count

For Each fld1 In fld.Folders
c01 = c01 & vbCr & "|" & fld1.Name & "|" & fld1.Folders.Count & "|" & fld1.Items.Count

For Each fld2 In fld1.Folders
c01 = c01 & vbCr & "||" & fld2.Name & "|" & fld2.Folders.Count & "|" & fld2.Items.Count

For Each fld3 In fld2.Folders
c01 = c01 & vbCr & "|||" & fld3.Name & "|" & fld3.Folders.Count & "|" & fld3.Items.Count
Next
Next
Next
Next

Sheets("Sheet1").Cells(1).Resize(UBound(Split(c01, vbCr)) - 1) = Application.Transpose(Split(Mid(c01, 3), vbCr))
Sheets("Sheet1").Columns(1).TextToColumns , 1, -4142, , False, False, False, False, True, "|"
End Sub

2 VBA opdrachten in Outlook

Per outlookitem zullen alle eigenschappen in VBA getoond worden

Per outlook-item zullen de meest voorkomende akties aan bod komen:
- een nieuw item maken
- een bestaand item lezen, wijzigen, verplaatsen of verwijderen
- een filtering uitvoeren op bestaande items en die lezen, wijzigen, verplaatsen of verwijderen
- een of meer bestaande items zoeken en lezen, wijzigen, verplaatsen of verwijderen.

2.0 Email eigenschappen

Sub email__eigenschappen()
With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items(1)
c0 = .Actions.Count
For Each ac In .Actions
d1 = ac.Application
d2 = ac.Class
d3 = ac.CopyLike
d4 = ac.Enabled
d5 = ac.MessageClass
d6 = ac.Name
d7 = ac.Parent
d8 = ac.prefix
d9 = ac.ReplyStyle
d10 = ac.ResponseStyle
d11 = ac.Session
d12 = ac.ShowOn
Next
c1 = .AlternateRecipientAllowed
c2 = .Application
c3 = .Attachments.Count
c4 = .AutoForwarded
c5 = .BCC
c6 = .BillingInformation
c7 = .body
c8 = .Categories
c9 = .CC
c10 = .Class
c11 = .Companies
c12 = .ConversationIndex
c13 = .ConversationTopic
c14 = .CreationTime
c15 = .DeferredDeliveryTime
c16 = .DeleteAfterSubmit
c17 = .entryId
c18 = .ExpiryTime
c19 = .FlagDueBy
c20 = .FlagRequest
c21 = .FlagStatus
C22 = .FormDescription
c23 = .GetInspector
c24 = .HTMLBody
c25 = .Importance
c26 = .LastModificationTime
c27 = .links.Count
c28 = .MessageClass
c29 = .Mileage
c30 = .NoAging
c31 = .OriginatorDeliveryReportRequested
c32 = .OutlookInternalVersion
c33 = .OutlookVersion
c34 = .Parent
c35 = .ReadReceiptRequested
c36 = .ReceivedByEntryID
c37 = .ReceivedByName
c38 = .ReceivedOnBehalfOfEntryID
c39 = .ReceivedOnBehalfOfName
c40 = .ReceivedTime
c41 = .RecipientReassignmentProhibited
c42 = .Recipients.Count
For Each rp In .Recipients
d1 = rp.Name
d2 = rp.address
d3 = rp.Name
Next
c43 = .ReminderOverrideDefault
c44 = .ReminderPlaySound
c45 = .ReminderSet
c46 = .ReminderSoundFile
c47 = .ReminderTime
c48 = .RemoteStatus
c49 = .ReplyRecipientNames
c50 = .ReplyRecipients.Count
c51 = .Saved
c52 = .SaveSentMessageFolder
c53 = .SenderName
c54 = .Sensitivity
c55 = .Sent
c56 = .SentOn
c57 = .sentonbehalfofname
c58 = .Session
c59 = .Size
c60 = .subject
c61 = .Submitted
c62 = .To
c63 = .UnRead
c64 = .UserProperties.Count
c65 = .VotingOptions
c66 = .VotingResponse
End With
End Sub

3 Email-concepten

Email-concepten ontstaan als bij het aanmaken van een nieuwe email de opdracht 'Save' wordt gegeven.
Het bericht wordt dan automatisch opgeslagen in de conceptenmap: GetDefaultFolder(16).

3.0 Email eigenschappen

3.1.1 Nieuw email concept

Sub email_concept_nieuw()
With CreateObject("Outlook.Application").CreateItem(0)
.Subject = "controle"
.To = "snb@forum.eu"
.Save
End With
End Sub

3.1.2.1 Nieuw email-concept meer adressen

Sub email_concept_nieuw_meer_adressen()
With CreateObject("Outlook.Application").CreateItem(0)
.subject = "controle"
.To = "snb@rorum.eu;bb@gmail.com;extra"
.Save
End With
End Sub

3.1.2.2 Nieuw email-concept meer CC-adressen

Sub email_concept_nieuw_meer_CCadressen()
With CreateObject("Outlook.Application").CreateItem(0)
.subject = "controle"
.To = "snb@forum.eu"
.CC = "aaa@webforums.eu;bb@gmail.com;extra"
.Save
End With
End Sub

3.1.2.3 Nieuw email-concept meer BCC-adressen

Sub email_concept_nieuw_meer_BCCadressen()
With CreateObject("Outlook.Application").CreateItem(0)
.subject = "controle"
.To = "snb@forum.eu"
.BCC = "aaa@webforums.eu;bb@gmail.com;extra"
.Save
End With
End Sub

3.1.3.1 Nieuw email-concept contactpersonen toevoegen

De methode Recipients.Add kan alleen gebruikt worden voor bestaande contactpersonen in de map Contactpersonen.
Sub email_concept_nieuw_recipients_To_toevoegen()
With CreateObject("Outlook.Application").CreateItem(0)
.subject = "controle"
.To = "snb@forum.eu"
.Recipients.Add "aaa@webforums.eu;bb@gmail.com;extra"
.Save
End With
End Sub

3.1.3.2 Nieuw email-concept CC contactpersonen toevoegen

Sub email_concept_nieuw_recipients_CC_toevoegen()
With CreateObject("Outlook.Application").CreateItem(0)
.subject = "controle"
.To = "snb@forum.eu"
.Recipients.Add("aaa@webforums.eu;bb@gmail.com;extra").Type = 4
.Save
End With
End Sub

3.1.3.3 Nieuw email-concept BCC contactpersonen toevoegen

Sub email_concept_nieuw_recipients_BCC_toevoegen()
With CreateObject("Outlook.Application").CreateItem(0)
.subject = "controle"
.To = "snb@forum.eu"
.Recipients.Add("aaa@webforums.eu;bb@gmail.com;extra").Type = 3
.Save
End With
End Sub

3.1.4 Nieuw email-concept bijlagen toevoegen

Sub email_concept_attachments_toevoegen()
With CreateObject("Outlook.Application").CreateItem(0)
.subject = "controle"
.To = "aaa@webforums.eu"
.attachments.add "E:\OF\bestand1.xls"
.attachments.add "E:\OF\bestand2.xls"
.Save
End With
End Sub

3.2.1 Email-concept lezen

Aan de hand van het onderwerp (subject) kan een bericht direkt benaderd worden.
Sub email_concept_lezen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items(c00)
c01 = .To
c02 = .subject
c03 = .body
End With
End Sub

3.2.2 Email-concept verplaatsen

Sub email_concept_verplaatsen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(16).Items(c00).Move .GetDefaultFolder(3)
End With
End Sub

3.2.3 Email-concept verwijderen

Sub email_concept_verwijderen()
c00 = "controle"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items(c00).Delete
End Sub

3.2.4 Email-concept wijzigen

Sub email_concept_wijzigen()
c00 = "controle"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items(c00).subject = "new subject"
End Sub

3.3.1 Email-concepten filteren en lezen

Sub email_concepten_filteren_lezen()
c00 = "controle"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items.Restrict("[Subject]='" & c00 & "'")
c01 = c01 & "|" & it.body
Next
End Sub

3.3.2 Email-concepten filteren en verplaatsen

Sub email_concepten_filteren_verplaatsen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each it In .GetDefaultFolder(16).Items.Restrict("[Subject]='" & c00 & "'")
it.Move .GetDefaultFolder(3)
Next
End With
End Sub

3.3.3 Email-concepten filteren en verwijderen

Sub email_concepten_filteren_verwijderen()
c00 = "controle"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items.Restrict("[Subject]='" & c00 & "'")
it.Delete
Next
End Sub

3.3.4 Email-concepten filteren en wijzigen

Sub email_concepten_filteren_wijzigen()
c00 = "controle"
c01 = "new subject"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items.Restrict("[Subject]='" & c00 & "'")
With it
.subject = c01
.Save
End With
Next
End Sub

3.4.1 Email-concepten zoeken en lezen

Sub email_concepten_zoeken_lezen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items
c01 = .Find("[Subject]='" & c00 & "'").body
Do Until Err.Number <>0
c01 = c01 & "|" & .FindNext.body
Loop
End With
End Sub

3.4.2 Email-concepten zoeken en verplaatsen

Sub email_concepten_zoeken_verplaatsen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items
.Find("[Subject]='" & c00 & "'").Move .Application.GetNamespace("MAPI").GetDefaultFolder(3)
Do Until Err.Number <>0
.FindNext.Move .Application.GetNamespace("MAPI").GetDefaultFolder(3)
Loop
End With
End Sub

3.4.3 Email-concepten zoeken en verwijderen

Sub email_concepten_zoeken_verwijderen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items
.Find("[Subject]='" & c00 & "'").Delete
Do Until Err.Number <>0
.FindNext.Delete
Loop
End With
End Sub

3.4.4 Email-concepten zoeken en wijzigen

Sub email_concepten_zoeken_wijzigen()
On Error Resume Next

c00 = "controle"
c01 = "new subject"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items
With .Find("[Subject]='" & c00 & "'")
.subject = c01
.Save
End With

Do Until Err.Number <>0
With .FindNext
.subject = c01
.Save
End With
Loop
End With
End Sub

4 Emails in Postvak UIT

Emails ontstaan als bij het aanmaken van een nieuwe email de opdracht 'Zenden' wordt gegeven.
Het bericht wordt dan automatisch opgeslagen in de map Postvak UIT: GetDefaultFolder(4).

4.0 Email eigenschappen

4.1 Nieuwe email

Sub email_nieuw()
With CreateObject("Outlook.Application").CreateItem(0)
.To = "snb@webforums.eu"
.subject = "controle"
.body = "bodytext"
.send
End With
End Sub

4.1.1 Nieuwe email met HTML

Sub email_nieuw_html()
With CreateObject("Outlook.Application").CreateItem(0)
.To = "snb@webforum.eu"
.subject = "controle blusser A230"
.HTMLBody = "<'a href=""http://office.webforums.eu/"">Office forum"
.Save
End With
End Sub

4.2.1 Email lezen

Sub email_lezen()
c00 = "controle"

c01= CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items(c00).body
End Sub

4.2.2 Email verplaatsen

Sub email_verplaatsen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(4).Items(c00).Move .GetDefaultFolder(16)
End With
End Sub

4.2.3 Email verwijderen

Sub email_verwijderen()
c00 = "controle"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items(c00).Delete
End Sub

4.2.4 Email wijzigen

Sub email_wijzigen()
c00 = "controle"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items(c00).subject = "new subject"
End Sub

4.3.1 Emails filteren en lezen

Sub emails_filteren_lezen()
c00 = "controle"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items.Restrict("[Subject]='" & c00 & "'")
c01 = c01 & "|" & it.body
Next
End Sub

4.3.2 Emails filteren en verplaatsen

Sub emails_filteren_verplaatsen()
c00 = "controle"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items.Restrict("[Subject]='" & c00 & "'")
it.Move .application.getnamespace("MAPI").GetDefaultFolder(16)
Next
End Sub

4.3.3 Emails filteren en verwijderen

Sub emails_filteren_verwijderen()
c00 = "controle"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items.Restrict("[Subject]='" & c00 & "'")
it.Delete
Next
End Sub

4.3.4 Emails filteren en wijzigen

Sub emails_filteren_wijzigen()
c00 = "controle"
c01 = "new subject"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items.Restrict("[Subject]='" & c00 & "'")
With it
.subject = c01
.Save
end with
Next
End Sub

4.4.1 Emails zoeken en lezen

Sub emails_zoeken_lezen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items
c01 = .Find("[Subject]='" & c00 & "'").body
Do Until Err.Number <>0
c01 = c01 & "|" & .FindNext.body
Loop
End With
End Sub

4.4.2 Emails zoeken en verplaatsen

Sub emails_zoeken_verplaatsen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(4).Items.Find("[Subject]='" & c00 & "'").Move .GetDefaultFolder(16)
Do Until Err.Number <>0
.GetDefaultFolder(4).Items.FindNext.Move .GetDefaultFolder(16)
Loop
End With
End Sub

4.4.3 Emails zoeken en verwijderen

Sub emails_zoeken_verwijderen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items
.Find("[Subject]='" & c00 & "'").Delete
Do Until Err.Number <>0
.FindNext.Delete
Loop
End With
End Sub

4.4.4 Emails zoeken en wijzigen

Sub emails_zoeken_wijzigen()
On Error Resume Next

c00 = "controle"
c01 = "new subject"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items
With .Find("[Subject]='" & c00 & "'")
.subject = c01
.Save
End With

Do Until Err.Number <>0
With .FindNext
.subject = c01
.Save
End With
Loop
End With
End Sub

5 Verzonden emails

Verzonden emails ontstaan als de emails in het Postvak UIT naar de mailserver zijn gezonden.
Het bericht wordt dan automatisch opgeslagen in de map Verzonden items: GetDefaultFolder(5).

5.0 Email eigenschappen

5.2.1 Verzonden email lezen

Sub email_verzonden_lezen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items(c00)
c01 = .To & " " & .subject & " " & .body
End With
End Sub

5.2.2 Verzonden email verplaatsen

Sub email_verzonden_verplaatsen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(5).Items(c00).Move .GetDefaultFolder(3)
End With
End Sub

5.2.3 Verzonden email verwijderen

Sub email_verzonden_verwijderen()
c00 = "controle"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items(c00).Delete
End Sub

5.2.4 Verzonden email wijzigen

Sub email_verzonden_wijzigen()
c00 = "controle"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items(c00).subject = "new subject"
End Sub

5.3.1 Verzonden emails filteren en lezen

Sub emails_verzonden_filteren_lezen()
c00 = "controle"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items.Restrict("[Subject]='" & c00 & "'")
c01 = c01 & "|" & it.body
Next
End Sub

5.3.2 Verzonden emails filteren en verplaatsen

Sub emails_verzonden_filteren_verplaatsen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each it In .GetDefaultFolder(5).Items.Restrict("[Subject]='" & c00 & "'")
it.Move .GetDefaultFolder(3)
Next
End With
End Sub

5.3.2a Verzonden emails verwijderen met loop

Sub email_verzonden_verwijderen()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items
If it.subject = "controle" Then it.Delete
Next
End Sub

5.3.3 Verzonden emails filteren en verwijderen

Sub emails_verzonden_filteren_verwijderen()
c00 = "controle"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items.Restrict("[Subject]='" & c00 & "'")
it.Delete
Next
End Sub

5.3.4 Verzonden emails filteren en wijzigen

Sub emails_verzonden_filteren_wijzigen()
c00 = "controle"
c01 = "new subject"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items.Restrict("[Subject]='" & c00 & "'")
With it
.subject = c01
.Save
End With
Next End With
End Sub

5.4.1 Verzonden emails zoeken en lezen

Sub emails_verzonden_zoeken_lezen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items
c01 = .Find("[Subject]='" & c00 & "'").body
Do Until Err.Number <>0
c01 = c01 & "|" & .FindNext.body
Loop
End With
End Sub

5.4.2 Verzonden emails zoeken en verplaatsen

Sub emails_verzonden_zoeken_verplaatsen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(5).Items.Find("[Subject]='" & c00 & "'").Move .GetDefaultFolder(3)
Do Until Err.Number <>0
.GetDefaultFolder(5).Items.FindNext.Move .GetDefaultFolder(3)
Loop
End With
End Sub

5.4.3 Verzonden emails zoeken en verwijderen

Sub emails_verzonden_zoeken_verwijderen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items
.Find("[Subject]='" & c00 & "'").Delete
Do Until Err.Number <>0
.FindNext.Delete
Loop
End With
End Sub

5.4.4 Verzonden emails zoeken en wijzigen

Sub emails_verzonden_zoeken_wijzigen()
On Error Resume Next

c00 = "controle"
c01 = "new subject"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items
With .Find("[Subject]='" & c00 & "'")
.subject = c01
.Save
End With

Do Until Err.Number <>0
With .FindNext
.subject = c01
.Save
End With
Loop
End With
End Sub

6 Ontvangen emails

Als er geen filters zijn worden ontvangen emails automatisch opgeslagen in de map Postvak IN: GetDefaultFolder(6).

6.0 Email eigenschappen

6.2.1 Ontvangen email lezen

Sub email_ontvangen_lezen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00)
c01 = .To & " " & .subject & " " & .body
End With
End Sub

6.2.2 Ontvangen email verplaatsen

Sub email_ontvangen_verplaatsen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(6).Items(c00).Move .GetDefaultFolder(3)
End With
End Sub

6.2.3 Ontvangen email verwijderen

Sub email_ontvangen_verwijderen()
c00 = "controle"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).Delete
End Sub

6.2.4 Ontvangen email wijzigen

Sub email_ontvangen_wijzigen()
c00 = "controle"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).subject = "new subject"
End Sub

6.3.1 Ontvangen emails filteren en lezen

Sub emails_ontvangen_filteren_lezen()
c00 = "controle"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[Subject]='" & c00 & "'")
c01 = c01 & "|" & it.body
Next
End Sub

6.3.2 Ontvangen emails filteren en verplaatsen

Sub emails_ontvangen_filteren_verplaatsen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each it In .GetDefaultFolder(6).Items.Restrict("[Subject]='" & c00 & "'")
it.Move .GetDefaultFolder(3)
Next
End With
End Sub

6.3.3 Ontvangen emails filteren en verwijderen

Sub emails_ontvangen_filteren_verwijderen()
c00 = "controle"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[Subject]='" & c00 & "'")
it.Delete
Next
End Sub

6.3.4 Ontvangen emails filteren en wijzigen

Sub emails_ontvangen_filteren_wijzigen()
c00 = "controle"
c01 = "new subject"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[Subject]='" & c00 & "'")
With it
.subject = c01
.Save
End With
Next End With
End Sub

6.4.1 Ontvangen emails zoeken en lezen

Sub emails_ontvangen_zoeken_lezen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
c01 = .Find("[Subject]='" & c00 & "'").body
Do Until Err.Number <>0
c01 = c01 & "|" & .FindNext.body
Loop
End With
End Sub

6.4.2 Ontvangen emails zoeken en verplaatsen

Sub emails_ontvangen_zoeken_verplaatsen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(6).Items.Find("[Subject]='" & c00 & "'").Move .GetDefaultFolder(3)
Do Until Err.Number <>0
.GetDefaultFolder(6).Items.FindNext.Move .GetDefaultFolder(3)
Loop
End With
End Sub

6.4.3 Ontvangen emails zoeken en verwijderen

Sub emails_ontvangen_zoeken_verwijderen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
.Find("[Subject]='" & c00 & "'").Delete
Do Until Err.Number <>0
.FindNext.Delete
Loop
End With
End Sub

6.4.4 Ontvangen emails zoeken en wijzigen

Sub emails_ontvangen_zoeken_wijzigen()
On Error Resume Next

c00 = "controle"
c01 = "new subject"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
With .Find("[Subject]='" & c00 & "'")
.subject = c01
.Save
End With

Do Until Err.Number <>0
With .FindNext
.subject = c01
.Save
End With
Loop
End With
End Sub

6.5 Ontvangen email opslaan

Sub email_ontvangen_opslaan()
With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6)
For Each it in .Items
it.SaveAs "G:\" & it.subject & ".msg"
Next
End With
End Sub

7 Kontaktpersonen

7.0 Kontaktpersoon eigenschappen

Sub kontaktpersoon_eigenschappen()

' CreateItem (olContactItem)
' CreateItem (2)
' GetDefaultFolder(olFolderContacts)
' GetDefaultFolder(10)
' GetDefaultfolder("Contactpersonen")


With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(1)
c0 = .Account
c1 = .Actions.count
c2 = .Anniversary
c3 = .Application
c4 = .AssistantName
c5 = .AssistantTelephoneNumber
c6 = .Attachments.count
c7 = .BillingInformation
c8 = .Birthday
c9 = .body
c10 = .Business2TelephoneNumber
c11 = .BusinessAddress
c12 = .BusinessAddressCity
c13 = .BusinessAddressCountry
c14 = .BusinessAddressPostalCode
c15 = .BusinessAddressPostOfficeBox
c16 = .BusinessAddressState
c17 = .BusinessAddressStreet
c18 = .BusinessFaxNumber
c19 = .BusinessHomePage
c20 = .BusinessTelephoneNumber
c21 = .CallbackTelephoneNumber
C22 = .CarTelephoneNumber
c23 = .Categories
c24 = .children
c25 = .Class
c26 = .Companies
c27 = .CompanyAndFullName
c28 = .CompanyLastFirstNoSpace
c29 = .CompanyLastFirstSpaceOnly
c30 = .CompanyMainTelephoneNumber
c31 = .CompanyName
c32 = .ComputerNetworkName
c33 = .ConversationIndex
c34 = .ConversationTopic
c35 = .CreationTime
c36 = .CustomerID
c37 = .Department
c38 = .Email1Address
c39 = .Email1AddressType
c40 = .Email1DisplayName
c41 = .Email1EntryID
c42 = .Email2Address
c43 = .Email2AddressType
c44 = .Email2DisplayName
c45 = .Email2EntryID
c46 = .Email3Address
c47 = .Email3AddressType
c48 = .Email3DisplayName
c49 = .Email3EntryID
c50 = .entryId
c51 = .FileAs
c52 = .FirstName
c53 = .FormDescription
c54 = .FTPSite
c55 = .FullName
c56 = .FullNameAndCompany
c57 = .Gender
c58 = .GetInspector
c59 = .GovernmentIDNumber
c60 = .Hobby
c61 = .Home2TelephoneNumber
c62 = .HomeAddress
c63 = .HomeAddressCity
c64 = .HomeAddressCountry
c65 = .HomeAddressPostalcode
c66 = .HomeAddressPostOfficeBox
c67 = .HomeAddressState
c68 = .HomeAddressStreet
c69 = .HomeFaxNumber
c70 = .HomeTelephoneNumber
c71 = .Importance
c72 = .Initials
c73 = .InternetFreeBusyAddress
c74 = .ISDNNumber
c75 = .JobTitle
c76 = .Journal
c77 = .Language
c78 = .LastFirstAndSuffix
c79 = .LastFirstNoSpace
c80 = .LastFirstNoSpaceCompany
c81 = .LastFirstSpaceOnly
c82 = .LastFirstSpaceOnlyCompany
c83 = .LastModificationTime
c84 = .LastName
c85 = .LastNameAndFirstName
c86 = .Links.count
c87 = .MailingAddress
c88 = .MailingAddressCity
c89 = .MailingAddressCountry
c90 = .MailingAddressPostalCode
c91 = .MailingAddressPostOfficeBox
c92 = .MailingAddressState
c93 = .MailingAddressStreet
c94 = .ManagerName
c95 = .MessageClass
c96 = .MiddleName
c97 = .Mileage
c98 = .MobileTelephoneNumber
c99 = .NetMeetingAlias
c100 = .NetMeetingServer
c101 = .NickName
c102 = .NoAging
c103 = .OfficeLocation
c104 = .OrganizationalIDNumber
c105 = .OtherAddress
c106 = .OtherAddressCity
c107 = .OtherAddressCountry
c108 = .OtherAddressPostalCode
c109 = .OtherAddressPostOfficeBox
c110 = .OtherAddressState
c111 = .OtherAddressStreet
c112 = .OtherFaxNumber
c113 = .OtherTelephoneNumber
c114 = .OutlookInternalVersion
c115 = .OutlookVersion
c116 = .PagerNumber
c117 = .Parent
c118 = .PersonalHomePage
c119 = .PrimaryTelephoneNumber
c120 = .Profession
c121 = .RadioTelephoneNumber
c122 = .ReferredBy
c123 = .Saved
c124 = .SelectedMailingAddress
c125 = .Sensitivity
c126 = .Session
c127 = .Size
c128 = .Spouse
c129 = .subject
c130 = .Suffix
c131 = .TelexNumber
c132 = .Title
c133 = .TTYTDDTelephoneNumber
c134 = .UnRead
c135 = .User1
c136 = .User2
c137 = .User3
c138 = .User4
c139 = .UserCertificate
c140 = .UserProperties.count
c141 = .WebPage
c142 = .YomiCompanyName
c143 = .YomiFirstName
c144 = .YomiLastName
End With
End Sub

7.1.1 Nieuwe kontaktpersoon

Sub kontaktpersoon_nieuw()
With CreateObject("Outlook.Application").CreateItem(2)
.FirstName = "first"
.LastName = "last"
.Email1Address = "snb@forum.eu"
.Save
End With
End Sub

7.2.1 Kontaktpersoon lezen

Sub kontaktpersoon_lezen()
c00 = "Jeroen Spoert" '= fullname

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00)
c01 = .FullName & "|" & .Email1Address
End With
End Sub

7.2.5 Kontaktpersoon opslaan als bestand

Sub kontaktpersoon_opslaan_als()
c00 = "Jeroen Spoert"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00)
.SaveAs "E:\" & .FullName & ".txt", 0
.SaveAs "E:\" & .FullName & ".rtf", 1
.SaveAs "E:\" & .FullName & ".oft", 2
.SaveAs "E:\" & .FullName & ".msg", 3
.SaveAs "E:\" & .FullName & ".vcf", 6
End With
End Sub

7.2.2 Kontaktpersoon verplaatsen

Sub kontaktpersoon_verplaatsen()
c00 = "Jeroen Spoert"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(10).Items(c00).Move .GetDefaultFolder(3)
End With
End Sub

7.2.3 Kontaktpersoon verwijderen

Sub kontaktpersoon_verwijderen()
c00 = "Jeroen Spoert"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00).Delete
End Sub

7.2.4 Kontaktpersoon wijzigen

Sub kontaktpersoon_wijzigen()
c00 = "Jeroen Spoert"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00)
.Email2Address = "Jeroen@planeet.eu"
.Save
End With
End Sub

7.3.1 Kontaktpersonen filteren en lezen

Sub kontaktpersonen_filteren_lezen()
c00 = "Jeroen Spoert"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[Fullname]='" & c00 & "'")
c01 = c01 & "|" & it.Email1Address
Next
End Sub

7.3.2 Kontaktpersonen filteren en verplaatsen

Sub kontaktpersonen_filteren_verplaatsen()
c00 = "Jeroen Spoert"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each it In .GetDefaultFolder(10).Items.Restrict("[FullName]='" & c00 & "'")
it.Move .GetDefaultFolder(3)
Next
End With
End Sub

7.3.3 Kontaktpersonen filteren en verwijderen

Sub kontaktpersonen_filteren_verwijderen()
c00 = "Jeroen Spoert"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[FullName]='" & c00 & "'")
it.Delete
Next
End Sub

7.3.4 Kontaktpersonen filteren en wijzigen

Sub kontaktpersonen_filteren_wijzigen()
c00 = "Bedrijf1"
c01 = "Bedrijf1 BV."

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[CompanyName]='" & c00 & "'")
With it
.CompanyName = c01
.Save
End With
Next
End Sub

7.4.1 Kontaktpersonen zoeken en lezen

Sub kontaktpersonen_zoeken_lezen()
On Error Resume Next

c00 = "Bedrijf1"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items
c01 = .Find("[CompanyName]='" & c00 & "'").FullName
Do Until Err.Number <>0
c01 = c01 & "|" & .FindNext.FullName
Loop
End With
End Sub

7.4.2 Kontaktpersonen zoeken en verplaatsen

Sub kontaktpersonen_zoeken_verplaatsen()
On Error Resume Next

c00 = "Bedrijf1"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(10).Items.Find("[CompanyName]='" & c00 & "'").Move .GetDefaultFolder(3)
Do Until Err.Number <>0
.GetDefaultFolder(10).Items.FindNext.Move .GetDefaultFolder(3)
Loop
End With
End Sub

7.4.3 Kontaktpersonen zoeken en verwijderen

Sub kontaktpersonen_zoeken_verwijderen()
On Error Resume Next

c00 = "Bedrijf1"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items
.Find("[CompanyName]='" & c00 & "'").Delete
Do Until Err.Number <>0
.FindNext.Delete
Loop
End With
End Sub

7.4.4 Kontaktpersonen zoeken en wijzigen

Sub kontaktpersonen_zoeken_wijzigen()
On Error Resume Next

c00 = "Bedrijf1"
c01 = "Bedrijf1 BV."

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items
With .Find("[CompanyName]='" & c00 & "'")
.CompanyName = c01
.Save
End With

Do Until Err.Number <>0
With .FindNext
.CompanyName = c01
.Save
End With
Loop
End With
End Sub

8 Distributielijst

8.0 Distributielijst eigenschappen

Sub distributielijst_eigenschappen()

' CreateItem (olDistlistItem)
' CreateItem (7)
' GetDefaultFolder(olFolderContacts)
' GetDefaultFolder(10)


c00 = "DL voorbeeld"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00)
c1 = .Actions.Count
c2 = .Application
c3 = .Attachments.Count
c4 = .body
c5 = .Categories
c6 = .Class
c7 = .Companies
c8 = .ConversationIndex
c9 = .ConversationTopic
c10 = .DLName
c11 = .entryId
c12 = .FormDescription
c13 = .GetInspector
c14 = .Importance
c15 = .LastModificationTime
c16 = .links.Count
c17 = .MemberCount
c18 = .MessageClass
c19 = .Mileage
c20 = .OutlookInternalVersion
c21 = .OutlookVersion
c22 = .Parent
c23 = .Saved
c24 = .Sensitivity
c25 = .Session
c26 = .Size
c27 = .subject
c28 = .UnRead
c29 = .UserProperties
End With
End Sub
Een distributielijst kun je selecteren aan de hand van xde eigenschap .DLName.

8.1 Nieuwe distributielijst

Sub distributielijst_nieuw()
With CreateObject("Outlook.Application").CreateItem(7)
.DLName = "DL voorbeeld"
.Save
End With
End Sub

8.2.1 Distributielijst lezen

Sub distributielijst_lezen()
c00 = "DL voorbeeld"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00)
c01 = .DLName & "|" & .MemberCount
End With
End Sub

8.2.2 Distributielijst verplaatsen

Sub distributielijst_verplaatsen()
c00 = "DL voorbeeld"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(10).Items(c00).Move .GetDefaultFolder(3)
End With
End Sub

8.2.3 Distributielijst verwijderen

Sub distributielijst_verwijderen()
c00 = "DL voorbeeld"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00).Delete
End Sub

8.2.4 Distributielijst wijzigen

Sub distributielijst_wijzigen()
c00 = "DL voorbeeld"
c01 = "DL 2e voorbeeld"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00)
.DLName= c01
.Save
End With
End Sub

8.3.1 Distributielijsten filteren en lezen

Sub distributielijsten_filteren_lezen()
c00 = "DL voorbeeld"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[DLName]='" & c00 & "'")
c01 = c01 & "|" & it.DLName & "_" & it.MemberCount
Next
End Sub

8.3.2 Distributielijsten filteren en kopiŽren

Sub distributielijsten_filteren_kopiŽren()
c00 = "DL voorbeeld"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[DLName]='" & c00 & "'")
it.Copy
it.Move CreateObject("Outlook.Application").GetNamespace("MAPI").Folders(2).Folders("distributielijst")
Next
End Sub

8.3.2 Distributielijsten filteren en verplaatsen

Sub distributielijsten_filteren_verplaatsen()
c00 = "DL voorbeeld"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[DLName]='" & c00 & "'")
it.Move CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(3)
Next
End Sub

8.3.3 Distributielijsten filteren en verwijderen

Sub distributielijsten_filteren_verwijderen()
c00 = "DL voorbeeld"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[DLName]='" & c00 & "'")
it.Delete
Next
End Sub

8.3.4 Distributielijsten filteren en wijzigen

Sub distributielijsten_filteren_wijzigen()
c00 = "DL voorbeeld"
c01 = "Oude lijst"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[DLName]='" & c00 & "'")
With it
.body = c01
.Save
End With
Next
End Sub

8.4.1 Distributielijsten zoeken en lezen

Sub distributielijsten_zoeken_lezen()
On Error Resume Next

c00 = "DL voorbeeld"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items
c01 = .Find("[DLName]='" & c00 & "'").body
Do Until Err.Number <>0
c01 = c01 & "|" & .FindNext.body
Loop
End With
End Sub

8.4.2 Distributielijsten zoeken en verplaatsen

Sub distributielijsten_zoeken_verplaatsen()
On Error Resume Next

c00 = "DL voorbeeld"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(10).Items.Find("[DLName]='" & c00 & "'").Move .GetDefaultFolder(3)
Do Until Err.Number <>0
.GetDefaultFolder(10).Items.FindNext.Move .GetDefaultFolder(3)
Loop
End With
End Sub

8.4.3 Distributielijsten zoeken en verwijderen

Sub distributielijsten_zoeken_verwijderen()
On Error Resume Next

c00 = "DL voorbeeld"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items
.Find("[DLName]='" & c00 & "'").Delete
Do Until Err.Number <>0
.FindNext.Delete
Loop
End With
End Sub

8.4.4 Distributielijsten zoeken en wijzigen

Sub distributielijsten_zoeken_wijzigen()
On Error Resume Next

c00 = "DL voorbeeld"
c01 = "new subject"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items
With .Find("[DLName]='" & c00 & "'")
.subject = c01
.Save
End With

Do Until Err.Number <>0
With .FindNext
.subject = c01
.Save
End With
Loop
End With
End Sub

8.5.1 Distributielijst: 1 kontaktpersoon lezen

Sub distributielijst_lezen()
c00 = "DL voorbeeld"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00)
If .MemberCount >0 Then
With .GetMember(1)
c01=.Name & "_" & .address & "_" & .AddressEntry
End With
End If
End With
End Sub

8.5.2 Distributielijst: alle kontaktpersonen lezen

Sub distributielijst_kontaktpersoon_lezen()
c00 = "DL voorbeeld"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00)
For j = 1 To .MemberCount
c01 = c01 & "|" & .GetMember(j).Name & "_" & .GetMember(j).Address & "_" & .GetMember(j).AddressEntry
Next
End With
End Sub

8.5.3 Distributielijst: kontaktpersoon toevoegen

Alleen bestaande kontaktpersonen kunnen aan een distributielijst worden toegevoegd.
Sub distributielijst_wijzigen_kontaktpersoon_toevoegen()
c00 = "DL voorbeeld"
c01 = "K. Franken"

Set c02 = CreateObject("Outlook.Application").CreateItem(0).Recipients
c02.Add c01

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00)
.AddMembers c02
.Save
End With
End Sub

8.5.4 Distributielijst: kontaktpersoon verwijderen

Sub distributielijst_wijzigen_kontaktpersoon_verwijderen()
c00 = "DL voorbeeld"
c01 = "K. Franken"

Set c02 = CreateObject("Outlook.Application").CreateItem(0).Recipients
c02.Add c01

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00)
.RemoveMembers c02
.Save
End With
End Sub

8.5.5 Distributielijst: kontaktpersoon verwijderen (alternatieve methode)

Sub distributielijst_wijzigen_kontaktpersoon_verwijderen2()
c00 = "DL voorbeeld"
c01 = "anita@planeet.eu"

With CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00)
For j = 1 To .MemberCount
If LCase(.GetMember(j).address) = LCase(c01) Then .RemoveMembers .GetMember(j)
Next
.Save
End With
End Sub

8.5.6 Distributielijsten filteren en kontaktpersoon verwijderen

Sub distributielijsten_filteren_wijzigen_kontaktpersoon_verwijderen2()
c01 = "anita@planeet.eu"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[Messageclass]='IPM.DistList'")
Set c02 = CreateObject("Outlook.Application").CreateItem(0).Recipients

For j = 1 To it.MemberCount
If LCase(it.GetMember(j).address) = LCase(c01) Then c02.Add it.GetMember(j)
Next

If c02.Count >0 Then
it.RemoveMembers c02
it.Save
End If
Next
End Sub

9 Notities

9.0 Notitie eigenschappen

Sub notitie_eigenschappen()

' createitem(5)
' createitem(olNoteItem)
' Getdefaultfolder (12)
' Getdefaultfolder(olFolderNotes)
' GetDefaultfolder("notities")


With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items(1)
c1 = .Application
c2 = .body
c3 = .Categories
c4 = .Class
c5 = .Color
c6 = .CreationTime
c7 = .EntryId
c8 = .GetInspector
c9 = .Height
c10 = .LastModificationTime
c11 = .Left
c12 = .links.Count
c13 = .MessageClass
c14 = .Parent
c15 = .Saved
c16 = .Session
c17 = .Size
c18 = .subject
c19 = .Top
c20 = .Width
End With
End Sub

9.1 Nieuwe notitie

Sub notitie_nieuw()
With CreateObject("Outlook.Application").CreateItem(5)
.body = "controle" & vbLf & "kijk eens"
.Save
End With
End Sub

9.2.1 Notitie lezen

Sub notitie_lezen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items(c00)
If .Class = 44 Then c01 = .body & "|" & .CreationTime
End With
End Sub

9.2.2 Notitie verplaatsen

Sub notitie_verplaatsen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(12).Items(c00).Move .GetDefaultFolder(3)
End With
End Sub

9.2.3 Notitie verwijderen

Sub notitie_verwijderen()
c00 = "controle"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items(c00).Delete
End Sub

9.2.4 Notitie wijzigen

Sub notitie_wijzigen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items(c00)
.body = "new subject"
.Top = .Top + 30
.Left = .Left + 40
.Height = 2 * .Height
.Width = 2 * .Width
.Color = 2
.Save
End With
End Sub

9.3.1 Notities filteren en lezen

Sub notities_filteren_lezen()
c00 = "controle"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items.Restrict("[Subject]='" & c00 & "'")
c01 = c01 & "|" & it.body
Next
End Sub

9.3.2 Notities filteren en verplaatsen

Sub notities_filteren_verplaatsen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each it In .GetDefaultFolder(12).Items.Restrict("[Subject]='" & c00 & "'")
it.Move .GetDefaultFolder(3)
Next
End With
End Sub

9.3.3 Notities filteren en verwijderen

Sub notities_filteren_verwijderen()
c00 = "controle"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items.Restrict("[Subject]='" & c00 & "'")
it.Delete
Next
End Sub

9.3.4 Notities filteren en wijzigen

Sub notities_filteren_wijzigen()
c00 = "controle"
c01 = "new subject"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items.Restrict("[Subject]='" & c00 & "'")
With it
.body = c01
.Save
End With
Next
End Sub

9.4.1 Notities zoeken en lezen

Sub notities_zoeken_lezen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items
c01 = .Find("[Subject]='" & c00 & "'").body
Do Until Err.Number <>0
c01 = c01 & "|" & .FindNext.body
Loop
End With
End Sub

9.4.2 Notities zoeken en verplaatsen

Sub notities_zoeken_verplaatsen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(12).Items.Find("[Subject]='" & c00 & "'").Move .GetDefaultFolder(3)
Do Until Err.Number <>0
.GetDefaultFolder(12).Items.FindNext.Move .GetDefaultFolder(3)
Loop
End With
End Sub

9.4.3 Notities zoeken en verwijderen

Sub notities_zoeken_verwijderen()
On Error Resume Next

c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items
.Find("[Subject]='" & c00 & "'").Delete
Do Until Err.Number <>0
.FindNext.Delete
Loop
End With
End Sub

9.4.4 Notities zoeken en wijzigen

Sub notities_zoeken_wijzigen()
On Error Resume Next

c00 = "controle"
c01 = "new subject"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items
With .Find("[Subject]='" & c00 & "'")
.body = c01
.Save
End With

Do Until Err.Number <>0
With .FindNext
.body = c01
.Save
End With
Loop
End With
End Sub

10 Afspraken

10.0 Afspraak eigenschappen

Sub afspraak_eigenschappen()

'Createitem(1)
'Createitem(olappointment)
'Getdefaultfolder(9)
'Getdefaultfolder(olCalendar)
'Getdefaultfolder("Agenda")


With CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(9).Items(1)
c0 = .Actions.Count
For jj = 1 To c0
d0 = .Actions(jj).Name
Next
c1 = .Application
c2 = .Attachments.Count
c3 = .BillingInformation
c4 = .body
c5 = .Categories
c6 = .Class
c7 = .Companies
c8 = .ContactNames.Count
c9 = .ConversationIndex
c10 = .ConversationTopic
c11 = .CreationTime
c12 = .Docposted
c13 = .DocPrinted
c14 = .DocRouted
c15 = .DocSaved
c16 = .Duration
c17 = .End
c18 = .entryId
c19 = .FormDescription
c20 = .GetInspector
c21 = .Importance
c22 = .LastModificationTime
c23 = .links.Count
c24 = .Location
c25 = .MeetingStatus
c24 = .MessageClass
c25 = .Mileage
c26 = .NoAging
c27 = .OutlookInternalVersion
c28 = .OutlookVersion
c29 = .Parent
c30 = .Recipients.Count
For jj = 1 To c30
With .Recipients(jj)
d1 = .Name
d2 = .address
d3 = .AddressEntry
End With
Next
c31 = .Saved
c32 = .Sensitivity
c33 = .Session
c34 = .Size
c35 = .start
c36 = .subject
c37 = .Type
c38 = .UnRead'waar / onwaar
c39 = .UserProperties.Count
End With
End Sub

10.1 Nieuwe afspraak

Sub afspraak_nieuw()
With CreateObject("Outlook.Application").CreateItem(1)
.subject = "Jaarvergadering"
.Start = DateValue("06-03-2019") + TimeValue("12:30")
.Duration = 45
.Location = "Vergaderzaal C"
.Save
End With
End Sub

10.2.1 Afspraak lezen

Sub afspraak_lezen()
c00 = "Jaarvergadering"'Subject

c01=CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items(c00).location
End Sub

10.2.2 Afspraak verplaatsen

Sub afspraak_wijzigen()
c00 = "Jaarvergadering"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(9).Items(c00).move ..GetDefaultFolder(9)
End With
End Sub

10.2.3 Afspraak verwijderen

Sub afspraak_wijzigen()
c00 = "Jaarvergadering"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items(c00).delete
End Sub

10.2.4 Afspraak wijzigen

Sub afspraak_wijzigen()
c00 = "Jaarvergadering"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items(c00)
.start = DateAdd("d", 4, .start) + DateAdd( "h", 2, .start)
.Save
End With
End Sub

10.3.1 Afspraken filteren en lezen

Sub afspraken_filteren_lezen()
c01="Sessie B"
c00 = "[Location]='" & c01 & "'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items.Restrict(c00)
c02 = c02 & "|" & it.Location & it.start
Next
End Sub

10.3.2 Afspraken filteren en verplaatsen

Sub afspraken_filteren_verplaatsen()
c01="Sessie B"
c00 = "[Location]='" & c01 & "'"

with CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each it In .GetDefaultFolder(9).Items.Restrict(c00)
it.move .GetDefaultFolder(3)
Next
End With
End Sub

10.3.3 Afspraken filteren en verwijderen

Sub afspraken_filteren_verwijderen()
c01="Sessie B"
c00 = "[Location]='" & c01 & "'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items.Restrict(c00)
it.Delete
Next
End Sub

10.3.4 Afspraken filteren en wijzigen

Sub afspraken_filteren_wijzigen()
c01="Sessie B"
c02="Room 203"
c00 = "[Location]='" & c01 & "'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items.Restrict(c00)
it.Location = c02
it.start = DateAdd( "d", 1, it.start)
it.Save
Next
End Sub

10.4.1 Afspraken zoeken en lezen

Sub afspraken_zoeken_lezen()
On Error Resume Next

c01 = "11-04-2011 9:00"
c00 = "[Start]>='" & format(c01, "ddddd hh:mm") & "' And [Start]<='" & format(DateAdd( "d", 7, c01), "ddddd hh:mm") & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items
c02 = .Find(c00).subject
Do Until Err.Number >0
c02 = c02 & "|" & .FindNext.subject
Loop
End With
End Sub

10.4.2 Afspraken zoeken en verplaatsen

Sub afspraken_zoeken_verplaatsen()
On Error Resume Next

c01 = "Sessie B"
c00 = "[Location]='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(9).Items.Find(c00).Move .GetDefaultFolder(3)
Do Until Err.Number >0
.GetDefaultFolder(9).Items.FindNext.Move .GetDefaultFolder(3)
Loop
End With
End Sub

10.4.3 Afspraken zoeken en verwijderen

Sub afspraken_zoeken_verwijderen()
On Error Resume Next

c01 = "Sessie B"
c00 = "[Location]='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items
.Find(c00).Delete
Do Until Err.Number >0
.FindNext.Delete
Loop
End With
End Sub

10.4.4 Afspraken zoeken en wijzigen

Sub afspraken_zoeken_wijzigen()
On Error Resume Next

c01 = "Sessie B"
c02 = "vergaderzaal A"
c00 = "[Location]='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items
With .Find(c00)
.Location = c02
.Save
End With

Do Until Err.Number <>0
With .FindNext
.Location = c02
.Save
End With
Loop
End With
End Sub

10.4.5 Afspraak zoeken met meer criteria

Sub afspraak_zoeken()
On Error Resume Next

c01 = DateValue("06-05-2019") + TimeValue("12:30")'.Start
c02 = "onderwerp"'.Subject
c03 = DateAdd("n", 45, c01)'.End
c04 = "Vergaderzaal C"'.Location
c05 = "ddddd h:mm"'timeformat

c00 = "[Start] ='" & format(c01, c05) & "'"' zoeken op begintijdstip
c00 = "[Start] ='" & format(c01, c05) & "' And [Subject]='" & c02 & "'"' zoeken op begintijdstip en onderwerp
c00 = "[Start] ='" & format(c01, c05) & "' And [Subject]='" & c02 & "' And [Location]='" & c04 & "'"' zoeken op begintijdstip, onderwerp en lokatie
c00 = "[Start] ='" & format(c01, c05) & "' And [Subject]='" & c02 & "' And [End]='" & format(c03, c05) & "' And [Location]='" & c04 & "'"' zoeken op begintijdstip, onderwerp en lokatie

MsgBox CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items.Find(c00).start
End Sub

11 Vergaderverzoek

11.0 Vergaderverzoek eigenschappen

Sub vergaderverzoek_eigenschappen()

' CreateItem(1)
' Createitem(olAppointmentitem)
' Getdefaultfolder(9)
' Getdefaultfolder(olfolderCalendar)
' Getdefaultfolder("Agenda")


c00 = "Jaarvergadering"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00)
c0 = .Actions.Count
For jj = 1 To c0
d0 = .Actions(jj).Name
Next
c1 = .Application
c2 = .Attachments.Count
c3 = .AutoForwarded
c4 = .BillingInformation
c5 = .body
c6 = .Categories
c7 = .Class
c8 = .Companies
c9 = .ConversationIndex
c10 = .ConversationTopic
c11 = .CreationTime
c12 = DeferredDeliveryTime
c13 = DeleteAfterSubmit
c14 = .entryId
c15 = .ExpiryTime
c16 = .FlagDueBy
c17 = .FlagRequest
c18 = .FlagStatus
c19 = .FormDescription
c20 = .GetInspector
c21 = .Importance
C22 = .LastModificationTime
c23 = .links.Count
c24 = .MessageClass
c25 = .Mileage
c26 = .NoAging
c27 = .OriginatorDeliveryReportRequested
c28 = .OutlookInternalVersion
c29 = .OutlookVersion
c30 = .Parent
c31 = .ReceivedTime
c32 = .Recipients.Count
For jj = 1 To c32
With .Recipients(jj)
d1 = .Name
d2 = .address
d3 = .AddressEntry
End With
Next
c33 = .ReminderSet
c34 = .ReminderTime
c35 = .ReplyRecipients
c36 = .Saved
c37 = .SaveSentMessageFolder
c38 = .SenderName
c39 = .Sensitivity
c40 = .Sent
c41 = .SentOn
c42 = .Session
c43 = .Size
c44 = .subject
c45 = .Submitted
c46 = .UnRead
c47 = .UserProperties.Count
End With
End Sub

11.1 Nieuw vergaderverzoek

Sub vergaderverzoek_nieuw()
c00="Jaarvergadering"
c01 = "Zaal A"
c02 = format(DateAdd( "d", 2, Date) + TimeValue("20:15"), "ddddd hh:mm")
c03 = 55
c04 = "Jeroen Spoert"

With CreateObject("Outlook.Application").CreateItem(1)
.subject = c00
.MeetingStatus = 1
.Location = c01
.start = c02
.Duration = c03
.Recipients.Add c04
.send
End With
End Sub

11.2.1 Vergaderverzoek lezen

Sub vergaderverzoek_lezen()
' vergaderverzoeken bevinden zich alleen in een Postvak IN: getdefaultfolder(6) getdefaultfolder(olFolderInbox)
c00 = "Jaarvergadering"'Subject

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00)
c01 = .subject & "_" & CreationTime & "_" & .body & "_" & .SenderName & "_" & .Class' 53
End With
End Sub

11.2.3 Vergaderverzoek verplaatsen

Sub vergaderverzoek_verplaatsen()
c00 = "Jaarvergadering"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(6).Items(c00).Move .GetDefaultFolder(3)
End With
End Sub

11.2.4 Vergaderverzoek verwijderen

Sub vergaderverzoek_verwijderen()
c00 = "Jaarvergadering"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).Delete
End Sub

11.2.5 Vergaderverzoek voorlopig accepteren

Sub vergaderverzoek_lezen_voorlopig_accepteren()
c00 = "Jaarvergadering"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).GetAssociatedAppointment(True).Respond 2
End Sub

11.2.6 Vergaderverzoek accepteren

Sub vergaderverzoek_lezen_accepteren()
c00 = "Jaarvergadering"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).GetAssociatedAppointment(True).Respond 3
End Sub

11.2.7 Vergaderverzoek weigeren

Sub vergaderverzoek_lezen_weigeren()
c00 = "Jaarvergadering"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).GetAssociatedAppointment(True).Respond 4
End Sub

11.3.1 Vergaderverzoeken filteren en lezen

Sub vergaderverzoeken_filteren_lezen()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[MessageClass]='IPM.Schedule.Meeting.Request'")
c01 = c01 & "|" & it.body
Next
End Sub

11.3.2 Vergaderverzoeken filteren en verplaatsen

Sub vergaderverzoeken_filteren_verplaatsen()
With CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each it In .GetDefaultFolder(6).Items.Restrict("[Class]='53'")
it.Move .GetDefaultFolder(3)
Next
End With
End Sub

11.3.3 Vergaderverzoeken filteren en verwijderen

Sub vergaderverzoeken_filteren_verwijderen()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[Class]='53'")
it.Delete
Next
End Sub

11.3.5 Vergaderverzoeken filteren en voorlopig accepteren

Sub vergaderverzoeken_filteren_voorlopig_accepteren()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[Class]='53'")
it.GetAssociatedAppointment(True).Respond 3
Next
End Sub

11.3.6 Vergaderverzoeken filteren en accepteren

Sub vergaderverzoeken_filteren_accepteren()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[MessageClass]='IPM.Schedule.Meeting.Request'")
it.GetAssociatedAppointment(True).Respond 2
Next
End Sub

11.3.7 Vergaderverzoeken filteren en weigeren

Sub vergaderverzoeken_filteren_weigeren()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[Class]='53'")
it.GetAssociatedAppointment(True).Respond 4
Next
End Sub

11.3.8 Vergaderverzoeken filteren en kopiŽren

Sub vergaderverzoeken_filteren_kopiŽren()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[MessageClass]='IPM.Schedule.Meeting.Request'")
it.Copy
it.Move CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(3)
Next
End Sub

11.4.1 Vergaderverzoeken zoeken en lezen

Sub vergaderverzoeken_zoeken_lezen()
On Error Resume Next

c01 = "IPM.Schedule.Meeting.Request"
c02 = "Jaarvergadering"
c00 = "[MessageClass]='" & c01 & "' And [Subject]='" & c02 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
c01 = .Find(c00).body
Do Until Err.Number <>0
c01 = c01 & "|" & .FindNext.body
Loop
End With
End Sub

11.4.8 Vergaderverzoeken zoeken en kopiŽren

Sub vergaderverzoeken_zoeken_kopiŽren()
On Error Resume Next

c01 = "IPM.Schedule.Meeting.Request"
c02 = "Jaarvergadering"
c00 = "[MessageClass]='" & c01 & "' And [Subject]='" & c02 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
With .Find(c00)
.Copy .Move CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(3)
End With

Do Until Err.Number <>0
With .FindNext
.Copy
.Move CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(3)
End With
Loop
End With
End Sub

11.4.2 Vergaderverzoeken zoeken en verplaatsen

Sub vergaderverzoeken_zoeken_verplaatsen()
On Error Resume Next

c01 = "IPM.Schedule.Meeting.Request"
c02 = "Jaarvergadering"
c00 = "[MessageClass]='" & c01 & "' And [Subject]='" & c02 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(6).Items.Find(c00).Move .GetDefaultFolder(3)

Do Until Err.Number <>0
.GetDefaultFolder(6).Items.FindNext.Move .GetDefaultFolder(3)
Loop
End With
End Sub

11.4.3 Vergaderverzoeken zoeken en verwijderen

Sub vergaderverzoeken_zoeken_verwijderen()
On Error Resume Next

c01 = "IPM.Schedule.Meeting.Request"
c02 = "Jaarvergadering"
c00 = "[MessageClass]='" & c01 & "' And [Subject]='" & c02 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
.Find(c00).Delete

Do Until Err.Number <>0
.FindNext.Delete
Loop
End With
End Sub

11.4.5 Vergaderverzoeken zoeken en voorlopig accepteren

Sub vergaderverzoeken_zoeken_voorlopig_accepteren()
On Error Resume Next

c01 = "IPM.Schedule.Meeting.Request"
c02 = "Jaarvergadering"
c00 = "[MessageClass]='" & c01 & "' And [Subject]='" & c02 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
.Find(c00).GetAssociatedAppointment(True).Respond 3

Do Until Err.Number <>0
.FindNext.GetAssociatedAppointment(True).Respond 3
Loop
End With
End Sub

11.4.6 Vergaderverzoeken zoeken en accepteren

Sub vergaderverzoeken_zoeken_accepteren()
On Error Resume Next

c01 = "IPM.Schedule.Meeting.Request"
c02 = "Jaarvergadering"
c00 = "[MessageClass]='" & c01 & "' And [Subject]='" & c02 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
.Find(c00).GetAssociatedAppointment(True).Respond 2

Do Until Err.Number <>0
.FindNext.GetAssociatedAppointment(True).Respond 2
Loop
End With
End Sub

11.4.7 Vergaderverzoeken zoeken en weigeren

Sub vergaderverzoeken_zoeken_weigeren()
On Error Resume Next

c01 = "IPM.Schedule.Meeting.Request"
c02 = "Jaarvergadering"
c00 = "[MessageClass]='" & c01 & "' And [Subject]='" & c02 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
.Find(c00).GetAssociatedAppointment(True).Respond 4

Do Until Err.Number <>0
.FindNext.GetAssociatedAppointment(True).Respond 4
Loop
End With
End Sub

12 Taak

12.0 Taak eigenschappen

Sub taak_eigenschappen()

'Createitem(3)
'Createitem(olTaskItem)
'Getdefaultfolder(13)
'Getdefaultfolder(olFolderTasks)
'Getdefaultfolder("Taken")


With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(13).Items(1)
c0 = .Actions.Count
For jj = 1 To c0
d0 = .Actions(jj).Name
Next
c1 = .ActualWork
c2 = .Application
c3 = .Attachments.Count
c4 = .BillingInformation
c5 = .body
c6 = .CardData
c7 = .Categories
c8 = .Class
c9 = .Companies
c10 = .complete
c11 = .ContactNames.Count
c12 = .Contacts
c13 = .ConversationIndex
c14 = .ConversationTopic
c15 = .CreationTime
c16 = .DateCompleted
c17 = .DelegationState
c18 = .Delegator
c19 = .DueDate
c20 = .entryId
c21 = .FormDescription
C22 = .GetInspector
c23 = .Importance
c24 = .IsRecurring
c25 = .LastModificationTime
c26 = .links.Count
c27 = .MessageClass
c28 = .Mileage
c29 = .NoAging
c30 = .Ordinal
c31 = .OutlookInternalVersion
c32 = .OutlookVersion
c33 = .Owner
c34 = .Ownership
c35 = .Parent
c36 = .PercentComplete
c37 = .Recipients.Count
c38 = .ReminderOverrideDefault
c39 = .ReminderPlaySound
c40 = .ReminderSet
c41 = .ReminderSoundFile
c42 = .ReminderTime
c43 = .ResponseState
c44 = .Role
c45 = .Saved
c46 = .SchedulePlusPriority
c47 = .Sensitivity
c48 = .Session
c49 = .Size
c50 = .StartDate
c51 = .Status
c52 = .StatusOnCompletionRecipients
c53 = .StatusUpdateRecipients
c54 = .subject
c55 = .TeamTask
c56 = .TotalWork
c57 = .UnRead
c58 = .UserProperties.Count
End With
End Sub

12.1 Nieuwe taak

Sub taak_nieuw()
With CreateObject("Outlook.Application").CreateItem(3)
c00 = "controle"
c01 = Date
c02 = DateValue("04-05-2019") + TimeValue("08:00:00")

.subject = c00
.StartDate = c01
.ReminderSet = True
.ReminderTime =c02
.Save
End With
End Sub

12.2.1 Taak lezen

Sub taak_lezen()
c00 = "controle"'Subject

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items(c00)
c01=.startdate & "_" & .Subject & "_" & .Status
End With
End Sub

12.2.2 Taak verplaatsen

Sub taak_verplaatsen()
c00 = "controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(13).Items(c00).move .Getdefaultfolder(3)
End With
End Sub

12.2.3 Taak verwijderen

Sub taak_verwijderen()
c00 = "controle"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items(c00).delete
End Sub

12.2.5 Taak zoeken met meer criteria

Sub taak_zoeken_meer_criteria()
c02 = DateValue("15-04-2011")
c01 = "nieuwe controle"
c00 = "[StartDate] ='" & format(c02, "ddddd") & "' And [Subject]='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items
If Not .Find(c00) Is Nothing Then c03 = .Find(c00).ReminderTime
End With
End Sub

12.2.4 Taak wijzigen

Sub taak_wijzigen()
c00 = "controle"
c01 = "nieuwe controle"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items(c00)
.subject = c01
.Save
End With
End Sub

12.3.1 Taken filteren en lezen

Sub taken_filteren_lezen()
c01 = DateValue("11-04-2011")
c00 = "[StartDate] ='" & format(c00, "ddddd") & "'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items.Restrict(c00)
c02 = c02 & "|" & it.subject
Next
End Sub

12.3.2 Taken filteren en verplaatsen

Sub taken_filteren_verplaatsen()
c01 = DateValue("11-04-2019")
c00 = "[StartDate] ='" & format(c00, "ddddd") & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each it In .GetDefaultFolder(13).Items.Restrict(c00)
it.move .GetDefaultFolder(3)
Next
end with
End Sub

12.3.3 Taken filteren en verwijderen

Sub taken_filteren_verwijderen()
c01 = DateValue("11-04-2011")
c00 = "[StartDate] ='" & format(c00, "ddddd") & "'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items.Restrict(c00)
it.Delete
Next
End Sub

12.3.4 Taken filteren en wijzigen

Sub taken_filteren_wijzigen()
c01 = DateValue("11-04-2011")
c00 = "[StartDate] ='" & format(c00, "ddddd") & "'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items.Restrict(c00)
it.StartDate = DateAdd( "d", -4, it.StartDate)
it.Save
Next
End Sub

12.4.1 Taken zoeken en lezen

Sub taken_zoeken_lezen()
On Error Resume Next

c01 = DateValue("11-04-2011")
c00 = "[StartDate] ='" & format(c00, "ddddd") & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items
c02 = .Find(c00).Subject

Do Until err.number<>0
c02 = c02 & "|" & .FindNext.Subject
Loop
End With
End Sub

12.4.2 Taken zoeken en verplaatsen

Sub taken_zoeken_verplaatsen()
On Error Resume Next

c01 = "nieuwe controle"
c00 = "[Subject] ='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(13).Items.Find(c00).move .GetDefaultFolder(3)

Do Until err.number<>0
.GetDefaultFolder(13).Items.FindNext.move .GetDefaultFolder(3)
Loop
End With
End Sub

12.4.3 Taken zoeken en verwijderen

Sub taken_zoeken_verwijderen()
On Error Resume Next

c01 = "nieuwe controle"
c00 = "[Subject] ='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items
.Find(c00).delete

Do Until err.number<>0
.FindNext.delete
Loop
End With
End Sub

12.4.4 Taken zoeken en wijzigen

Sub taken_zoeken_wijzigen()
On Error Resume Next

c01 = "nieuwe controle"
c00 = "[Subject] ='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items
With .Find(c00)
.StartDate = DateAdd( "d", 4, .StartDate)
.Save
End With

Do Until err.number<>0
with .FindNext
.StartDate = DateAdd( "d", 4, .StartDate)
.Save
End With
Loop
End With
End Sub

13 Taakverzoek

13.1 Taakverzoek eigenschappen

Sub taakverzoek_eigenschappen()

' CreateItem(3)
' CreateItem(olTask)
' GetDefaultFolder(13)
' GetDefaultFolder(olFolderTasks)
' GetDefaultFolder("Taken")


With CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(13).Items(1)
c0 = .Actions.Count
For jj = 1 To c0
d0 = .Actions(jj).Name
Next
c1 = .Application
c2 = .Attachments.Count
c3 = .BillingInformation
c4 = .body
c5 = .Categories
c6 = .Class
c7 = .Companies
c8 = .ConversationIndex
c9 = .ConversationTopic
c10 = .CreationTime
c11 = .entryId
c12 = .FormDescription
c13 = .GetInspector
c14 = .Importance
c15 = .LastModificationTime
c16 = .links.Count
c17 = .MessageClass
c18 = .Mileage
c19 = .NoAging
c20 = .OutlookInternalVersion
c21 = .OutlookVersion
C22 = .Parent
c23 = .Saved
c24 = .Sensitivity
c25 = .Session
c26 = .Size
c27 = .subject
c28 = .UnRead
c29 = .UserProperties.Count
End With
End Sub

13.1 Nieuw taakverzoek

Sub taakverzoek_nieuw()
c00 = "controle 7"
c01 = Date +7"
c02 = DateValue(""04-05-2019") + TimeValue("08:00:00"
c03 = "snb@forums.eu"

With CreateObject("Outlook.Application").CreateItem(3)
.assign
.subject = c00
.StartDate = c01
.ReminderSet = True
.ReminderTime = c02
.Recipients.Add c03
.send
End With
End Sub

13.2.1 Taakverzoek lezen

Sub taakverzoek_lezen()
c00 = "Taakverzoek: controle 7"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00)
c01 = .subject & "_" & .CreationTime & "_" & .body & "_" & .Class & "_" & .MessageClass
End With
End Sub

13.2.5 Taakverzoek lezen en voorlopig accepteren

Sub taakverzoek_lezen_simple_accepteren()
c00 = "Taakverzoek: controle 7"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).GetAssociatedTask(True).Respond 0, False, False
End Sub

13.2.6 Taakverzoek lezen en accepteren

Sub taakverzoek_lezen_accepteren()
c00 = "Taakverzoek: controle 7"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).GetAssociatedTask(True).Respond 2, True, True
End Sub

13.2.7 Taakverzoek lezen en weigeren

Sub taakverzoek_lezen_weigeren()
c00 = "Taakverzoek: controle 7"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).GetAssociatedTask(True).Respond 3, False, False
End Sub

13.2.2 Taakverzoek verplaatsen

Sub taakverzoek_verplaatsen()
c00 = "Taakverzoek: controle 7"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(6).Items(c00).Move .GetDefaultFolder(3)
End With
End Sub

13.2.3 Taakverzoek verwijderen

Sub taakverzoek_verwijderen()
c00 = "Taakverzoek: controle 7"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).Delete
End Sub

13.3.1 Taakverzoeken filteren en lezen

Sub taakverzoeken_filteren_lezen()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[MessageClass]='IPM.TaskRequest'")
c01 = c01 & "|" & it.body
Next
End Sub

13.3.2 Taakverzoeken filteren en verplaatsen

Sub taakverzoeken_filteren_verplaatsen()
c01 = "IPM.TaskRequest"
c00 = "[MessageClass]='" & c01 &'"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each it In .GetDefaultFolder(6).Items.Restrict(c00)
it.Move .GetDefaultFolder(3)
Next
End With
End Sub

13.3.3 Taakverzoeken filteren en verwijderen

Sub taakverzoeken_filteren_verwijderen()
c01 = "IPM.TaskRequest"
c00 = "[MessageClass]='" & c01 &'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict(c00)
it.Delete
Next
End Sub

13.3.4 Taakverzoeken filteren en wijzigen

Sub taakverzoeken_filteren_wijzigen()
c01 = "IPM.TaskRequest"
c02 = "new subject"

c00 = "[MessageClass]='" & c01 &'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict(c00)
With it
.body = c02
.Save
End With
Next
End Sub

13.3.5 Taakverzoeken filteren en voorlopig accepteren

Sub taakverzoeken_filteren_voorlopig_accepteren()
c01 = "IPM.TaskRequest"
c00 = "[MessageClass]='" & c01 &'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict(c00)
it.GetAssociatedTask(True).Respond 0, False, False
Next
End Sub

13.3.6 Taakverzoeken filteren en accepteren

Sub taakverzoeken_filteren_accepteren()
c01 = "IPM.TaskRequest"
c00 = "[MessageClass]='" & c01 &'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict(c00)
it.GetAssociatedTask(True).Respond 2, False, False
Next
End Sub

13.3.7 Taakverzoeken filteren en weigeren

Sub taakverzoeken_filteren_weigeren()
c01 = "IPM.TaskRequest"
c00 = "[MessageClass]='" & c01 &'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict(c00)
it.GetAssociatedTask(True).Respond 3, False, False
Next
End Sub

13.3.8 Taakverzoeken filteren en kopiŽren

Sub taakverzoeken_filteren_kopiŽren()
c01 = "IPM.TaskRequest"
c00 = "[MessageClass]='" & c01 &'"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each it In .GetDefaultFolder(6).Items.Restrict(c00)
it.Copy
it.Move .GetDefaultFolder(3)
Next
end with
End Sub

13.4.1 Taakverzoeken zoeken en lezen

Sub taakverzoeken_zoeken_lezen()
On Error Resume Next

c01 = "IPM.TaskRequest"
c00 = "[MessageClass]='" & c01 &'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
c02 = .Find(c00).body

Do Until Err.Number <>0
c02 = c02 & "|" & .FindNext.body
Loop
End With
End Sub

13.4.2 Taakverzoeken zoeken en verplaatsen

Sub taakverzoeken_zoeken_verplaatsen()
On Error Resume Next

c01 = "IPM.TaskRequest"
c00 = "[MessageClass]='" & c01 &'"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(6).Items.Find(c00).Move .GetDefaultFolder(3)

Do Until Err.Number <>0
.GetDefaultFolder(6).Items.FindNext.Move .GetDefaultFolder(3)
Loop
End With
End Sub

13.4.3 Taakverzoeken zoeken en verwijderen

Sub taakverzoeken_zoeken_verwijderen()
On Error Resume Next

c01 = "opdracht"
c00 = "[ConversationTopic]='" & c01 &'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
.Find(c00).Delete

Do Until Err.Number <>0
.FindNext.Delete
Loop
End With
End Sub

13.4.4 Taakverzoek zoeken en wijzigen

Sub taakverzoeken_zoeken_wijzigen()
On Error Resume Next

c01 = "IPM.TaskRequest"
c00 = "[MessageClass]='" & c01 &'"

c02 = "New Subject"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
With .Find(c00)
.body = c02
.Save
End With

Do Until Err.Number <>0
With .FindNext
.body = c02
.Save
End With
Loop
End With
End Sub

14 Logboekitem

14.0 logboekitem eigenschappen

Sub logboekitem_eigenschappen()

' CreateItem(4)
' CreateItem(olJournaItem)
' GetDefaultFolder(11)
' GetDefaultFolder(olFolderJournal)
' GetDefaultFolder("Logboek")


With CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(11).Items(1)
c00 = .Actions.Count
For jj = 1 To c00
d0 = .Actions(jj).Name
Next
c1 = .Application
c2 = .Attachments.Count
c3 = .BillingInformation
c4 = .body
c5 = .Categories
c6 = .Class
c7 = .Companies
c8 = .ContactNames.Count
c9 = .ConversationIndex
c10 = .ConversationTopic
c11 = .CreationTime
c12 = .Docposted
c13 = .DocPrinted
c14 = .DocRouted
c15 = .DocSaved
c16 = .Duration
c17 = .End
c18 = .entryId
c19 = .FormDescription
c20 = .GetInspector
c21 = .Importance
C22 = .LastModificationTime
c23 = .links.Count
c24 = .MessageClass
c25 = .Mileage
c26 = .NoAging
c27 = .OutlookInternalVersion
c28 = .OutlookVersion
c29 = .Parent
c30 = .Recipients.Count
For Each rp In .Recipients
d1 = rp.Name
d2 = rp.address
d3 = rp.AddressEntry
Next
c31 = .Saved
c32 = .Sensitivity
c33 = .Session
c34 = .Size
c35 = .start
c36 = .subject
c37 = .Type
.Type = "Letter"
.Type = "Conversation"
.Type = "Document"
.Type = "E-mail Message"
.Type = "Remote Session"
.Type = "Fax"
.Type = "Microsoft Access"
.Type = "Microsoft Excel"
.Type = "Microsoft Word"
.Type = "Microsoft Powerpoint"
.Type = "Note"
.Type = "Phone Call"
.Type = "Task"
.Type = "Task Request"
.Type = "Meeting"
.Type = "Meeting Request"
.Type = "Meeting Response"
.Type = "Meeting Cancellation"
c38 = .UnRead
c39 = .UserProperties.Count
End With
End Sub

14.1 Nieuw logboekitem

Sub logboekitem_nieuw()
c00 = Now
c01 = 15
c02 = 4e logboekitem
c03 = "E-mail Message"

With CreateObject("Outlook.Application").CreateItem(4)
.start = format(c00, "ddddd hh:mm")
.Duration = c01
.subject = c02
.Type = c03
.Save
End With
End Sub

14.2.1 Logboekitem lezen

Sub logboekitem_lezen()
c00 = "4e logboekitem"

c01 = CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(11).Items(c00).Type
End Sub

14.2.2 Logboekitem verplaatsen

Sub logboekitem_verplaatsen()
c00 = "4e logboekitem"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(11) .Items(c00).move .GetDefaultFolder(3)
End With
End Sub

14.2.3 Logboekitem verwijderen

Sub logboekitem_verwijderen()
c00 = "4e logboekitem"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items(c00).Delete
End Sub

14.2.4 Logboekitem wijzigen

Sub logboekitem_wijzigen()
c00 = "4e logboekitem"
c02 = "Meeting"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items(c00)
.Type = c02
.Save
End With
End Sub

14.3.1 Logboekitems filteren en lezen

Sub logboekitems_filteren_lezen()
c01 = "Meeting"
c00 = "[Type]='" & c01 & "'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items.Restrict(c00)
c02 = c02 & "|" & it.subject
Next
End Sub

14.3.2 Logboekitems filteren en verplaatsen

Sub logboekitems_filteren_verplaatsen()
c01 = "Meeting"
c00 = "[Type]='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each it In .GetDefaultFolder(11).Items.Restrict(c00)
it.move .GetDefaultFolder(3)
Next
End With
End Sub

14.3.3 Logboekitems filteren en verwijderen

Sub logboekitems_filteren_verwijderen()
c01 = "Meeting"
c00 = "[Type]='" & c01 & "'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items.Restrict(c00)
it.Delete
Next
End Sub

14.3.4 Logboekitems filteren en wijzigen

Sub logboekitems_filteren_wijzigen()
c01 = "Meeting"
c02 = "Nieuwe tekst"
c00 = "[Type]='" & c01 & "'"

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items.Restrict(c00)
it.subject = c02
it.Save
Next
End Sub

14.4.1 Logboekitems zoeken en lezen

Sub logboekitems_zoeken_lezen()
On Error Resume Next

c01 = "Meeting"
c00 = "[Type]='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items
c02 = .Find(c00).Subject

Do Until Err.Number<>0
c02 = c02 & "|" & .FindNext.Subject
Loop
End With
End Sub

14.4.2 Logboekitems zoeken en verplaatsen

Sub logboekitems_zoeken_verplaatsen()
On Error Resume Next

c01 = "Meeting"
c00 = "[Type]='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(11).Items.Find(c00).Move .GetDefaultFolder(3)

Do Until Err.Number<>0
.GetDefaultFolder(11).Items.Find(c00).Move .GetDefaultFolder(3)
Loop
End With
End Sub

14.4.3 Logboekitems zoeken en verwijderen

Sub logboekitems_zoeken_verwijderen()
On Error Resume Next

c01 = "Meeting"
c00 = "[Type]='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items
.Find(c00).Delete
Do Until Err.Number <>0
.FindNext.Delete
Loop
End With
End Sub

14.4.4 Logboekitems zoeken en wijzigen

Sub logboekitems_zoeken_wijzigen()
On Error Resume Next

c01 = "Meeting"
c02 = "new subject"
c00 = "[Type]='" & c01 & "'"

With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items
With .Find(c00)
.Subject = c02
.Save
End With

Do Until err.number<>0
with .FindNext
.Subject =c02
.Save
End With
Loop
End With
End Sub

14.4.5 Logboekitem zoeken

Sub logboekitem_zoeken()
On Error Resume Next

c01 = "Meeting"
c00 = [Type] ='" & c01 & "'")

c02 = CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items.Find(c00).subject
End Sub

15 Discussie

15.0 Discussie eigenschappen

Sub discussie_eigenschappen()

' CreateItem(6)
' CreateItem(olPost)


With CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items(1)
c00 = .Actions.Count
For Each ac In .Actions
d0 = ac.Name
Next
c1 = .Application
c2 = .Attachments.Count
c3 = .BillingInformation
c4 = .body
c5 = .Categories
c6 = .Class
c7 = .Companies
c8 = .ConversationIndex
c9 = .ConversationTopic
c10 = .CreationTime
c11 = .entryId
c12 = .ExpiryTime
c13 = .FormDescription
c14 = .GetInspector
c15 = .HTMLBody
c16 = .Importance
c17 = .LastModificationTime
c18 = .links.Count
c19 = .MessageClass
c20 = .Mileage
c21 = .NoAging
C22 = .OutlookInternalVersion
c23 = .OutlookVersion
c24 = .Parent
c25 = .ReceivedTime
c26 = .Saved
c27 = .SenderName
c28 = .Sensitivity
c29 = .SentOn
c30 = .Session
c31 = .Size
c32 = .subject
c33 = .UnRead
c34 = .UserProperties.Count
End With
End Sub

15.1 Nieuwe discussie

Sub discussie_nieuw()
c00 = "nieuwe postbodes"

With CreateObject("Outlook.application").CreateItem(6)
.Subject = c00
.Save
End With
End Sub

15.1.1 Nieuwe discussie in specifieke map

Sub discussie_nieuw_in_specifieke_map()
c00 = "nieuwe postbodes"

With CreateObject("Outlook.application").CreateItem(6)
.Subject = c00
.Save
.Move .Application.GetNamespace("MAPI").GetDefaultFolder(16)
End With
End Sub

15.2.1 Discussie lezen

Sub discussie_lezen()
c00 = "nieuwe postbodes"

c01 = CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).Class
End Sub

15.2.2 Discussie verplaatsen

Sub discussie_verplaatsen()
c00 = "nieuwe postbodes"

With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(6).Items(c00).Move .GetDefaultFolder(16)
End With
End Sub

15.2.3 Discussie verwijderen

Sub discussie_verwijderen()
c00 = "nieuwe postbodes"

CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).Items(c00).Delete
End Sub

15.2.4 Discussie wijzigen

Sub discussie_wijzigen()
c00 = "nieuwe postbodes"
c01 = "oud verhaal"

With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00)
.Subject = c01
.Save
End With
End Sub

15.3.1 Discussies filteren en lezen

Sub discussies_filteren_lezen()
c01 = "nieuwe postbodes"
c00 ="[Subject]='" & c01 & "'"

For Each it In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).Items.Restrict(c00)
c01 = c01 & "|" & it.SentOn
Next
End Sub

15.3.2 Discussies filteren en verplaatsen

Sub discussies_filteren_verplaatsen()
c00 = "nieuwe postbodes"
c00 ="[Subject]='" & c01 & "'"

With CreateObject("Outlook.application").GetNamespace("MAPI")
For Each it In .GetDefaultFolder(6).Items.Restrict(c00)
it.Move .GetDefaultFolder(3)
Next
End With
End Sub

15.3.3 Discussies filteren en verwijderen

Sub discussies_filteren_verwijderen()
c00 = "nieuwe postbodes"
c00 ="[Subject]='" & c01 & "'"

For Each it In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict(c00)
it.Delete
Next
End Sub

15.3.4 Discussies filteren en wijzigen

Sub discussies_filteren_wijzigen()
c00 = "nieuwe postbodes"
c02 = "nieuwe onderwerpen"
c00 ="[Subject]='" & c01 & "'"

For Each it In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).Items.Restrict(c00)
it.Subject = c02
it.Save
Next
End Sub

15.4.1 Discussies zoeken en lezen

Sub discussies_zoeken_lezen()
On Error Resume Next

c01 = "nieuwe postbodes"
c00 ="[Subject]='" & c01 & "'"

With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).Items
c02 = .Find(c00).Body

Do Until Err.Number <>0
c02 = c02 & "|" & .FindNext.Body
Loop
End With
End Sub

15.4.2 Discussies zoeken en verplaatsen

Sub discussies_zoeken_verplaatsen()
On Error Resume Next

c01 = "nieuwe postbodes"
c00 ="[Subject]='" & c01 & "'"

With CreateObject("Outlook.application").GetNamespace("MAPI")
.GetDefaultFolder(16).Items.Find(c00).Move .GetDefaultFolder(6)

Do Until Err.Number <>0
.GetDefaultFolder(16).Items.FindNext.Move .GetDefaultFolder(6)
Loop
End With
End Sub

15.4.3 Discussies zoeken en verwijderen

Sub discussies_zoeken_verwijderen()
On Error Resume Next

c01 = "nieuwe postbodes"
c00 ="[Subject]='" & c01 & "'"

With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).Items
.Find(c00).Delete

Do Until Err.Number <>0
.FindNext.Delete
Loop
End With
End Sub

15.4.4 Discussies zoeken en wijzigen

Sub discussies_zoeken_wijzigen()
On Error Resume Next

c01 = "nieuwe postbodes"
c02 = "nieuwe onderwerpen"
c00 ="[Subject]='" & c01 & "'"

With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).Items
With .Find(c00)
.Subject = c02
.Save
End With

Do Until Err.Number <>0
With .FindNext
.Subject = c02
.Save
End With
Loop
End With
End Sub

15.4.5 Discussie zoeken

Sub discussie_zoeken()
c01 = "nieuwe postbodes"
c00 ="[Subject]='" & c01 & "'"

c01 = CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Find(c00).SentOn
End Sub

16 Bijlagen (Attachments)

De meeste Outlookitems kunnen bijlagen bevatten:
- email
- kontaktpersoon
- distributielijst
- taak
- taakverzoek
- afspraak
- logboekitem

16.0 Bijlagen eigenschappen

' dit kan een fout veroorzaken
Sub email_attachment_eigenschappen()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
For Each at In it.Attachments
c01 = at.Application
c02 = at.Class
c03 = at.DisplayName
c04 = at.FileName
c05 = at.Index
c06 = at.Parent
c07 = at.pathname
c08 = at.Position
c09 = at.Session
c10 = at.Type
Next
Next
End Sub

16.1 Bijlagen opslaan

Sub bijlagen_opslaan()
For Each it In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items
For Each at In it.Attachments
at.SaveAsFile "E:\" & at.FileName
Next
Next
End Sub