Outlookopdrachten vanuit andere programma's
| Suggesties |
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 6.5.1 eerste email 6.5.2 alle emails 6.6 attachments opslaan 6.6.1 van eerste email 6.6.2 van alle emails 6.6.3 van bepaalde email 6.7 beantwoorden 6.7.1 email aan afzender 6.7.2 email aan alle geadresserden 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 |
Er zijn 3 methoden om vanuit een programma toegang te krijgen tot Outlook: de methode CreateObject with CreateObject("Outlook.Application") x=.GetNamespace("MAPI").GetDefaultFolder(6).Items.count
End WithDe '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 With Getobject(,"Outlook.Application") x=.GetNamespace("MAPI").GetDefaultFolder(6).Items.Count
End With
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"
End subThisWorkbook.VBProject.References.AddFromFile "msoutl10.olb" ThisWorkbook.VBProject.References.AddFromFile "msoutl11.olb" with Outlook
x=.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.Count
end withAlle voorbeeldcode in deze pagina maakt gebruik van de Methode 'CreateObject'.
' 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")
End Sub
c01 = .GetDefaultFolder(3).Name
End Withc02 = .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 - 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)
' email (olMailItem)
' afspraak (olAppointmentItem) ' kontaktpersoon (olContactItem) ' taak (olTaskItem) ' logboek (olJournalItem) ' notitie (olNoteItem) ' sticker (olPostItem) ' distributielijst (olDistributionListItem) Sub items_standaarditems()
With CreateObject("Outlook.Application")
End Sub
.CreateItem(0)
End With.CreateItem(1) .CreateItem(2) .CreateItem(3) .CreateItem(4) .CreateItem(5) .CreateItem(6) .CreateItem(7)
Sub mappen_eigenschappen()
With CreateObject("Outlook.Application").GetNamespace("MAPI").Folders(1)
End Subc01 = .Name
End Withc02 = .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 Deze macro maakt een overzicht van Outlookmappen op 4 nivo's, maar is eenvoudig uit te breiden naar meer nivo's.
Sub mappen_Outlookmappenstruktuur()
For Each fld In CreateObject("Outlook.Application").GetNamespace("MAPI").Folders
End Subc01 = c01 & vbCr & vbCr & fld.Name & "|" & fld.Folders.Count & "|" & fld.Items.Count
NextFor Each fld1 In fld.Folders c01 = c01 & vbCr & "|" & fld1.Name & "|" & fld1.Folders.Count & "|" & fld1.Items.Count
NextFor Each fld2 In fld1.Folders c01 = c01 & vbCr & "||" & fld2.Name & "|" & fld2.Folders.Count & "|" & fld2.Items.Count
NextFor Each fld3 In fld2.Folders c01 = c01 & vbCr & "|||" & fld3.Name & "|" & fld3.Folders.Count & "|" & fld3.Items.Count
NextSheets("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, "|" 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. Sub email__eigenschappen()
With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items(1)
End Subc00 = .Actions.Count
End WithFor Each ac In .Actions d01 = ac.Application
Nextd02 = ac.Class d03 = ac.CopyLike d04 = ac.Enabled d05 = ac.MessageClass d06 = ac.Name d07 = ac.Parent d08 = ac.prefix d09 = ac.ReplyStyle d010 = ac.ResponseStyle d011 = ac.Session d012 = ac.ShowOn c01 = .AlternateRecipientAllowed c02 = .Application c03 = .Attachments.Count c04 = .AutoForwarded c05 = .BCC c06 = .BillingInformation c07 = .body c08 = .Categories c09 = .CC c010 = .Class c011 = .Companies c012 = .ConversationIndex c013 = .ConversationTopic c014 = .CreationTime c015 = .DeferredDeliveryTime c016 = .DeleteAfterSubmit c017 = .entryId c018 = .ExpiryTime c019 = .FlagDueBy c020 = .FlagRequest c021 = .FlagStatus c022 = .FormDescription c023 = .GetInspector c024 = .HTMLBody c025 = .Importance c026 = .LastModificationTime c027 = .links.Count c028 = .MessageClass c029 = .Mileage c030 = .NoAging c031 = .OriginatorDeliveryReportRequested c032 = .OutlookInternalVersion c033 = .OutlookVersion c034 = .Parent c035 = .ReadReceiptRequested c036 = .ReceivedByEntryID c037 = .ReceivedByName c038 = .ReceivedOnBehalfOfEntryID c039 = .ReceivedOnBehalfOfName c040 = .ReceivedTime c041 = .RecipientReassignmentProhibited c042 = .Recipients.Count For Each rp In .Recipients d01 = rp.Name
Nextd02 = rp.address d03 = rp.Name c043 = .ReminderOverrideDefault c044 = .ReminderPlaySound c045 = .ReminderSet c046 = .ReminderSoundFile c047 = .ReminderTime c048 = .RemoteStatus c049 = .ReplyRecipientNames c050 = .ReplyRecipients.Count c051 = .Saved c052 = .SaveSentMessageFolder c053 = .SenderName c054 = .Sensitivity c055 = .Sent c056 = .SentOn c057 = .sentonbehalfofname c058 = .Session c059 = .Size c060 = .subject c061 = .Submitted c062 = .To c063 = .UnRead c064 = .UserProperties.Count c065 = .VotingOptions c066 = .VotingResponse Het bericht wordt dan automatisch opgeslagen in de conceptenmap: GetDefaultFolder(16). Sub email_concept_nieuw()
With CreateObject("Outlook.Application").CreateItem(0)
End Sub.Subject = "controle"
End With.To = "snb@forum.eu" .Save
Sub email_concept_nieuw_meer_adressen()
With CreateObject("Outlook.Application").CreateItem(0)
End Sub.subject = "controle"
End With.To = "snb@rorum.eu;bb@gmail.com;extra" .Save
Sub email_concept_nieuw_meer_CCadressen()
With CreateObject("Outlook.Application").CreateItem(0)
End Sub.subject = "controle"
End With.To = "snb@forum.eu" .CC = "aaa@webforums.eu;bb@gmail.com;extra" .Save
Sub email_concept_nieuw_meer_BCCadressen()
With CreateObject("Outlook.Application").CreateItem(0)
End Sub.subject = "controle"
End With.To = "snb@forum.eu" .BCC = "aaa@webforums.eu;bb@gmail.com;extra" .Save
Sub email_concept_nieuw_recipients_To_toevoegen()
With CreateObject("Outlook.Application").CreateItem(0)
End Sub.subject = "controle"
End With.To = "snb@forum.eu" .Recipients.Add "aaa@webforums.eu;bb@gmail.com;extra" .Save
Sub email_concept_nieuw_recipients_CC_toevoegen()
With CreateObject("Outlook.Application").CreateItem(0)
End Sub.subject = "controle"
End With.To = "snb@forum.eu" .Recipients.Add("aaa@webforums.eu;bb@gmail.com;extra").Type = 4 .Save
Sub email_concept_nieuw_recipients_BCC_toevoegen()
With CreateObject("Outlook.Application").CreateItem(0)
End Sub.subject = "controle"
End With.To = "snb@forum.eu" .Recipients.Add("aaa@webforums.eu;bb@gmail.com;extra").Type = 3 .Save
Sub email_concept_attachments_toevoegen()
With CreateObject("Outlook.Application").CreateItem(0)
End Sub.subject = "controle"
End With.To = "aaa@webforums.eu" .attachments.add "E:\OF\bestand1.xls" .attachments.add "E:\OF\bestand2.xls" .Save Sub email_concept_lezen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items(c00) c01 = .To
End Withc02 = .subject c03 = .body
Sub email_concept_verplaatsen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(16).Items(c00).Move .GetDefaultFolder(3)
End With
Sub email_concept_verwijderen()
c00 = "controle"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items(c00).Delete Sub email_concept_wijzigen()
c00 = "controle"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items(c00).subject = "new subject"
Sub email_concepten_filteren_lezen()
c00 = "controle"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items.Restrict("[Subject]='" & c00 & "'") c01 = c01 & "|" & it.body
Next
Sub email_concepten_filteren_verplaatsen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") For Each it In .GetDefaultFolder(16).Items.Restrict("[Subject]='" & c00 & "'")
End Withit.Move .GetDefaultFolder(3)
Next
Sub email_concepten_filteren_verwijderen()
c00 = "controle"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items.Restrict("[Subject]='" & c00 & "'") it.Delete
Next
Sub email_concepten_filteren_wijzigen()
c00 = "controle"
End Subc01 = "new subject" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items.Restrict("[Subject]='" & c00 & "'") With it
Next.subject = c01
End With.Save
Sub email_concepten_zoeken_lezen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items c01 = .Find("[Subject]='" & c00 & "'").body
End WithDo Until Err.Number <>0 c01 = c01 & "|" & .FindNext.body
Loop
Sub email_concepten_zoeken_verplaatsen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items .Find("[Subject]='" & c00 & "'").Move .Application.GetNamespace("MAPI").GetDefaultFolder(3)
End WithDo Until Err.Number <>0 .FindNext.Move .Application.GetNamespace("MAPI").GetDefaultFolder(3)
Loop
Sub email_concepten_zoeken_verwijderen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items .Find("[Subject]='" & c00 & "'").Delete
End WithDo Until Err.Number <>0 .FindNext.Delete
Loop
Sub email_concepten_zoeken_wijzigen()
On Error Resume Next
End Subc00 = "controle" c01 = "new subject" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(16).Items With .Find("[Subject]='" & c00 & "'")
End With.subject = c01
End With.Save Do Until Err.Number <>0 With .FindNext
Loop.subject = c01
End With
.Save Het bericht wordt dan automatisch opgeslagen in de map Postvak UIT: GetDefaultFolder(4). Sub email_nieuw()
With CreateObject("Outlook.Application").CreateItem(0)
End Sub.To = "snb@webforums.eu"
End With.subject = "controle" .body = "bodytext" .send Sub email_nieuw_html()
With CreateObject("Outlook.Application").CreateItem(0)
End Sub.To = "snb@webforum.eu"
End With.subject = "controle blusser A230" .HTMLBody = "<'a href=""http://office.webforums.eu/"">Office forum" .Save Sub email_lezen()
c00 = "controle"
End Subc01= CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items(c00).body Sub email_verplaatsen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(4).Items(c00).Move .GetDefaultFolder(16)
End WithSub email_verwijderen()
c00 = "controle"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items(c00).Delete Sub email_wijzigen()
c00 = "controle"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items(c00).subject = "new subject"
Sub emails_filteren_lezen()
c00 = "controle"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items.Restrict("[Subject]='" & c00 & "'") c01 = c01 & "|" & it.body
Next
Sub emails_filteren_verplaatsen()
c00 = "controle"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items.Restrict("[Subject]='" & c00 & "'") it.Move .application.getnamespace("MAPI").GetDefaultFolder(16)
Next
Sub emails_filteren_verwijderen()
c00 = "controle"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items.Restrict("[Subject]='" & c00 & "'") it.Delete
Next
Sub emails_filteren_wijzigen()
c00 = "controle"
End Subc01 = "new subject" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items.Restrict("[Subject]='" & c00 & "'") With it
Next.subject = c01
end with.Save Sub emails_zoeken_lezen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items c01 = .Find("[Subject]='" & c00 & "'").body
End WithDo Until Err.Number <>0 c01 = c01 & "|" & .FindNext.body
Loop
Sub emails_zoeken_verplaatsen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(4).Items.Find("[Subject]='" & c00 & "'").Move .GetDefaultFolder(16)
End WithDo Until Err.Number <>0 .GetDefaultFolder(4).Items.FindNext.Move .GetDefaultFolder(16)
Loop
Sub emails_zoeken_verwijderen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items .Find("[Subject]='" & c00 & "'").Delete
End WithDo Until Err.Number <>0 .FindNext.Delete
Loop
Sub emails_zoeken_wijzigen()
On Error Resume Next
End Subc00 = "controle" c01 = "new subject" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items With .Find("[Subject]='" & c00 & "'")
End With.subject = c01
End With.Save Do Until Err.Number <>0 With .FindNext
Loop.subject = c01
End With.Save 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). Sub email_verzonden_lezen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items(c00) c01 = .To & " " & .subject & " " & .body
End With
Sub email_verzonden_verplaatsen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(5).Items(c00).Move .GetDefaultFolder(3)
End With
Sub email_verzonden_verwijderen()
c00 = "controle"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items(c00).Delete
Sub email_verzonden_wijzigen()
c00 = "controle"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items(c00).subject = "new subject"
Sub emails_verzonden_filteren_lezen()
c00 = "controle"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items.Restrict("[Subject]='" & c00 & "'") c01 = c01 & "|" & it.body
Next
Sub emails_verzonden_filteren_verplaatsen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") For Each it In .GetDefaultFolder(5).Items.Restrict("[Subject]='" & c00 & "'")
End Withit.Move .GetDefaultFolder(3)
Next
Sub email_verzonden_verwijderen()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items
End SubIf it.subject = "controle" Then it.Delete
Next
Sub emails_verzonden_filteren_verwijderen()
c00 = "controle"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items.Restrict("[Subject]='" & c00 & "'") it.Delete
Next
Sub emails_verzonden_filteren_wijzigen()
c00 = "controle"
End Subc01 = "new subject" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items.Restrict("[Subject]='" & c00 & "'") With it
Next
End With.subject = c01
End With.Save
Sub emails_verzonden_zoeken_lezen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items c01 = .Find("[Subject]='" & c00 & "'").body
End WithDo Until Err.Number <>0 c01 = c01 & "|" & .FindNext.body
Loop
Sub emails_verzonden_zoeken_verplaatsen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(5).Items.Find("[Subject]='" & c00 & "'").Move .GetDefaultFolder(3)
End WithDo Until Err.Number <>0 .GetDefaultFolder(5).Items.FindNext.Move .GetDefaultFolder(3)
Loop
Sub emails_verzonden_zoeken_verwijderen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items .Find("[Subject]='" & c00 & "'").Delete
End WithDo Until Err.Number <>0 .FindNext.Delete
Loop
Sub emails_verzonden_zoeken_wijzigen()
On Error Resume Next
End Subc00 = "controle" c01 = "new subject" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items With .Find("[Subject]='" & c00 & "'")
End With.subject = c01
End With.Save Do Until Err.Number <>0 With .FindNext
Loop.subject = c01
End With.Save
Sub eerste_ontvangen_email_lezen() With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(1)
End Subc00 = .To & " " & .subject & " " & .body
End With
Sub alle_ontvangen_emails_lezen() With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6)
End SubFor each it in .Items
End Withc00 = c00 & vblf & it.To & " " & it.subject & " " & it.body
Next
Sub specifieke_ontvangen_email_lezen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00) c01 = .To & " " & .subject & " " & .body
End With
Sub email_ontvangen_verplaatsen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(6).Items(c00).Move .GetDefaultFolder(3)
End With
Sub email_ontvangen_verwijderen()
c00 = "controle"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).Delete
Sub email_ontvangen_wijzigen()
c00 = "controle"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).subject = "new subject"
Sub emails_ontvangen_filteren_lezen()
c00 = "controle"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[Subject]='" & c00 & "'") c01 = c01 & "|" & it.body
Next
Sub emails_ontvangen_filteren_verplaatsen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") For Each it In .GetDefaultFolder(6).Items.Restrict("[Subject]='" & c00 & "'")
End Withit.Move .GetDefaultFolder(3)
Next
Sub emails_ontvangen_filteren_verwijderen()
c00 = "controle"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[Subject]='" & c00 & "'") it.Delete
Next
Sub emails_ontvangen_filteren_wijzigen()
c00 = "controle"
End Subc01 = "new subject" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[Subject]='" & c00 & "'") With it
Next
End With.subject = c01
End With.Save
Sub emails_ontvangen_zoeken_lezen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items c01 = .Find("[Subject]='" & c00 & "'").body
End WithDo Until Err.Number <>0 c01 = c01 & "|" & .FindNext.body
Loop
Sub emails_ontvangen_zoeken_verplaatsen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(6).Items.Find("[Subject]='" & c00 & "'").Move .GetDefaultFolder(3)
End WithDo Until Err.Number <>0 .GetDefaultFolder(6).Items.FindNext.Move .GetDefaultFolder(3)
Loop
Sub emails_ontvangen_zoeken_verwijderen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items .Find("[Subject]='" & c00 & "'").Delete
End WithDo Until Err.Number <>0 .FindNext.Delete
Loop
Sub emails_ontvangen_zoeken_wijzigen()
On Error Resume Next
End Subc00 = "controle" c01 = "new subject" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items With .Find("[Subject]='" & c00 & "'")
End With.subject = c01
End With.Save Do Until Err.Number <>0 With .FindNext
Loop.subject = c01 .Save End With
Sub eerste_ontvangen_email_opslaan()
With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6)
End Sub.items(1).SaveAs "G:\OF\" & .items(1).subject & ".msg",3
End With.items(1).SaveAs "G:\OF\" & .items(1).subject & ".txt",0
Sub alle_ontvangen_email_opslaan()
With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6)
End SubFor Each it in .Items
End Withit.SaveAs "G:\" & it.subject & ".msg"
Next
Sub M_snb()
With CreateObject("outlook.application")
End SubFor Each it In .GetNamespace("Mapi").GetDefaultFolder(6).Items(0).Attachments
End Withit.SaveAsFile "G:\OF\" & it.Filename
Next
Sub M_snb()
With CreateObject("outlook.application")
End SubFor Each it In .GetNamespace("Mapi").GetDefaultFolder(6).Items
End WithFor Each it1 In it.attachments
Nextit1.SaveAsFile "G:\OF\" & it1.Filename
Next
Sub M_snb()
c00="controle"
End SubWith CreateObject("outlook.application") For Each it In .GetNamespace("Mapi").GetDefaultFolder(6).Items(c00).Attachments
End Withit.SaveAsFile "G:\OF\" & it.Filename
Next
Sub M_snb()
With Application.GetNamespace("MAPI").GetDefaultFolder(6).Items(1).Reply
End Sub.Body = "dit is mijn antwoord"
End With.Send
Sub M_snb()
With Application.GetNamespace("MAPI").GetDefaultFolder(6).Items(1).ReplyAll
End Sub.Body = "dit is mijn antwoord"
End With.Send
Sub kontaktpersoon_eigenschappen() ' CreateItem (olContactItem) ' CreateItem (2) ' GetDefaultFolder(olFolderContacts) ' GetDefaultFolder(10) ' GetDefaultfolder("Contactpersonen") With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(1)
End Subc0 = .Account
End Withc1 = .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 Sub kontaktpersoon_nieuw()
With CreateObject("Outlook.Application").CreateItem(2)
End Sub.FirstName = "first"
End With.LastName = "last" .Email1Address = "snb@forum.eu" .Save Sub kontaktpersoon_lezen()
c00 = "Jeroen Spoert" '= fullname
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00) c01 = .FullName & "|" & .Email1Address
End With
Sub kontaktpersoon_opslaan_als()
c00 = "Jeroen Spoert"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00) .SaveAs "E:\" & .FullName & ".txt", 0
End With.SaveAs "E:\" & .FullName & ".rtf", 1 .SaveAs "E:\" & .FullName & ".oft", 2 .SaveAs "E:\" & .FullName & ".msg", 3 .SaveAs "E:\" & .FullName & ".vcf", 6
Sub kontaktpersoon_verplaatsen()
c00 = "Jeroen Spoert"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(10).Items(c00).Move .GetDefaultFolder(3)
End With
Sub kontaktpersoon_verwijderen()
c00 = "Jeroen Spoert"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00).Delete Sub kontaktpersoon_wijzigen()
c00 = "Jeroen Spoert"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00) .Email2Address = "Jeroen@planeet.eu"
End With.Save
Sub kontaktpersonen_filteren_lezen()
c00 = "Jeroen Spoert"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[Fullname]='" & c00 & "'") c01 = c01 & "|" & it.Email1Address
Next
Sub kontaktpersonen_filteren_verplaatsen()
c00 = "Jeroen Spoert"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") For Each it In .GetDefaultFolder(10).Items.Restrict("[FullName]='" & c00 & "'")
End Withit.Move .GetDefaultFolder(3)
Next
Sub kontaktpersonen_filteren_verwijderen()
c00 = "Jeroen Spoert"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[FullName]='" & c00 & "'") it.Delete
Next
Sub kontaktpersonen_filteren_wijzigen()
c00 = "Bedrijf1"
End Subc01 = "Bedrijf1 BV." For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[CompanyName]='" & c00 & "'") With it
Next.CompanyName = c01
End With.Save
Sub kontaktpersonen_zoeken_lezen()
On Error Resume Next
End Subc00 = "Bedrijf1" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items c01 = .Find("[CompanyName]='" & c00 & "'").FullName
End WithDo Until Err.Number <>0 c01 = c01 & "|" & .FindNext.FullName
Loop
Sub kontaktpersonen_zoeken_verplaatsen()
On Error Resume Next
End Subc00 = "Bedrijf1" With CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(10).Items.Find("[CompanyName]='" & c00 & "'").Move .GetDefaultFolder(3)
End WithDo Until Err.Number <>0 .GetDefaultFolder(10).Items.FindNext.Move .GetDefaultFolder(3)
Loop
Sub kontaktpersonen_zoeken_verwijderen()
On Error Resume Next
End Subc00 = "Bedrijf1" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items .Find("[CompanyName]='" & c00 & "'").Delete
End WithDo Until Err.Number <>0 .FindNext.Delete
Loop
Sub kontaktpersonen_zoeken_wijzigen()
On Error Resume Next
End Subc00 = "Bedrijf1" c01 = "Bedrijf1 BV." With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items With .Find("[CompanyName]='" & c00 & "'")
End With.CompanyName = c01
End With.Save Do Until Err.Number <>0 With .FindNext
Loop.CompanyName = c01
End With.Save
Sub distributielijst_eigenschappen() ' CreateItem (olDistlistItem) ' CreateItem (7) ' GetDefaultFolder(olFolderContacts) ' GetDefaultFolder(10) c00 = "DL voorbeeld"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00) c1 = .Actions.Count
End Withc2 = .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 Sub distributielijst_nieuw()
With CreateObject("Outlook.Application").CreateItem(7)
End Sub.DLName = "DL voorbeeld"
End With.Save Sub distributielijst_lezen()
c00 = "DL voorbeeld"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00) c01 = .DLName & "|" & .MemberCount
End With
Sub distributielijst_verplaatsen()
c00 = "DL voorbeeld"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(10).Items(c00).Move .GetDefaultFolder(3)
End With
Sub distributielijst_verwijderen()
c00 = "DL voorbeeld"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00).Delete
Sub distributielijst_wijzigen()
c00 = "DL voorbeeld"
End Subc01 = "DL 2e voorbeeld" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00) .DLName= c01
End With.Save
Sub distributielijsten_filteren_lezen()
c00 = "DL voorbeeld"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[DLName]='" & c00 & "'") c01 = c01 & "|" & it.DLName & "_" & it.MemberCount
Next
Sub distributielijsten_filteren_kopiëren()
c00 = "DL voorbeeld"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[DLName]='" & c00 & "'") it.Copy
Nextit.Move CreateObject("Outlook.Application").GetNamespace("MAPI").Folders(2).Folders("distributielijst")
Sub distributielijsten_filteren_verplaatsen()
c00 = "DL voorbeeld"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[DLName]='" & c00 & "'") it.Move CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(3)
Next
Sub distributielijsten_filteren_verwijderen()
c00 = "DL voorbeeld"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[DLName]='" & c00 & "'") it.Delete
Next
Sub distributielijsten_filteren_wijzigen()
c00 = "DL voorbeeld"
End Subc01 = "Oude lijst" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[DLName]='" & c00 & "'") With it
Next.body = c01
End With.Save
Sub distributielijsten_zoeken_lezen()
On Error Resume Next
End Subc00 = "DL voorbeeld" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items c01 = .Find("[DLName]='" & c00 & "'").body
End WithDo Until Err.Number <>0 c01 = c01 & "|" & .FindNext.body
Loop
Sub distributielijsten_zoeken_verplaatsen()
On Error Resume Next
End Subc00 = "DL voorbeeld" With CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(10).Items.Find("[DLName]='" & c00 & "'").Move .GetDefaultFolder(3)
End WithDo Until Err.Number <>0 .GetDefaultFolder(10).Items.FindNext.Move .GetDefaultFolder(3)
Loop
Sub distributielijsten_zoeken_verwijderen()
On Error Resume Next
End Subc00 = "DL voorbeeld" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items .Find("[DLName]='" & c00 & "'").Delete
End WithDo Until Err.Number <>0 .FindNext.Delete
Loop
Sub distributielijsten_zoeken_wijzigen()
On Error Resume Next
End Subc00 = "DL voorbeeld" c01 = "new subject" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items With .Find("[DLName]='" & c00 & "'")
End With.subject = c01
End With.Save Do Until Err.Number <>0 With .FindNext
Loop.subject = c01
End With.Save
Sub distributielijst_lezen()
c00 = "DL voorbeeld"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00) If .MemberCount >0 Then
End WithWith .GetMember(1)
End Ifc01=.Name & "_" & .address & "_" & .AddressEntry
End With
Sub distributielijst_kontaktpersoon_lezen()
c00 = "DL voorbeeld"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00) For j = 1 To .MemberCount
End Withc01 = c01 & "|" & .GetMember(j).Name & "_" & .GetMember(j).Address & "_" & .GetMember(j).AddressEntry
Next
Sub distributielijst_wijzigen_kontaktpersoon_toevoegen()
c00 = "DL voorbeeld"
End Subc01 = "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
End With.Save
Sub distributielijst_wijzigen_kontaktpersoon_verwijderen()
c00 = "DL voorbeeld"
End Subc01 = "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
End With.Save
Sub distributielijst_wijzigen_kontaktpersoon_verwijderen2()
c00 = "DL voorbeeld"
End Subc01 = "anita@planeet.eu" With CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(10).Items(c00) For j = 1 To .MemberCount
.SaveIf LCase(.GetMember(j).address) = LCase(c01) Then .RemoveMembers .GetMember(j)
NextEnd With
Sub distributielijsten_filteren_wijzigen_kontaktpersoon_verwijderen2()
c01 = "anita@planeet.eu"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[Messageclass]='IPM.DistList'") Set c02 = CreateObject("Outlook.Application").CreateItem(0).Recipients
NextFor j = 1 To it.MemberCount If LCase(it.GetMember(j).address) = LCase(c01) Then c02.Add it.GetMember(j)
NextIf c02.Count >0 Then it.RemoveMembers c02
End Ifit.Save Sub notitie_eigenschappen() ' createitem(5) ' createitem(olNoteItem) ' Getdefaultfolder (12) ' Getdefaultfolder(olFolderNotes) ' GetDefaultfolder("notities") With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items(1)
End Subc1 = .Application
End Withc2 = .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 Sub notitie_nieuw()
With CreateObject("Outlook.Application").CreateItem(5)
End Sub.body = "controle" & vbLf & "kijk eens"
End With.Save Sub notitie_lezen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items(c00) If .Class = 44 Then c01 = .body & "|" & .CreationTime
End WithSub notitie_verplaatsen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(12).Items(c00).Move .GetDefaultFolder(3)
End WithSub notitie_verwijderen()
c00 = "controle"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items(c00).Delete Sub notitie_wijzigen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items(c00) .body = "new subject"
End With.Top = .Top + 30 .Left = .Left + 40 .Height = 2 * .Height .Width = 2 * .Width .Color = 2 .Save
Sub notities_filteren_lezen()
c00 = "controle"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items.Restrict("[Subject]='" & c00 & "'") c01 = c01 & "|" & it.body
Next
Sub notities_filteren_verplaatsen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") For Each it In .GetDefaultFolder(12).Items.Restrict("[Subject]='" & c00 & "'")
End Withit.Move .GetDefaultFolder(3)
Next
Sub notities_filteren_verwijderen()
c00 = "controle"
End SubFor Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items.Restrict("[Subject]='" & c00 & "'") it.Delete
Next
Sub notities_filteren_wijzigen()
c00 = "controle"
End Subc01 = "new subject" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items.Restrict("[Subject]='" & c00 & "'") With it
Next.body = c01
End With.Save
Sub notities_zoeken_lezen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items c01 = .Find("[Subject]='" & c00 & "'").body
End WithDo Until Err.Number <>0 c01 = c01 & "|" & .FindNext.body
Loop
Sub notities_zoeken_verplaatsen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(12).Items.Find("[Subject]='" & c00 & "'").Move .GetDefaultFolder(3)
End WithDo Until Err.Number <>0 .GetDefaultFolder(12).Items.FindNext.Move .GetDefaultFolder(3)
Loop
Sub notities_zoeken_verwijderen()
On Error Resume Next
End Subc00 = "controle" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items .Find("[Subject]='" & c00 & "'").Delete
End WithDo Until Err.Number <>0 .FindNext.Delete
Loop
Sub notities_zoeken_wijzigen()
On Error Resume Next
End Subc00 = "controle" c01 = "new subject" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(12).Items With .Find("[Subject]='" & c00 & "'")
End With.body = c01
End With.Save Do Until Err.Number <>0 With .FindNext
Loop.body = c01
End With.Save Sub afspraak_eigenschappen() 'Createitem(1) 'Createitem(olappointment) 'Getdefaultfolder(9) 'Getdefaultfolder(olCalendar) 'Getdefaultfolder("Agenda") With CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(9).Items(1)
End Subc0 = .Actions.Count
End WithFor jj = 1 To c0 d0 = .Actions(jj).Name
Nextc1 = .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)
Nextd1 = .Name
End Withd2 = .address d3 = .AddressEntry c31 = .Saved c32 = .Sensitivity c33 = .Session c34 = .Size c35 = .start c36 = .subject c37 = .Type c38 = .UnRead'waar / onwaar c39 = .UserProperties.Count Sub afspraak_nieuw()
With CreateObject("Outlook.Application").CreateItem(1)
End Sub.subject = "Jaarvergadering"
End With.Start = DateValue("06-03-2019") + TimeValue("12:30") .Duration = 45 .Location = "Vergaderzaal C" .Save Sub afspraak_lezen()
c00 = "Jaarvergadering"'Subject
End Subc01=CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items(c00).location Sub afspraak_wijzigen()
c00 = "Jaarvergadering"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(9).Items(c00).move ..GetDefaultFolder(9)
End WithSub afspraak_wijzigen()
c00 = "Jaarvergadering"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items(c00).delete Sub afspraak_wijzigen()
c00 = "Jaarvergadering"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items(c00) .start = DateAdd("d", 4, .start) + DateAdd( "h", 2, .start)
End With.Save
Sub afspraken_filteren_lezen()
c01="Sessie B"
End Subc00 = "[Location]='" & c01 & "'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items.Restrict(c00) c02 = c02 & "|" & it.Location & it.start
Next
Sub afspraken_filteren_verplaatsen()
c01="Sessie B"
End Subc00 = "[Location]='" & c01 & "'" with CreateObject("Outlook.Application").GetNamespace("MAPI") For Each it In .GetDefaultFolder(9).Items.Restrict(c00)
End Withit.move .GetDefaultFolder(3)
Next
Sub afspraken_filteren_verwijderen()
c01="Sessie B"
End Subc00 = "[Location]='" & c01 & "'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items.Restrict(c00) it.Delete
Next
Sub afspraken_filteren_wijzigen()
c01="Sessie B"
End Subc02="Room 203" c00 = "[Location]='" & c01 & "'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items.Restrict(c00) it.Location = c02
Nextit.start = DateAdd( "d", 1, it.start) it.Save
Sub afspraken_zoeken_lezen()
On Error Resume Next
End Subc01 = "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
End WithDo Until Err.Number >0 c02 = c02 & "|" & .FindNext.subject
Loop
Sub afspraken_zoeken_verplaatsen()
On Error Resume Next
End Subc01 = "Sessie B" c00 = "[Location]='" & c01 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(9).Items.Find(c00).Move .GetDefaultFolder(3)
End WithDo Until Err.Number >0 .GetDefaultFolder(9).Items.FindNext.Move .GetDefaultFolder(3)
Loop
Sub afspraken_zoeken_verwijderen()
On Error Resume Next
End Subc01 = "Sessie B" c00 = "[Location]='" & c01 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items .Find(c00).Delete
End WithDo Until Err.Number >0 .FindNext.Delete
Loop
Sub afspraken_zoeken_wijzigen()
On Error Resume Next
End Subc01 = "Sessie B" c02 = "vergaderzaal A" c00 = "[Location]='" & c01 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(9).Items With .Find(c00)
End With.Location = c02
End With.Save Do Until Err.Number <>0 With .FindNext
Loop.Location = c02
End With.Save
Sub afspraak_zoeken()
On Error Resume Next
End Subc01 = 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
Sub vergaderverzoek_eigenschappen() ' CreateItem(1) ' Createitem(olAppointmentitem) ' Getdefaultfolder(9) ' Getdefaultfolder(olfolderCalendar) ' Getdefaultfolder("Agenda") c00 = "Jaarvergadering"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00) c0 = .Actions.Count
End WithFor jj = 1 To c0 d0 = .Actions(jj).Name
Nextc1 = .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)
Nextd1 = .Name
End Withd2 = .address d3 = .AddressEntry 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 Sub vergaderverzoek_nieuw()
c00="Jaarvergadering"
End Subc01 = "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
End With.MeetingStatus = 1 .Location = c01 .start = c02 .Duration = c03 .Recipients.Add c04 .send Sub vergaderverzoek_lezen()
' vergaderverzoeken bevinden zich alleen in een Postvak IN: getdefaultfolder(6) getdefaultfolder(olFolderInbox)
End Subc00 = "Jaarvergadering"'Subject With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00) c01 = .subject & "_" & CreationTime & "_" & .body & "_" & .SenderName & "_" & .Class' 53
End With
Sub vergaderverzoek_verplaatsen()
c00 = "Jaarvergadering"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(6).Items(c00).Move .GetDefaultFolder(3)
End With
Sub vergaderverzoek_verwijderen()
c00 = "Jaarvergadering"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).Delete
Sub vergaderverzoek_lezen_voorlopig_accepteren()
c00 = "Jaarvergadering"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).GetAssociatedAppointment(True).Respond 2
Sub vergaderverzoek_lezen_accepteren()
c00 = "Jaarvergadering"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).GetAssociatedAppointment(True).Respond 3
Sub vergaderverzoek_lezen_weigeren()
c00 = "Jaarvergadering"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).GetAssociatedAppointment(True).Respond 4
Sub vergaderverzoeken_filteren_lezen()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[MessageClass]='IPM.Schedule.Meeting.Request'")
End Subc01 = c01 & "|" & it.body
Next
Sub vergaderverzoeken_filteren_verplaatsen()
With CreateObject("Outlook.Application").GetNamespace("MAPI")
End SubFor Each it In .GetDefaultFolder(6).Items.Restrict("[Class]='53'")
End Withit.Move .GetDefaultFolder(3)
Next
Sub vergaderverzoeken_filteren_verwijderen()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[Class]='53'")
End Subit.Delete
Next
Sub vergaderverzoeken_filteren_voorlopig_accepteren()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[Class]='53'")
End Subit.GetAssociatedAppointment(True).Respond 3
Next
Sub vergaderverzoeken_filteren_accepteren()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[MessageClass]='IPM.Schedule.Meeting.Request'")
End Subit.GetAssociatedAppointment(True).Respond 2
Next
Sub vergaderverzoeken_filteren_weigeren()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[Class]='53'")
End Subit.GetAssociatedAppointment(True).Respond 4
Next
Sub vergaderverzoeken_filteren_kopiëren()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[MessageClass]='IPM.Schedule.Meeting.Request'")
End Subit.Copy
Nextit.Move CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(3)
Sub vergaderverzoeken_zoeken_lezen()
On Error Resume Next
End Subc01 = "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
End WithDo Until Err.Number <>0 c01 = c01 & "|" & .FindNext.body
Loop
Sub vergaderverzoeken_zoeken_kopiëren()
On Error Resume Next
End Subc01 = "IPM.Schedule.Meeting.Request" c02 = "Jaarvergadering" c00 = "[MessageClass]='" & c01 & "' And [Subject]='" & c02 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items With .Find(c00)
End With.Copy
.Move CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(3)
End WithDo Until Err.Number <>0 With .FindNext
Loop.Copy
End With.Move CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(3)
Sub vergaderverzoeken_zoeken_verplaatsen()
On Error Resume Next
End Subc01 = "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)
End WithDo Until Err.Number <>0 .GetDefaultFolder(6).Items.FindNext.Move .GetDefaultFolder(3)
Loop
Sub vergaderverzoeken_zoeken_verwijderen()
On Error Resume Next
End Subc01 = "IPM.Schedule.Meeting.Request" c02 = "Jaarvergadering" c00 = "[MessageClass]='" & c01 & "' And [Subject]='" & c02 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items .Find(c00).Delete
End WithDo Until Err.Number <>0 .FindNext.Delete
Loop
Sub vergaderverzoeken_zoeken_voorlopig_accepteren()
On Error Resume Next
End Subc01 = "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
End WithDo Until Err.Number <>0 .FindNext.GetAssociatedAppointment(True).Respond 3
Loop
Sub vergaderverzoeken_zoeken_accepteren()
On Error Resume Next
End Subc01 = "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
End WithDo Until Err.Number <>0 .FindNext.GetAssociatedAppointment(True).Respond 2
Loop
Sub vergaderverzoeken_zoeken_weigeren()
On Error Resume Next
End Subc01 = "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
End WithDo Until Err.Number <>0 .FindNext.GetAssociatedAppointment(True).Respond 4
LoopSub taak_eigenschappen() 'Createitem(3) 'Createitem(olTaskItem) 'Getdefaultfolder(13) 'Getdefaultfolder(olFolderTasks) 'Getdefaultfolder("Taken") With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(13).Items(1)
End Subc0 = .Actions.Count
End WithFor jj = 1 To c0 d0 = .Actions(jj).Name
Nextc1 = .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 Sub taak_nieuw()
With CreateObject("Outlook.Application").CreateItem(3)
End Subc00 = "controle"
End Withc01 = Date c02 = DateValue("04-05-2019") + TimeValue("08:00:00") .subject = c00 .StartDate = c01 .ReminderSet = True .ReminderTime =c02 .Save Sub taak_lezen()
c00 = "controle"'Subject
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items(c00) c01=.startdate & "_" & .Subject & "_" & .Status
End WithSub taak_verplaatsen()
c00 = "controle"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(13).Items(c00).move .Getdefaultfolder(3)
End WithSub taak_verwijderen()
c00 = "controle"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items(c00).delete
Sub taak_zoeken_meer_criteria()
c02 = DateValue("15-04-2011")
End Subc01 = "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 WithSub taak_wijzigen()
c00 = "controle"
End Subc01 = "nieuwe controle" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items(c00) .subject = c01
End With.Save
Sub taken_filteren_lezen()
c01 = DateValue("11-04-2011")
End Subc00 = "[StartDate] ='" & format(c00, "ddddd") & "'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items.Restrict(c00) c02 = c02 & "|" & it.subject
Next
Sub taken_filteren_verplaatsen()
c01 = DateValue("11-04-2019")
End Subc00 = "[StartDate] ='" & format(c00, "ddddd") & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI") For Each it In .GetDefaultFolder(13).Items.Restrict(c00)
end withit.move .GetDefaultFolder(3)
Next
Sub taken_filteren_verwijderen()
c01 = DateValue("11-04-2011")
End Subc00 = "[StartDate] ='" & format(c00, "ddddd") & "'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items.Restrict(c00) it.Delete
Next
Sub taken_filteren_wijzigen()
c01 = DateValue("11-04-2011")
End Subc00 = "[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)
Nextit.Save Sub taken_zoeken_lezen()
On Error Resume Next
End Subc01 = DateValue("11-04-2011") c00 = "[StartDate] ='" & format(c00, "ddddd") & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items c02 = .Find(c00).Subject
End WithDo Until err.number<>0 c02 = c02 & "|" & .FindNext.Subject
Loop
Sub taken_zoeken_verplaatsen()
On Error Resume Next
End Subc01 = "nieuwe controle" c00 = "[Subject] ='" & c01 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(13).Items.Find(c00).move .GetDefaultFolder(3)
End WithDo Until err.number<>0 .GetDefaultFolder(13).Items.FindNext.move .GetDefaultFolder(3)
Loop
Sub taken_zoeken_verwijderen()
On Error Resume Next
End Subc01 = "nieuwe controle" c00 = "[Subject] ='" & c01 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items .Find(c00).delete
End WithDo Until err.number<>0 .FindNext.delete
Loop
Sub taken_zoeken_wijzigen()
On Error Resume Next
End Subc01 = "nieuwe controle" c00 = "[Subject] ='" & c01 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(13).Items With .Find(c00)
End With.StartDate = DateAdd( "d", 4, .StartDate)
End With.Save Do Until err.number<>0 with .FindNext
Loop.StartDate = DateAdd( "d", 4, .StartDate)
End With.Save
Sub taakverzoek_eigenschappen() ' CreateItem(3) ' CreateItem(olTask) ' GetDefaultFolder(13) ' GetDefaultFolder(olFolderTasks) ' GetDefaultFolder("Taken") With CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(13).Items(1)
End Subc0 = .Actions.Count
End WithFor jj = 1 To c0 d0 = .Actions(jj).Name
Nextc1 = .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 Sub taakverzoek_nieuw()
c00 = "controle 7"
End Subc01 = Date +7" c02 = DateValue(""04-05-2019") + TimeValue("08:00:00" c03 = "snb@forums.eu" With CreateObject("Outlook.Application").CreateItem(3) .assign
End With.subject = c00 .StartDate = c01 .ReminderSet = True .ReminderTime = c02 .Recipients.Add c03 .send Sub taakverzoek_lezen()
c00 = "Taakverzoek: controle 7"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00) c01 = .subject & "_" & .CreationTime & "_" & .body & "_" & .Class & "_" & .MessageClass
End With
Sub taakverzoek_lezen_simple_accepteren()
c00 = "Taakverzoek: controle 7"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).GetAssociatedTask(True).Respond 0, False, False
Sub taakverzoek_lezen_accepteren()
c00 = "Taakverzoek: controle 7"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).GetAssociatedTask(True).Respond 2, True, True
Sub taakverzoek_lezen_weigeren()
c00 = "Taakverzoek: controle 7"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).GetAssociatedTask(True).Respond 3, False, False
Sub taakverzoek_verplaatsen()
c00 = "Taakverzoek: controle 7"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(6).Items(c00).Move .GetDefaultFolder(3)
End With
Sub taakverzoek_verwijderen()
c00 = "Taakverzoek: controle 7"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).Delete
Sub taakverzoeken_filteren_lezen()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict("[MessageClass]='IPM.TaskRequest'")
End Subc01 = c01 & "|" & it.body
Next
Sub taakverzoeken_filteren_verplaatsen()
c01 = "IPM.TaskRequest"
End Subc00 = "[MessageClass]='" & c01 &'" With CreateObject("Outlook.Application").GetNamespace("MAPI") For Each it In .GetDefaultFolder(6).Items.Restrict(c00)
End Withit.Move .GetDefaultFolder(3)
Next
Sub taakverzoeken_filteren_verwijderen()
c01 = "IPM.TaskRequest"
End Subc00 = "[MessageClass]='" & c01 &'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict(c00) it.Delete
Next
Sub taakverzoeken_filteren_wijzigen()
c01 = "IPM.TaskRequest"
End Subc02 = "new subject" c00 = "[MessageClass]='" & c01 &'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict(c00) With it
Next.body = c02
End With.Save
Sub taakverzoeken_filteren_voorlopig_accepteren()
c01 = "IPM.TaskRequest"
End Subc00 = "[MessageClass]='" & c01 &'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict(c00) it.GetAssociatedTask(True).Respond 0, False, False
Next
Sub taakverzoeken_filteren_accepteren()
c01 = "IPM.TaskRequest"
End Subc00 = "[MessageClass]='" & c01 &'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict(c00) it.GetAssociatedTask(True).Respond 2, False, False
Next
Sub taakverzoeken_filteren_weigeren()
c01 = "IPM.TaskRequest"
End Subc00 = "[MessageClass]='" & c01 &'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict(c00) it.GetAssociatedTask(True).Respond 3, False, False
Next
Sub taakverzoeken_filteren_kopiëren()
c01 = "IPM.TaskRequest"
End Subc00 = "[MessageClass]='" & c01 &'" With CreateObject("Outlook.Application").GetNamespace("MAPI") For Each it In .GetDefaultFolder(6).Items.Restrict(c00)
end withit.Copy
Nextit.Move .GetDefaultFolder(3)
Sub taakverzoeken_zoeken_lezen()
On Error Resume Next
End Subc01 = "IPM.TaskRequest" c00 = "[MessageClass]='" & c01 &'" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items c02 = .Find(c00).body
End WithDo Until Err.Number <>0 c02 = c02 & "|" & .FindNext.body
Loop
Sub taakverzoeken_zoeken_verplaatsen()
On Error Resume Next
End Subc01 = "IPM.TaskRequest" c00 = "[MessageClass]='" & c01 &'" With CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(6).Items.Find(c00).Move .GetDefaultFolder(3)
End WithDo Until Err.Number <>0 .GetDefaultFolder(6).Items.FindNext.Move .GetDefaultFolder(3)
Loop
Sub taakverzoeken_zoeken_verwijderen()
On Error Resume Next
End Subc01 = "opdracht" c00 = "[ConversationTopic]='" & c01 &'" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items .Find(c00).Delete
End WithDo Until Err.Number <>0 .FindNext.Delete
Loop
Sub taakverzoeken_zoeken_wijzigen()
On Error Resume Next
End Subc01 = "IPM.TaskRequest" c00 = "[MessageClass]='" & c01 &'" c02 = "New Subject" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items With .Find(c00)
End With.body = c02
End With.Save Do Until Err.Number <>0 With .FindNext
Loop.body = c02
End With.Save
Sub logboekitem_eigenschappen() ' CreateItem(4) ' CreateItem(olJournaItem) ' GetDefaultFolder(11) ' GetDefaultFolder(olFolderJournal) ' GetDefaultFolder("Logboek") With CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(11).Items(1)
End Subc00 = .Actions.Count
End WithFor jj = 1 To c00 d0 = .Actions(jj).Name
Nextc1 = .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
Nextd2 = rp.address d3 = rp.AddressEntry c31 = .Saved c32 = .Sensitivity c33 = .Session c34 = .Size c35 = .start c36 = .subject c37 = .Type .Type = "Letter"
c38 = .UnRead .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" c39 = .UserProperties.Count Sub logboekitem_nieuw()
c00 = Now
End Subc01 = 15 c02 = 4e logboekitem c03 = "E-mail Message" With CreateObject("Outlook.Application").CreateItem(4) .start = format(c00, "ddddd hh:mm")
End With.Duration = c01 .subject = c02 .Type = c03 .Save Sub logboekitem_lezen()
c00 = "4e logboekitem"
End Subc01 = CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(11).Items(c00).Type
Sub logboekitem_verplaatsen()
c00 = "4e logboekitem"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(11) .Items(c00).move .GetDefaultFolder(3)
End With
Sub logboekitem_verwijderen()
c00 = "4e logboekitem"
End SubCreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items(c00).Delete Sub logboekitem_wijzigen()
c00 = "4e logboekitem"
End Subc02 = "Meeting" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items(c00) .Type = c02
End With.Save
Sub logboekitems_filteren_lezen()
c01 = "Meeting"
End Subc00 = "[Type]='" & c01 & "'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items.Restrict(c00) c02 = c02 & "|" & it.subject
Next
Sub logboekitems_filteren_verplaatsen()
c01 = "Meeting"
End Subc00 = "[Type]='" & c01 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI") For Each it In .GetDefaultFolder(11).Items.Restrict(c00)
End Withit.move .GetDefaultFolder(3)
Next
Sub logboekitems_filteren_verwijderen()
c01 = "Meeting"
End Subc00 = "[Type]='" & c01 & "'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items.Restrict(c00) it.Delete
Next
Sub logboekitems_filteren_wijzigen()
c01 = "Meeting"
End Subc02 = "Nieuwe tekst" c00 = "[Type]='" & c01 & "'" For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items.Restrict(c00) it.subject = c02
Nextit.Save
Sub logboekitems_zoeken_lezen()
On Error Resume Next
End Subc01 = "Meeting" c00 = "[Type]='" & c01 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items c02 = .Find(c00).Subject
End WithDo Until Err.Number<>0 c02 = c02 & "|" & .FindNext.Subject
Loop
Sub logboekitems_zoeken_verplaatsen()
On Error Resume Next
End Subc01 = "Meeting" c00 = "[Type]='" & c01 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(11).Items.Find(c00).Move .GetDefaultFolder(3)
End WithDo Until Err.Number<>0 .GetDefaultFolder(11).Items.Find(c00).Move .GetDefaultFolder(3)
Loop
Sub logboekitems_zoeken_verwijderen()
On Error Resume Next
End Subc01 = "Meeting" c00 = "[Type]='" & c01 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items .Find(c00).Delete
End WithDo Until Err.Number <>0 .FindNext.Delete
Loop
Sub logboekitems_zoeken_wijzigen()
On Error Resume Next
End Subc01 = "Meeting" c02 = "new subject" c00 = "[Type]='" & c01 & "'" With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items With .Find(c00)
End With.Subject = c02
End With.Save Do Until err.number<>0 with .FindNext
Loop.Subject =c02
End With.Save Sub logboekitem_zoeken()
On Error Resume Next
End Subc01 = "Meeting" c00 = [Type] ='" & c01 & "'") c02 = CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(11).Items.Find(c00).subject Sub discussie_eigenschappen() ' CreateItem(6) ' CreateItem(olPost) With CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items(1)
End Subc00 = .Actions.Count
End WithFor Each ac In .Actions d0 = ac.Name
Nextc1 = .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 Sub discussie_nieuw()
c00 = "nieuwe postbodes"
End SubWith CreateObject("Outlook.application").CreateItem(6) .Subject = c00
End With.Save
Sub discussie_nieuw_in_specifieke_map()
c00 = "nieuwe postbodes"
End SubWith CreateObject("Outlook.application").CreateItem(6) .Subject = c00
End With.Save .Move .Application.GetNamespace("MAPI").GetDefaultFolder(16) Sub discussie_lezen()
c00 = "nieuwe postbodes"
End Subc01 = CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00).Class Sub discussie_verplaatsen()
c00 = "nieuwe postbodes"
End SubWith CreateObject("Outlook.Application").GetNamespace("MAPI") .GetDefaultFolder(6).Items(c00).Move .GetDefaultFolder(16)
End WithSub discussie_verwijderen()
c00 = "nieuwe postbodes"
End SubCreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).Items(c00).Delete Sub discussie_wijzigen()
c00 = "nieuwe postbodes"
End Subc01 = "oud verhaal" With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items(c00) .Subject = c01
End With.Save
Sub discussies_filteren_lezen()
c01 = "nieuwe postbodes"
End Subc00 ="[Subject]='" & c01 & "'" For Each it In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).Items.Restrict(c00) c01 = c01 & "|" & it.SentOn
Next
Sub discussies_filteren_verplaatsen()
c00 = "nieuwe postbodes"
End Subc00 ="[Subject]='" & c01 & "'" With CreateObject("Outlook.application").GetNamespace("MAPI") For Each it In .GetDefaultFolder(6).Items.Restrict(c00)
End Withit.Move .GetDefaultFolder(3)
Next
Sub discussies_filteren_verwijderen()
c00 = "nieuwe postbodes"
End Subc00 ="[Subject]='" & c01 & "'" For Each it In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Restrict(c00) it.Delete
Next
Sub discussies_filteren_wijzigen()
c00 = "nieuwe postbodes"
End Subc02 = "nieuwe onderwerpen" c00 ="[Subject]='" & c01 & "'" For Each it In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).Items.Restrict(c00) it.Subject = c02
Nextit.Save
Sub discussies_zoeken_lezen()
On Error Resume Next
End Subc01 = "nieuwe postbodes" c00 ="[Subject]='" & c01 & "'" With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).Items c02 = .Find(c00).Body
End WithDo Until Err.Number <>0 c02 = c02 & "|" & .FindNext.Body
Loop
Sub discussies_zoeken_verplaatsen()
On Error Resume Next
End Subc01 = "nieuwe postbodes" c00 ="[Subject]='" & c01 & "'" With CreateObject("Outlook.application").GetNamespace("MAPI") .GetDefaultFolder(16).Items.Find(c00).Move .GetDefaultFolder(6)
End WithDo Until Err.Number <>0 .GetDefaultFolder(16).Items.FindNext.Move .GetDefaultFolder(6)
Loop
Sub discussies_zoeken_verwijderen()
On Error Resume Next
End Subc01 = "nieuwe postbodes" c00 ="[Subject]='" & c01 & "'" With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).Items .Find(c00).Delete
End WithDo Until Err.Number <>0 .FindNext.Delete
Loop
Sub discussies_zoeken_wijzigen()
On Error Resume Next
End Subc01 = "nieuwe postbodes" c02 = "nieuwe onderwerpen" c00 ="[Subject]='" & c01 & "'" With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).Items With .Find(c00)
End With.Subject = c02
End With.Save Do Until Err.Number <>0 With .FindNext
Loop.Subject = c02
End With.Save Sub discussie_zoeken()
c01 = "nieuwe postbodes"
End Subc00 ="[Subject]='" & c01 & "'" c01 = CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items.Find(c00).SentOn - email
- kontaktpersoon - distributielijst - taak - taakverzoek - afspraak - logboekitem ' dit kan een fout veroorzaken
Sub email_attachment_eigenschappen()
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6).Items
End SubFor Each at In it.Attachments
Next
c01 = at.Application
Nextc02 = 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 Sub bijlagen_opslaan()
For Each it In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items
End SubFor Each at In it.Attachments
Nextat.SaveAsFile "E:\" & at.FileName
Next |
1 Toegang tot Outlook