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"

 

[Angela69]

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.

Plak ik dit ergens tussen de huidige code? Of vervangt dit de hele code?

 

[Warme bakkertje]

Post je hele code en dan kijken wij er wel eens naar.

 

[Angela69]

Post je hele code en dan kijken wij er wel eens naar.

Iemand heeft deze code voor me gemaakt, de bedoeling is dat de in Excel vermelde mailadressen gemaild worden met als bijlage een PDFje uit een bepaalde map.

 

[Warme bakkertje]

Dit is een totaal andere code dan degene je laat zien in Post#1 en #3.

 

[Angela69]

Dit is een totaal andere code dan degene je laat zien in Post#1 en #3.

Weet je, mijn laptopje is ter ziele gegaan, ik had dus een code gekregen die prima werkte en die probeer ik via Helpmij weer op te zoeken en weer te gebruiken. Maar ik kom zoveel codes tegen dat ik niet meer weet welke de juiste is. Maar wat de bedoeling is heb ik beschreven. Kun je mij hiermee helpen?

 

[edmoor]

Plaats een voorbeeld Excel document waarin de code van #1 staat.

Bericht automatisch samengevoegd: Vandaag om 20:05

Deze doet wat je vroeg.
Ik ga er wel vanuit dat dr.pfd fout is en het pdf moet zijn:

Bericht automatisch samengevoegd: Vandaag om 20:09

N.B.:
In de code staat Blad1 voor de objectnaam van het werkblad, niet de naam van het blad.

 

[Warme bakkertje]

Was er ook aan bezig dus ga de mijne toch ook even posten.

Sub SendMails()
    Dim sn As Variant, i As Long
   
    With Sheets("Blad1")
        sn = .Range("C3", .Range("C" & .Rows.Count).End(xlUp)).Resize(, 3)
    End With
    With CreateObject("Outlook.Application").CreateItem(0)
        For i = 1 To UBound(sn)
            .To = sn(i, 1)
            .Subject = "Offerte"
            .Body = "In bijlage voorstel in pdf formaat"
            .Attachments.Add sn(i, 3)
            .Display   'of gebruik .Send
        Next
    End With
End Sub

 

[edmoor]

Prima natuurlijk.
Er leiden meer wegen naar Rome