Fotoğrafları E-Posta Eki Olarak Gönderme

Bu dosya, bilgisayardaki bir klasörde bulunan uzantısı JPG olan tüm fotoğrafları Outlook aracılığıyla e-posta eki olarak göndermek için hazırlanmış makrolu bir çalışma kitabıdır. Klasör yolu, alıcı adresleri ve konu başlığı sayfadaki hücrelerden okunur; ekler klasörden otomatik olarak toplanır.

Dosyanın içeriği​

• Sayfa1: B2:I10 aralığında bir giriş formu bulunur. Form alanları şunlardır: Klasör Yolu (D2), Kime / To (D3), Bilgi / CC (D4), Gizli / BCC (D5) ve Konu / Subject (D6).
• Module1: mail_gonder adlı makroyu içerir.

Dosyada formül bulunmaz; tüm işlem makro ile yürütülür. Örnek olarak klasör yolu alanında F:\Ataturk\ değeri, alıcı alanında ise bir örnek adres girilidir.

Makrolar​

mail_gonder makrosu sırasıyla şunları yapar:

1. D2 hücresindeki klasör yolunu okur ve sonuna ters eğik çizgi ekler.
2. Outlook uygulamasını başlatır ve yeni bir e-posta oluşturur.
3. Alıcı, CC, BCC ve konu bilgilerini D3, D4, D5 ve D6 hücrelerinden alır.
4. Mesaj gövdesine "Mesajınız" başlığı ve dört örnek satır yazar. Bu metin makro kodundaki strbody değişkeninde yer alır ve VBA düzenleyicisinden değiştirilebilir.
5. Klasördeki tüm *.jpg dosyalarını Dir fonksiyonuyla tarar ve her birini ek olarak ekler.
6. E-postayı gönderir ve kullanıcı adıyla birlikte "Mail başarıyla gönderilmiştir." mesajını gösterir.

Makro dosya silme veya dışarıya bağlantı işlemi yapmaz; yalnızca belirtilen klasörü okur ve Outlook üzerinden e-posta gönderir. Kod On Error Resume Next ile çalıştığından hatalar sessizce geçilir; bilgi mesajı gönderim başarısız olsa da görüntülenebilir.

Nasıl kullanılır​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Bilgisayarda Outlook kurulu olmalıdır.

1. D2 hücresine fotoğrafların bulunduğu klasörün yolunu yazın.
2. D3 hücresine alıcı adresini, gerekirse D4 ve D5 hücrelerine CC ve BCC adreslerini girin.
3. D6 hücresine e-postanın konusunu yazın.
4. Mesaj metnini değiştirmek için VBA düzenleyicisinde Module1 içindeki metni düzenleyin.
5. Alt+F8 ile mail_gonder makrosunu seçip çalıştırın.
6. Mail gönderildi mesajı görüntülendiğinde Outlook gönderilmiş öğeleri kontrol edin.

Yalnızca .jpg uzantılı dosyalar eklenir; klasörde başka uzantılı dosyalar varsa dikkate alınmaz.