Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub VerzendenAlsPDFenleegmakenenopslaan()
Pad = "E:\Temp\" 'even aanpassen
Otv = "hier mailadres invullen"
Bst = "Bestelling" & Format(Now, "dd-mm-yyyy hh.mm") & ".pdf"
If Application.CountA(Sheets("bestelling").Columns(1)) = 2 Then Exit Sub
Sheets("Bestelling").Range("A1:I42").ExportAsFixedFormat 0, Pad & Bst
With CreateObject("Outlook.Application").createitem(0)
.to = Otv
.Subject = "Test"
.Body = "zie bijlage"
.Attachments.Add Pad & Bst
.display 'of .Send
End With
Range("A9:I34").ClearContents
'ActiveWorkbook.Close Savechanges:=True
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.