Goedeavond specialisten,
Kan iemand mij uitleggen hoe ik meerdere e-mailadressen in mijn macro kan verwerken. Ik heb al diverse mogelijkheden uitgeprobeerd maar ik blijf een foutmelding krijgen.
Dit is de inhoud van mijn macro
Kan iemand mij uitleggen hoe ik meerdere e-mailadressen in mijn macro kan verwerken. Ik heb al diverse mogelijkheden uitgeprobeerd maar ik blijf een foutmelding krijgen.
Dit is de inhoud van mijn macro
Code:
Sub Big5_budget_mailen()
'
' Big5_budget_mailen Macro
'
'
Sheets("Bonus Big5").Select
Sheets("Bonus Big5").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Shapes.Range(Array("Boekingsdatum")).Select
Selection.Delete
Dim strDate As String
ActiveSheet.Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Big5 nieuwe bonusafspraak" & strDate & ".xls"
ActiveWorkbook.SendMail "e-mailadres01" & ";" & "e-mailadres02", _
"Nieuwe Bonus/budgetcijfers"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
ActiveWindow.Close
ActiveWorkbook.Close
End Sub
Laatst bewerkt: