PDF bestand(en) kiezen voor bijlage mail.

[Andre175]

goedemiddag....

Vanuit een adressenbestand dat ik heb wil ik mails versturen met bijlages.
Het mailen mbv Outlook vanuit Excel is geen probleem.
Er wordt per keer 1 dezelfde mail (incl bijlage(s).) verstuurd naar meerdere ontvangers.


Ik loop vast op het vooraf selecteren van de bijlages.
Mijn bedoeling is om met een klik op een Commandbtn een popup te krijgen van windows-verkenner.
Dan het juiste pdf bestand kiezen (1 of meerdere)
De naam van het gekozen bestand zichtbaar maken in een Listbox.

Ik heb een bestandje toegevoegd met daarin alleen een opzet van het probleem zoals hierboven beschreven.
Ik heb het nu zover dat ik een pad kan kiezen waar de pdf-bestanden staan.
Dit pad wordt dan weergegeven in de Listbox.

Bekijk bijlage BijlageKiezen.xlsb


Voor diegene die het misschien ziet mbv alleen de code....

Function GetFolder() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show = -1 Then sItem = .SelectedItems(1)
    End With
    GetFolder = sItem
    Set fldr = Nothing
End Function

Private Sub Cmd_Bijlage_Click()

    Dim c00 As String
    c00 = GetFolder
'    TbOpslagInstel.Value = c00 & "\"
    Sheets("Data_Mail").Range("c8").Value = c00 & "\"
Application.DisplayAlerts = True

        With Lib_Bijlage
            .ColumnHeads = False
            .List = [Tbl_Bijlage].Value
            .ColumnCount = [Tbl_Bijlage].CurrentRegion.Columns.Count
            .ColumnWidths = "0;250"
        End With

End Sub

Wie kan/wil me ff helpen?

André

 

[OctaFish]

Waarom gebruik je niet de FilePicker optie? Ben je gelijk klaar...

Function GetFile() As String
Dim fldr As FileDialog
Dim sItem As String
Dim varItem As Variant
    Set fldr = Application.FileDialog(msoFileDialogFilePicker)
    With fldr
        .Title = "Select files"
        .AllowMultiSelect = True
        .InitialFileName = .DefaultFilePath
        If .Show = -1 Then
            For Each varItem In .SelectedItems
                If Not sItem = "" Then sItem = sItem & ","
                sItem = sItem & varItem
            Next varItem
            ''sItem = .SelectedItems(1)
        End If
    End With
    GetFile = sItem
    Set fldr = Nothing
End Function

 

[Andre175]

Omdat ik deze functie niet ken.... :d

ff in de functiemodule ertussen geplakt en geprobeerd... krijg foutmelding op .DefaultFilePath
"kan de methode of het gegevenslid niet vinden"

 

[Andre175]

Zo kom ik wel al stap verder...

Function GetFile() As String
Dim fldr As FileDialog
Dim sItem As String
Dim varItem As Variant
    Set fldr = Application.FileDialog(msoFileDialogFilePicker)
    With fldr
        .Title = "Select files"
        .AllowMultiSelect = True
        .InitialFileName = [COLOR="#FF0000"]Application[/COLOR].DefaultFilePath
        If .Show = -1 Then
            For Each varItem In .SelectedItems
                If Not sItem = "" Then sItem = sItem & ","
                sItem = sItem & varItem
            Next varItem
            ''sItem = .SelectedItems(1)
        End If
    End With
    GetFile = sItem
    Set fldr = Nothing
End Function