Automatisch mailen van documenten vanuit een overzicht

[alexander321]

Ik heb een lijst waarin de locatie met mailadres staat.
In dezelfde rij staat een X bij het document wat als bijlage moet worden toegevoegd aan een mail aan die locatie.
Een locatie krijgt meerdere documenten, afhankelijk van waar het X staat.
Op het tabblad instellingen staan oa het pad van de documenten alsmede wat gegevens om de mail aan te maken.
Het lukt mij wel om een vast document via vba te mailen, echt niet om meerdere (verschillende) documenten in te voegen.

Wie biedt hulp?
Alvast dank!

 

[JEC.]

Als het om xlsx bestanden gaat:

Sub jec()
 Dim ar, fPath, i As Long, j as Long
 ar = Blad1.Cells(3, 1).CurrentRegion
 fPath = Blad2.Cells(2, 2)
 
 For i = 4 To UBound(ar)
    With CreateObject("outlook.application").createitem(0)
      .To = ar(i, 5)
      .cc = Blad2.Cells(4, 2).Value
      .Subject = Blad2.Cells(5, 2).Value
      .body = Blad2.Cells(6, 2).Value
       For j = 8 To UBound(ar, 2)
         If ar(i, j) = "X" Then .Attachment.Add fPath & ar(1, j) & ".xlsx"
       Next
      .display  '.send
    End With
 Next
End Sub

 

[alexander321]

Hi JEC,

Ik moest wel even de juiste rij er in zetten

If ar(i, j) = "X" Then .Attachment.Add fPath & ar(1, j) & ".xlsx"

naar

If ar(i, j) = "X" Then .Attachment.Add fPath & ar(3, j) & ".xlsx"

Helaas krijg ik (ik gebruik Office365) deze foutmelding:





Wellicht heb je daar oom de oplossing voor?

 

[JEC.]

Sorry had niet getest. Het moet .Attachments.Add zijn

 

[alexander321]

Nu doet hij het wel!
Top.
Dank!