Makro kullanmadan çalıştığımız dosyayı bütünüyle ilgili kişilere email göndermek için Dosya -> Paylaş -> Email -> Ek olarak gönder butonunu kullanmamız gerekir.
Aşağıdaki makro kodu, bir e-posta göndermek için Excel'in İletişim Kutularını nasıl kullanacağınızı gösterir.
Hata alma ihtimaline karşı ve Outlook üzerinde daha fazla kontrol sahibi olmak için Outlook referans kitaplığını etkinleştirmeniz gerekir.
Sub Calisma_sayfasi_email_gonderme() Dim SayfaAdi As String Dim hucre As Range Application.ScreenUpdating = False For Each hucre In Worksheets("Email").Range("A2:A4") SayfaAdi = hucre.Value ThisWorkbook.Worksheets(SayfaAdi).Copy Application.Dialogs(xlDialogSendMail).Show hucre.Offset(0, 1).Value, hucre.Offset(0, 2).Value ActiveWorkbook.Close False Next hucre Application.ScreenUpdating = True End Sub
Bu makro kodu aşağıdaki tabloyu baz alır. Örneğin A firmasına özel olarak hazırlanmış A_firmasi sayfası, ayrı bir Excel çalışma kitabı olarak emailin ekine eklenir.
Kodu çalıştırdığımız zaman mailler yaratılmış olur ancak mailler otomatik olarak gönderilmez. Burada kullanıcının tek tek Gönder butonuna tıklaması gerekir. Mailleri otomatik göndermek için Microsoft Word kullanarak “mail merge” işlemi yapmak gerekir.
