Nieuwe email met keuze uit afbeeldingen/map mbv vba

[juniorgebruiker]

Beste Lezer,

Voor het verzenden van een email met bijlage zijn er veel vba codes te vinden. Toch kan ik geen juiste code vinden waarmee ik meerdere foto's uit een specifiek map kan sturen. Liefst door zelf de foto's te selecteren (meerdere). dus het gaat om hoofdmap "Z:/" en vervolgens de specifieke map uit Cel A1 waarvandaan ik de foto's wil selecteren. Ik zie wel voorbeelden met FileSearch maar dit werkt niet met 2010.

tot nu toe:

Private Sub CommandButton1_Click()

With CreateObject("Outlook.Application").CreateItem(0)
    .cc = "test@mail.nl"
    .Subject = "ontwerpfoto" & " " & [E28]
    .Body = "Geachte heer/mevrouw,"
    .Attachments.Add 'en dan zou hier dus iets van afbeelding toevoegen moeten komen als: Application.GetOpenFilename("Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP")
    .Display
End With

End Sub

iemand een idee?

Dank!

 

[HSV]

Test het maar eens.

Private Sub CommandButton1_Click()
 With Application.FileDialog(msoFileDialogFilePicker)
    .Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.BMP", 1
    .InitialFileName = "Z:\" & [A1]
    .AllowMultiSelect = True
    .FilterIndex = 1
    .Show
       For j = 1 To .SelectedItems.Count
         c00 = c00 & "; " & .SelectedItems(j)
       Next j
  End With
 With CreateObject("Outlook.Application").CreateItem(0)
    .cc = "[EMAIL="test@mail.nl"]test@mail.nl[/EMAIL]"
    .Subject = "ontwerpfoto" & " " & [E28]
    .Body = "Geachte heer/mevrouw,"
      For Each fl In Split(Mid(c00, 3), "; ")
    .Attachments.Add fl 'en dan zou hier dus iets van afbeelding toevoegen moeten komen als: Application.GetOpenFilename("Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP")
      Next fl
    .Display
 End With
End Sub

 

[juniorgebruiker]

Perfect, dank u