Hallo Marc,
is het moeilijk om een kopie van dat Excel-bestandje aan te hangen als bijlage, ontdaan van persoonlijke data, en ontdaan van werkbladen die niet nodig zijn voor de verzending?
PdfFile = "C:\OneDrive\Bedrijf\Bedrijf - Data\Offertes\2021\" & "\" & FacName & ".pdf"
Dubbele slash na 2021 !! het pdf-bestand is opgeslagen zonder dubbele slash en zal dus niet gevonden worden met de Variabele PdfFile
strBericht = Range("B4,B9")
Dit werkt niet. Enkel de tekst van B4 zal getoond worden.
als je meerdere teksten in meerdere vakken hebt staan voeg die dan samen met =TEKST.SAMENVOEGEN(B4;B5;B6;B7;B8;B9) in een verborgen of niet gebruikte cel en verwijs naar die cel in "strBericht = "
Set outlApp = GetObject(, "Outlook.Application")
Een komma en een spatie te veel ? zo misschien?
Set outlApp = GetObject("Outlook.Application")
Verder kan ik niet veel meer helpen omdat ik geen outlook heb.
SoftAid