JPG Uzantılı Fotoğrafı E-Posta Gövdesinde Gönderme

Bu dosya, Excel'de girilen klasör yolu ve resim adına göre bir JPG fotoğrafı Outlook e-postasının gövdesine yerleştirir ve postayı gönderir. Fotoğraf ek olarak değil, mail metninin bulunduğu alanda görüntülenir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: B2:I11 aralığında e-posta bilgilerinin girildiği form bulunur. Değerler D sütununa yazılır.
• D2: Resmin bulunduğu klasör yolu (örnekte C:\Users\admin\Pictures\).
• D3: Resim adı, uzantısız yazılır (örnekte test).
• D4, D5, D6: Sırasıyla Kime / To, Bilgi / CC ve Gizli / BCC alanları.
• D7: Konu / Subject alanı.

Makrolar​

Dosyada Module1 içinde tek bir makro vardır: mail_gonder.

• Outlook uygulamasını başlatır ve yeni bir e-posta öğesi oluşturur.
• D2 ve D3 hücrelerindeki klasör yolu ile resim adını birleştirip sonuna ".jpg" ekler; bu yolu HTML gövdesinde bir img etiketi olarak kullanır.
• Alıcı, CC, BCC ve konu bilgilerini D4:D7 hücrelerinden alır.
• Postayı yüksek önem derecesiyle kaydeder, ekranda gösterir ve gönderir.
• İşlem bitince kullanıcı adınızla birlikte "Mail başarıyla gönderilmiştir." mesajını gösterir.

Makroda On Error Resume Next kullanıldığı için bir hata oluşursa makro sessizce devam eder; bu durumda başarı mesajı yine de görüntülenebilir. Kodda dosya silme veya dışarıya veri aktaran bir işlem yoktur; yalnızca Outlook üzerinden e-posta gönderilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. D2 hücresine resmin bulunduğu klasör yolunu, sonunda ters bölü işareti olacak şekilde yazın.
3. D3 hücresine resmin adını uzantısız yazın; dosyanın uzantısı JPG olmalıdır.
4. Kime, CC, BCC ve Konu alanlarını doldurun.
5. Sayfadaki butona basarak mail_gonder makrosunu çalıştırın.
6. Bilgisayarda Outlook kurulu ve oturumu açık olmalıdır; e-posta, resim gövdede görünecek şekilde alıcıya gönderilir.