Verstuur tabblad in pdf via mail met keuzelijst

[Danny09]

Wie kan mij helpen met het volgende?

Ik een Userform gemaakt met een keuzelijst die alle tabbladen herneemt. De button die ik gemaakt heb, met er voor zorgen, dat ik uit de keuzelijst een tabblad kan selecteren en die vervolgens in pdf kan verzenden via mail. De macro die ik geschreven heb laat enkel toe, dat ik de enkel het huidige tabblad kan versturen. Hieronder vinden jullie de reeds geschreven macro. Ik vermoed, dat dit zou moeten gebeuren via iloop?

Met dank voor jullie reactie

Private Sub Sendpdfbymail_Click()
Dim OlApp As Object
Dim NewMail As Object
Dim TempFilePath As String
Dim TempFileName As String
Dim FileFullPath As String

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

TempFilePath = Environ$("temp") & "D:\Documents\Rijtijden Bus"

TempFileName = ActiveSheet.Name & "-" & Format(Now, "dd-mmm-yy h-mm-ss") & ".pdf"

FileFullPath = "D:\Documents\Rijtijden Bus" & TempFileName

On Error GoTo err
With ActiveSheet
.ExportAsFixedFormat _
Type:=xlTypePDF, _
FileName:=FileFullPath, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With

Set OlApp = CreateObject("Outlook.Application")
Set NewMail = OlApp.CreateItem(0)

On Error Resume Next
With NewMail
.To = "xxxxxx@xxxxxxxxx"
.CC = ""
.BCC = ""
.Subject = "Prestatieblad"
.Body = ""
.Attachments.Add FileFullPath '--- full path of the pdf where it is saved
.Display 'or use .Send to show you the email before sending it.
End With
On Error GoTo 0

Kill FileFullPath

Set NewMail = Nothing
Set OlApp = Nothing

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
MsgBox ("Email Succesvol verstuurd")
Exit Sub
err:
MsgBox err.Description
End Sub

[Room42]

Dit gaat alvast niet werken, hè?

Visual Basic:

TempFilePath = Environ$("temp") & "D:\Documents\Rijtijden Bus"

Maar wat had je verder al en waar kom je niet uit? Dat is me nog niet helemaal duidelijk. Ook vertel je niet welke software en versie daarvan je gebruikt.

Die vragen stonden, trouwens, al in het formulier dat je weggehaald hebt (for some reason). Dus als je dat nog even kunt vertellen, kunnen we meedenken

Oh ja, zet ook je code nog even tussen de volgende tags, voor de leesbaarheid:

[code=vb]
...
[/code]

[ Voor 11% gewijzigd door Room42 op 18-03-2019 21:00 ]

[Microkid]

Geen idee wat dit in V&A doet, maar hier hoort het in elk geval niet thuis. Tevens voldoet je post niet aan de voorwaarden, zoals hierboven al gemeld.