Bu bölümde ekleri olan kişiselleştirilmiş e-postaları otomatik olarak oluşturmayı öğreneceğiz.
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
Code language: VB.NET (vbnet)
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.