invullen aanvullende informatie naar email en toekennen opleiding op naam

[Ray88]

hij verstuurd niets en als ik dan de code gebruik geeft hij in het geen volgende tekst
.attachments.Add "C:\Users\r.zwart\OneDrive - Action\Desktop\BHV folder\test map/bijlagenaam.pdf"

Vermoedelijk omdat ik hier een toewijzing van pdf moet doen maar de pdf is afhankelijk van de trainingen die vermeld staan in het registratieformulier

 

[edmoor]

Dan zet je er toch de juiste naam voor in de plaats?

 

[Ray88]

ja dat klopt maar de naam is dus afhankelijk van de trainingen die gegeven worden, het gaar om 6x verschillende traingen met daaraan 6x verschillende pdf bestanden. Hier was ik naar aan het kijken of er een specifieke pdf (bijvoorbeeld portofoon trainingen) meegestuurd kan worden als mensen zich hebben aangemeld voor die training. En hebben ze zich aangemeld voor verbandleer dan de pdf verbandleer meesturen etc etc. Is dit mogelijk??

 

[edmoor]

Uiteraard kan dat.
Maar die PDF's zitten niet in je voorbeeldmap.

 

[Ray88]

als het goed is zitten nu alle pdf bestanden erbij. Voor de rest heb ik de teksten aangepast naar registratieformulier en dan Q1,2,3,4. De pdf zitten in een apparte map zoals je kan zien

 

[HSV]

Staat de map "Bijlage PDF" in dezelfde map als de map "Mappen Trainingen"?

 

[Ray88]

die staat in dezelfde map, in dit geval heet ie test map, hierin zitten de trainingen, pdf en afbeelding

 

[HSV]

1: Zorg dat er een naam is ingevuld.
2: Zorg dat de Pdf bestanden dezelfde naam hebben als in de validatielijst van kolom G (oefeningen verbandleer <> oefening verbandleer).

Sub hsv()
Dim sv, i As Long
With Sheets("BHV registratieformulier Q1")
s0 = Replace(ThisWorkbook.Path, "Mappen Trainingen", "") & "BHV.png"
sv = .Range("a13", .Cells(Rows.Count, 1).End(xlUp)).Resize(, 8).Value2
  For i = 1 To UBound(sv)
    If sv(i, 2) <> "" And sv(i, 8) = "" Then
     sv(i, 8) = "verzonden"
      With Sheets("overzicht trainingen Q1").Cells(Rows.Count, 1).End(xlUp).Offset(1)
         .Resize(, 2) = Array(sv(i, 2), sv(i, 3))
         .Offset(, Application.Match(sv(i, 7), Sheets("overzicht trainingen Q1").Range("a7:g7"), 0) - 1) = sv(i, 1)
      End With
       With CreateObject("Outlook.Application").createitem(0)
          .To = sv(i, 6)
          .Subject = sv(i, 7)
          .body = "Beste " & sv(i, 2) & " " & sv(i, 3) & "," & String(2, vbCrLf) & "Op " & sv(i, 1) & " is er de cursus " & sv(i, 7)
          .htmlbody = "<center><img src=" & Chr(34) & s0 & Chr(34) & " ></center>" & .htmlbody
          .attachments.Add Replace(ThisWorkbook.Path, "\Mappen Trainingen", "\Bijlage PDF\") & sv(i, 7) & ".pdf"
          .display
          '.send
       End With
     End If
    Next i
 .Range("a13", .Cells(Rows.Count, 1).End(xlUp)).Resize(, 8).Value2 = sv
End With
End Sub

 

[Ray88]

afbeelding heb ik even iets aangepast, maar krijg een download error bij de bijlage. Ben jullie heel erg dankbaar hiervoor, moet nodig mijn kennis gaan bijschaven

 

[HSV]

Wat komt eruit:

msgbox Replace(ThisWorkbook.Path, "\Mappen Trainingen", "\Bijlage PDF\") & sv(i, 7) & ".pdf"

 

[Ray88]

 

[HSV]

Die %20 komt door de spaties bij Onedrive.

Ga maar werken zonder spaties in je bestandsnamen.
Dus geen: Mappen Trainingen maar TrainingsMap of iets dergelijks.
Of met een underscore Mappen_Trainingen.

 

[Ray88]

zo te merken moet ik alles even met een underscore etc. heb nu de mappen hernoemt en geeft het nu op de namen van de trainingen

 

[HSV]

Dat kan wel kloppen, die ook aanpassen dus incl. de macro.

 

[Ray88]

daar ga ik even over denken wat de beste optie is, kan ik ook nog de tekst aanpassen die verzonden wordt, bijvoorbeeld lettertype, grote en eventuele aanvulling

 

[edmoor]

Dat kan, maar dan zal je je naast het bijschaven van Excel en VBA kennis ook in HTML moeten verdiepen en het gebruik ervan in het Outlook object.

 

[HSV]

Eerst maar het ene, dan het andere dacht ik zo.