Naam uit cel toekennen aan een naar PDF geconverteerde bijlage in e-mail

[daniel62638]

Beste,

Ik heb een vraag over het volgende:
Ik wil dmv een macro/knop een werkblad als bijlage invoegen in een e-mail. Dit is tot zoverre gelukt alleen wil ik een andere naam(uit een aantal cellen van het werkblad) geven aan het PDF bestand in de bijlage. Momenteel heb ik hetvolgende:

 strFName = ActiveWorkbook.Name
     strFName = Left(strFName, InStrRev(strFName, ".") - 1) & "_" & ActiveSheet.Name & ".pdf"
     
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
         strPath & strFName, Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
         
     Set OutApp = CreateObject("Outlook.Application")
     Set OutMail = OutApp.CreateItem(0)

Ik heb geprobeerd de filename te verandere oid, hierop krijg ik errors.

Hoe kan ervoor zorgen dat het PDF in de bijlage van de e-mail voorzien is van een naam gehald uit een bepaalde cel?

Alvast bedankt!

 

[edmoor]

Bijvoorbeeld:
strFName = Range("A1").Value & Range("B1").Value & ".pdf"

Uiteraard dien je er voor te zorgen dat er een geldige bestandsnaam wordt samengesteld.