Excel VBA ile Mail Atmak
Excel ile mail atmak
Excel ile mail göndermek
Excel ile elektronik posta göndermek.
Excel VBA ortamında aşağıdaki kod ile bir elektronik postayı göndermek mümkündür. Bilgisayarda Microsoft Outlook'un yüklü olması gerekir.
Gerekli Referansların eklenmesi gerekir.
Microsoft Office ya da Microsoft Outlook
Kodlama işleminde önce nesneler tanımlanır.
Ardından Outlook nesnesi metotları aracılığıyla gönderilecek mail adresine Outlook aracılığıyla mail gönderilir.
Sub mail1()
' nesnelerin tanımlanması
' bu nesnelerin kullanılması için Referansların Microsoft Outlook ya da Office eklenmesi
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "deneme 2"
.Body = "excel vba ile deneme 2"
' ayrıca path ile belirtilen diğer bir dosya
' .Attachments.Add ("D:\test.txt")
' .Attachments.Add Application.ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Bir dosya eklemek için
.Attachments.Add ("D:\test.txt")
Kendi dosyasını atmak için:
.Attachments.Add Application.ActiveWorkbook.FullName
Bir alanı göndermek için bir Range nesnesi tanımlanır ve HTMLBody özelliği aracılığıyla veri alanı HTML'e çevrilir. Bunu yapmak için verilerin geçici bir dosya üzerinden HTML sayfaya çevrilmesi gerekmektedir.
Bunu internet üzerinde bulduğum kodlardan kullandım.
.HTMLBody = RangetoHTML(Rng)
RangetoHTML fonksiyonunu Sub'ın altına eklemek gerekir.
NOT: RangetoHTML fonksiyonun kodu Internet üzerinde Ron de Bruin sitesinde ve diğer kaynaklardan bulunabilir.
Faruk Çubukçu - Bilgi Teknolojileri Danışmanlık
www.farukcubukcu.com www.excelakademi.com
