Macro voor het verzenden van de email

[dennisv12]

Hallo allemaal,

Ik heb een macro geschreven voor het verzenden van een email. ik krijg alleen een foutmelding dat het bestand dat ik wil verzenden niet te vinden is, weet iemand misschien waar ik de fout maak?

Sub Email()
Application.DisplayAlerts = False
Application.ScreenUpdating = False

c00 = "C:\Users\systeembeheer\Desktop\voortgang" & CreateObject("scripting.filesystemobject").getextensionname(ThisWorkbook.Name)
c01 = ThisWorkbook.FileFormat

With ActiveWorkbook.Sheets.Add
ActiveWorkbook.Sheets("Blad1").Range("E6:EFG14").Copy .Range("E6")
.Copy

With ActiveWorkbook
.SaveAs c00, c01
.Close
End With

.Delete
End With

With CreateObject("Outlook.Application").CreateItem(0)
.To = "dennisvheeren@gmail.com"
.Subject = "Test"
.Attachments.Add c00
.Send
End With
End Sub

 

[HSV]

Graag codetags gebruiken Dennis.

Voeg de rode tekst toe aan je code.

.SaveAs c00, c01
 [COLOR=#FF0000]c02 = .FullName[/COLOR]
 .Close

en dan:

.Attachments.Add [COLOR=#FF0000]c02[/COLOR]

 

[dennisv12]

Super, dit werkt. Bedankt Harry!