Bu dosya, Excel sayfasına yazılan alıcı adresi, konu ve gövde metnini kullanarak Outlook üzerinden e-posta gönderir. Birden fazla Outlook hesabı tanımlıysa gönderimin hangi hesapla yapılacağı makro kodunda hesap numarasıyla seçilir.
Dosyanın içeriği
- Sheet1: "To / Kime :", "Subject / Konu :" ve "Body / Gövde Metni :" etiketleri hazır olarak gelir. Alıcı adresi E2, konu E3, gövde metni E4 hücresine girilir.
- Module1: İki makro içerir: tanimlimailadreslerinizinnumaralari ve mail_gonder.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar yalnızca Outlook ile bağlantı kurar; dosya silme veya dışarıya bağlantı gibi bir işlem yapmaz.- tanimlimailadreslerinizinnumaralari: Outlook'ta tanımlı hesapları sırayla dolaşır ve her hesap için "bu hesabın numarası" bilgisini mesaj kutusunda gösterir.
- mail_gonder: Yeni bir Outlook e-postası oluşturur. Alıcıyı E2, konuyu E3, gövde metnini E4 hücresinden alır; CC ve BCC alanları boş bırakılır. Gönderen hesap, kodda Accounts.Item(3) ile belirtilen numaradır. Posta önce görüntülenir, ardından gönderilir.
Nasıl kullanılır
- Dosyayı açıp makroları etkinleştirin.
- VBA düzenleyicisinde (Alt+F11) Araçlar > Başvurular bölümünden Outlook kitaplığını ekleyin.
- tanimlimailadreslerinizinnumaralari makrosunu çalıştırıp kullanmak istediğiniz hesabın numarasını öğrenin.
- mail_gonder makrosunda Accounts.Item(3) ifadesindeki numarayı bu hesabın numarasıyla değiştirin.
- E2, E3 ve E4 hücrelerine alıcı adresini, konuyu ve gövde metnini yazın.
- mail_gonder makrosunu çalıştırın.