Foutmelding: Compileerfout

[Angela69]

Hallo, deze foutmelding komt tevoorschijn, weet iemand hoe ik dit kan oplossen?
Vertel me a.u.b. waar precies ik eventuele wijzigingen moet aanbrengen.

 

[edmoor]

Klik in de VBA editor in het menu op Extra en dan Verwijzingen.
Zorg ervoor dat Microsoft Outlook 16.0 Object Library aangevinkt is.

Of gebruik dit:
Dim OutApp As Object
Set OutApp = CreateObject("Outlook.Application")

 

[Angela69]

Bedankt voor je advies, maar....
zie schermafdruk, 'verwijzingen' is lichtgrijs dus niet bewerkbaar, wat te doen?

 

[snb]

VBA-basis voor Excel - Excel Academy - de specialist in Excel cursussen

www.excel-academy.nl

Programmeren in Excel met VBA | NCOI Opleidingen

Word expert in Excel en verdiep je in Visual Basic for Applications (VBA) met de training Programmeren in Excel met VBA. Bekijk de training op ncoi.nl.

www.ncoi.nl

 

[edmoor]

Bedankt voor je advies, maar....
zie schermafdruk, 'verwijzingen' is lichtgrijs dus niet bewerkbaar, wat te doen?

Stop eerst de macro.

 

[Angela69]

Stop eerst de macro.

Er draait geen macro, maar op de een of andere manier kan ik nu wel bij de vba editor komen en tot mijn verbazing staat er al een vinkje bij: Microsoft Outlook 16.0 Object Library
Wat nu?

 

[edmoor]

Je eerste plaatje laat een gele regel zien, dat betekent dat die macro op dat moment draait.
Daarnaast gaf ik 2 opties aan in #2.

In het plaatje hier boven laat je een aandere verwijzing zien dan die ik noemde en je zelf ook schrijft.
Microsoft Outlook 16.0 Object Library is niet hetzelfde als Microsoft Office 16.0 Object Library

 

[Warme bakkertje]

Ik zie zo vaak mailcode voorbijkomen met een reeks onnodige, overbodige variabelen. Gebruik gewoon eens iets als

    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "emailadres"
        .Subject = "Onderwerp"
        .Body = "begeleidende tekst"
        .Attachments.Add Sheets("Blad1").[A1].Value & "\" & Sheets("Blad1").[A2].Value & ".pdf"
        .Display   'of gebruik .Send
    End With

Ook geen gedoe meer met verwijzingen.

 

[snb]

.Attachments.Add [Blad1!A1]  & "\" & [Blad1!A2] & ".pdf"