Yardım Mail Gövdesine Fotoğraf Ekleme

Merhabalar;

Ekteki dosyamda belirli bir aralığı mailin gövdesine ekleyerek istediğim adreslere gönderen bir makrom var. Mailin gövdesine belirlediğim aralık haricinde 4-5 adet de fotoğraf eklemek istiyorum. Fotoğrafların boyutu otomatik belirlenen boyuta gelebilirse çok daha iyi olacak. Ekteki dosyalardan daha iyi anlaşılabilir.

Merhaba aşağıdaki gibi Shape'lere resimleri yükleyerek mail body'e ekleyerek deneyebilirsin.

ActiveSheet.Shapes("Shp_1").Fill.UserPicture "c:\Desktop\Dosyaadı1.JPG"

ActiveSheet.Shapes("Shp_2").Fill.UserPicture "c:\Desktop\Dosyaadı2.JPG"

ActiveSheet.Shapes("Shp_3").Fill.UserPicture "c:\Desktop\Dosyaadı3.JPG"