Goedemiddag,
Ik blijf een foutmelding krijgen met de onderstaande code, de regel .attachments.add blijft hij geel aangeven in de code.
Kan iemand mij vertellen wat ik hier fout in doe?
Ik heb een documentnummer staan in cell B8 vandaar de verwijzing.
Alvast bedankt!
Ik blijf een foutmelding krijgen met de onderstaande code, de regel .attachments.add blijft hij geel aangeven in de code.
Kan iemand mij vertellen wat ik hier fout in doe?
Ik heb een documentnummer staan in cell B8 vandaar de verwijzing.
Alvast bedankt!
Code:
Sub Mail_met_pdf()
Dim outlookApp As Object
Dim emailItem As Object
Dim emailSubject As String
Dim emailBody As String
Dim newFilename As String
'Bestandnaam aanmaken
newFilename = Range("B8").Value & ".pdf"
'PDF aanmaken
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=newFilename, _
Quality:=xlQualityStandard, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Set outlookApp = CreateObject("Outlook.Application")
Set emailItem = outlookApp.CreateItem(0)
'Email opmaken
With emailItem
.To = ""
.Subject = Range("B8")
.Body = ""
.Attachments.Add newFilename
.Display ' of .Send
End With
End Sub