Скачать или смотреть 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