Excel VBA ile e-posta göndermek için aşağıdaki adımları takip edebilirsiniz:
Excel dosyanızda, gerekli verileri içeren bir çalışma sayfası oluşturun ve makro adımlarını yerine getirecek bir modül ekleyin.
Modülde, e-postayı göndereceğiniz kişinin e-posta adresini belirlemek için bir değişken oluşturun.
VB
Dim email As String
email = “ornek@mail.com”
Daha sonra, e-posta konusunu belirlemek için bir başka değişken oluşturun.
VB
Dim subject As String
subject = “Test E-posta Konusu”
Şimdi, e-posta gövdesini oluşturmak için bir metin dizisi değişkeni oluşturun.
VB
Dim body As String
body = “Bu bir test e-postasıdır.”
E-posta göndermek için, Outlook nesnesini kullanarak bir e-posta oluşturun.
VB
Dim olApp As Object
Dim olMail As Object
Set olApp = CreateObject(“Outlook.Application”)
Set olMail = olApp.CreateItem(0)
With olMail
.To = email
.Subject = subject
.Body = body
.Send
End With
Set olMail = Nothing
Set olApp = Nothing
Bu kod, Outlook uygulamasını açacak, bir e-posta oluşturacak ve belirtilen alıcı, konu ve gövde bilgileri ile gönderilecektir. .Send yöntemi, e-postanın otomatik olarak gönderilmesini sağlar.
Son olarak, kodunuzu bir düğme veya komut tetikleyicisi ile bağlayın, böylece çalıştırmak istediğinizde sadece tıklamanız yeterli olur.
Yukarıdaki kod, VBA’nın varsayılan e-posta istemcisine bağımlıdır ve yalnızca Outlook yüklü olan bilgisayarlarda çalışır. Farklı bir e-posta istemcisi kullanıyorsanız, gönderme yöntemi ve kodunuzda değişiklikler yapmanız gerekebilir.
Ayrıca, e-posta göndermek için Outlook yerine SMTP sunucusu kullanarak bir kod da yazabilirsiniz. Bu durumda, CreateObject yöntemi yerine, NewMail yöntemi kullanılır ve SMTP sunucu ayarları belirtilir.