zoeken pdf bestand op deel van naam

[Cruimel]

Hallo forum bezoekers,

Een uitdaging, deels excel-pdf.
Een macro om vanuit excel een email te sturen werkt. Maar ik wil de macro uitbreiden door het meesturen van een pdf bestand.
De plaats van het pdf bestand is bekend. Alleen bevat de plaats allemaal in win zip ingepakte pdf bestanden.
De macro moet in alle ingepakte pdf bestanden zoeken op een uniek deel van de bestandsnaam en deze toevoegen aan de te versturen email.
Via commando: (?)
.Attachments.Add ("C:\test.pdf")

Een deel van de zoekfunctie om het pdf bestand te vinden staat in een kolom regel in excel, te weten "B" (variabele rij) via commando: Cells(cell.Row, "B") opgelost.

Zien jullie hier mogelijkheden in? Heb al behoorlijk gezocht op het forum maar kom niet bij de variant die me dichterbij de oplossing brengt.

Dank alvast,
Cruimel

 

[evertVB]

Met de InStr functie kun je testen of jouw gewenste deel van de bestandsnaam in de gehele bestandsnaam zit.

 

[Cruimel]

Hallo Evert,

Ben druk aan het zoeken geweest op de verstuurde link.
Ik kom redelijk ver, maar de macro heeft als resultaat dat hij de email alsnog verstuurd zonder bijgevoegde attachments.
Code:

.Attachments.Add sPDFPath & "C:\Users\desktop\documents\My eBooks\" & "*" & (Range(Cells(cell.Row, "B").Value)) & "*"

Wat zie ik hier over het hoofd?

Hoor het graag

 

[Cruimel]

Hallo forumleden,

Is er iemand die het stukje code voor mij wil nalopen en kijken wat ik hier over het hoofd zie? De opdracht moet het PDF bestand opzoeken waar een deel van de naam bekend is. Mijn macro blijft de mail echter versturen zonder bijlage. Getest is met een bestaand pdf file op de gedefinieerde plaats.
Mijn dank is groot.
Cruimel

Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim strbody As String
Dim Factuurnummer As String
Dim Gezochtbestand As String
Dim MijnBestand As String
For Each cell In Range("L1:L10")
strbody = strbody & cell.Value & vbNewLine
Factuurnummer = Cells(cell.Row, "B").Value
Gezochtbestand = "*" & Factuurnummer & "*.pdf"
MijnBestand = Dir("C:\Users\deskop\Documents\My eBooks\" & Gezochtbestand)
Next
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")

On Error GoTo cleanup
For Each cell In Columns("F").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "G").Value) = "ja" _
And LCase(Cells(cell.Row, "H").Value) <> "mail verstuurd" Then

Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Klantnummer: " & Cells(cell.Row, "A") & "-factuurnr.: " & Cells(cell.Row, "B").Value
.Body = "Geachte meneer/mevrouw " & Cells(cell.Row, "C").Value & strbody
If Gezochtbestand <> MijnBestand Then
.Attachments.Add Gezochtbestand
.Send
Else
MsgBox "mail zonder bestand verstuurd"
End If
End With
On Error GoTo 0
Cells(cell.Row, "H").Value = "mail verstuurd"
Set OutMail = Nothing
End If

Next cell

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub

 

[Cruimel]

Hallo forumleden,

Heeft iemand nog een zetje in de juiste richting?

Cruimel