Yardım Mail Gövdesine Fotoğraf Ekleme

abdullahcakilli

Yeni Üye
Katılım
12 Eki 2020
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
28
Konum
İstanbul
Ad Soyad
Abdullah ÇAKILLI
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.
 

Ekli dosyalar

  • ornekler.7z
    45.9 KB · Görüntüleme: 5

wexplorerx

Yeni Üye
Katılım
9 Tem 2019
Mesajlar
50
En iyi yanıt
2
Puanları
8
Konum
İstanbul
Ad Soyad
Murat Uzun
Office Versiyon
Office 2016
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"
 
Üst Alt