VBA kode send pdf som email
HejJeg er nybegynder i Excel, indtil videre er det lykkedes mig at oprette et VBA kode så jeg opretter PDF fil ud fra nogen valg på arket i Excel.
Det jeg ikke kan finde ud af er at i stedet for filen bliver gemt på et drev at hvert fil bliver vedhæftet i et email og fil navn kommer automatisk op som afsender navn. Nogen det kan hjælpe mig videre med dette kode:
Sub loopList()
Dim inputRange As Range
Dim c As Range
Set inputRange = Evaluate(Range("B2").Validation.Formula1)
For Each c In inputRange
Range("B2").Value = c.Value
pdfName = c.Value 'file name
fileSaveName = Application.GetSaveAsFilename(pdfName, _
fileFilter:="PDF Files (*.pdf), *.pdf")
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=fileSaveName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next c
End Sub