Draaigrafiek sturen als afbeelding in body mail

[Steefpeef]

Hallo,

Per week wil ik een kort overzicht sturen van klachten voor het bedrijf.

Ik heb in het weekoverzicht (geel tabblad) een eenvoudige draaigrafiek in staan.
Deze wil ik als afbeelding mee versturen met andere tabellen. Helaas lukt dit alleen als bijlage.

Via rondebruijn heb ik wat geprobeerd en gespeeld met lokale opslag (zie VBA module 5, '.htmlbody' in voorbeeld), deze doet het soms (gek genoeg), alleen wordt deze macro gebruikt door andere medewerkers en wordt de locatie steeds veranderd.
Iemand een idee hoe ik dit netjes krijg en voor iedereen toegankelijk?

Alvast bedankt.

Bekijk bijlage klachtenregistratie weekoverzicht voor helpmij.xlsm

 

[edmoor]

Doe het eens zo:

   [COLOR="#FF0000"] strbody = strbody & RangetoHTML(rng) & "<br><br><img src=" & Fname & ">"[/COLOR]
    On Error Resume Next
    With OutMail
        .to = "mailadres 1"
        .CC = "mailadres 2"
        .BCC = ""
        .Subject = "Weekoverzicht"
        .HTMLBody = [COLOR="#FF0000"]strbody[/COLOR]
        .Attachments.Add Fname
        .Display   'or use .Display
    End With

 

[Steefpeef]

Hier krijg ik een foutmelding in de mail:
Fout! Bestandsnaam niet opgegeven.

 

[Steefpeef]

Excuus hij doet het toch.

Had de nieuwe regel op de verkeerde plek geplaatst.
NU doet hij het wel naar behoren, waarvoor dank!