Excel ile Mail Gönderme isimli içerikte, Excel kullanarak otomatik olarak e-posta göndermenizi sağlayan bir Hazır Makro Kodu yer almaktadır.
Hazır Kodlar
VBA:
Sub MailGonder()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Merhaba," & vbNewLine & vbNewLine & _
"Bu mail Excel ile otomatik olarak gönderilmiştir."
On Error Resume Next
With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "Excel'den Mail Gönderme"
.Body = strbody
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End SubAçıklama
Bu kod, Microsoft Outlook kullanarak Excel'den otomatik olarak e-posta göndermenizi sağlar. Outlook.Application nesnesi oluşturulur ve bu nesne üzerinden e-posta gönderimi gerçekleştirilir. Mailin gövdesi strbody değişkeni ile belirlenir ve alıcı adresi .To özelliği ile tanımlanır.Kullanım
- Excel'de VBA Editor (Alt + F11) penceresini açın.
- Bir modül ekleyin ve yukarıdaki kodu yapıştırın.
- Kodda gerekli e-posta adreslerini ve mail içeriğini düzenleyin.
- Kodu çalıştırarak mailinizi gönderin.