Opgelost vanaf EXCEL bestand automatisch aantekening in agenda plaatsen

[AHulpje]

Voilà:

 

[Dukkel]

Dat is een snelle reactie
Maar, bij het uitproberen een Afspraak (vanaf Blad JAN_2023 - 10-7-23 9:30 uur Dijklander Purmerend) in de Agenda te plaatsen ontving ik
deze melding:

 

[AHulpje]

De verwijzing naar de Microsoft Outlook Object Library ontbreekt.
Toevoegen:
Open de VBA ontwikkelomgeving: Alt-F11
Kies Extra, Verwijzingen in het lintmenu
Scroll naar Microsoft Outlook 16.0 Object Library en vink die aan.
Klik op OK en sla het bestand op.

 

[Dukkel]

Volgens mij staat dat vinkje al aan, dus ik krijg nog steeds dezelfde foutmelding.

 

[HSV]

With CreateObject("Outlook.Application").CreateItem(1)

 

[Dukkel]

Hallo AHulpje
Excuses ik heb me vergist
Microsoft Office 16.0 Object Library stond wel aan maar:
Microsoft Outlook 16.0 Object Library stond NIET aan
Na de aanpassing werkte de knop prima

 

[HSV]

Bij de aanpassing naar de 1 was die verwijzing niet nodig.

 

[Dukkel]

Okay, dank je wel

 

[Dukkel]

@AHulpje
Ik heb .Subject nog iets aangepast
Zodat de hoofd-test nu is "Dijklander Purmerend - Radiologie"
Voor de rest ben ik uiterst tevreden
Hartelijk bedankt.

 

[Dukkel]

Hallo AHulpje
Ik denk dat ik toch nog een puntje heb gevonden.
Graag zou ik willen dat op de plaats: .Body = (waar in nu Cells(r, 3) heb geplaatst
iets van "Locatie/Route: " + Cells(r, 3) kwam te staan. (Maar als ik dit zó invoer, krijg ik een foutmelding)

De bedoeling is dus er in de Agenda komt te staan bijv.: Locatie/Route: 9
Bijkomend probleem is, dat er ingeval van een Telefonisch onderhoud in Cells(r, 3) geen cijfers staan, maar tekst zoals: "TEL/MID"
Voor de duidelijkheid, het door mij aangepaste Medisch-Kostenoverzicht

 

[HSV]

Wat dacht je van een & i.p.v. +

 

[AHulpje]

En daar kan ik het niet anders dan volmondig mee eens zijn, dus:

        .Subject = Cells(r, 2) & " - " & Cells(r, 5)
        .Body = "Locatie/Route: " & Cells(r, 3)

 

[Dukkel]

Mijn dank is groot !
Perfect