Code:
Private Sub CommandButton1_Click()
Dim Bestand As String
Dim OutApp As Object
Dim OutMail As Object
Bestand = Environ("TEMP") & "\" & ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Bestand
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.to = "iemand@bedrijf.nl"
.CC = ""
.BCC = ""
.Subject = "Dit is het onderwerp"
.Body = "Bij deze het bestand"
.Attachments.Add Bestand
.Send
End With
Kill Bestand
End Sub
deze code heb ik gevonden op deze site , maar krijg hem niet aan de aan de praat voor mijn probleem.
in een excel workbook zit een sheet genaamd "aanvraag formulier"
dit voorfumlier willen we als een excel bestand mailen
de bijlage die met de mail verstuurd wordt heet
Code:
naam = "aanvraag formulier" & " - " & ActiveSheet.Range("C16").Value & ".xls"
wie kan helpen ?