Create a list of images for email

[Welshgasman]

Well if you want each image in it's own table (and I am puzzled as to why ), then you do need multiple table tags.

[DMT Dave]

Hi June7, this is working exact now, thanks to all, as Minty mentioned, yes I do appear to loose myself where to initiate loops and that's probably why I struggle to get the result without hard coding that's 4 miles long!!!!

and WGM yes i should write down the goal, then write down procedures then tackle the vba

anyhow, this works exact now thank you all

sPath = "T:\DMT Ltd\Cam Images\"sFiles = Dir(sPath & "*.jpg")




    Set myItem = myapp.CreateItem(olMailItem)
    Set OutAccount = myapp.Session.Accounts.Item(1)
    With myItem


Do While sFiles <> ""
    
    strEmailImages = strEmailImages & _
    "<table style='text-align:left;border:3px solid blue;font-family:calibri;border-collapse:collapse;padding:5px'><br>" & _
        "<font color='blue' font face='Times New Roman' size='3'>Image Name:<B> " & Replace(sFiles, ".jpg", "") & "</B></font>" & _
        "<P><IMG border=2 hspace=0 alt='' src='file:" & sPath & sFiles & "' align=baseline></P>" & "<br>" & _
    "</table><br>"
    
    strIntro = "Please find images we have taken:"
    
    strSubj = strSubj & Replace(sFiles, ".jpg", "") & " - "
    
    sFiles = Dir
    
Loop


    .To = ""
    .subject = strSubj
    .HTMLBody = strIntro & "<br>" & strEmailImages
    .Display
End With