91
Excel / Mailen in Excel
« Laatste bericht door Sunnybat Gepost op 11 oktober 2024, 12:52:49 »Hoi,
ik had deze reeds een keer gehad ben blijven puzzelen maar hij blijft maar zeggen
het Subscript valt buiten het bereik
ik had deze reeds een keer gehad ben blijven puzzelen maar hij blijft maar zeggen
het Subscript valt buiten het bereik
Code: [Selecteer]
Sub SendSheet()
Fname = "geen voorbeeld"
Sheets("sunnybat zonder voorbeeld").Range("A1:E50").Copy
With ThisWorkbook
.SaveAs ThisWorkbook.Path & "\" & Fname, 50
.Close False
End With
With CreateObject("outlook.application").createitem(0)
.to = "hier het emailadres"
.Subject = "hier het onderwerp of celverwijzing"
.body = "In bijlage de gevraagde XXXX." & vbLf & vbLf & "Groeten Sunnybat"
.attachments.Add ThisWorkbook.Path & "\" & Fname & ".xlsx"
.display
End With
Kill ThisWorkbook.Path & "\" & Fname & ".xlsx"
End Sub