Excelden Outlook ile mail gönderme...

Resimde ki gibi bir excel dosyası hazırlıyoruz.



(Bugün sütunu ve hatırlatma Tarihi şimdilik kullanılmamaktadır. )


Saat sutününda "=BUGÜN()" formülü kullanılmıştır.Bu satırların onlarca olduğunu düşünün ki takipi zor olabiliyor.

Şuan burada yaptığımız sadece mailin nasıl gönderildiğini göstermek,ancak bunu otomatiğe bağlamak mümkün ve o kodları da ilerleyen zamanlarda paylaşacağım..


Mail gönderme Kodları aşağı daki gibidir.

"""""""""""""""""""""""""""""""""""""""""""""""""""

Sub excelmailOutlook()


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 & _

Cells(2, 2) & vbNewLine & _

Cells(2, 2) & vbNewLine & _

Cells(2, 3) - Cells(2, 2) & _

" gün sonra " & Cells(2, 6)


On Error Resume Next

With OutMail

.To = Cells(2, 4)

.CC = Cells(2, 5)

.BCC = ""

.Subject = "Sevk Tarihi ile ilgili..."

.Body = strbody

.Send

End With

On Error GoTo 0

End Sub


"""""""""""""""""""""""""""""""""""""""""""""""""""


Yukarı daki kodları Modulx üzerine kopyalayın ve excel çalışma sayfanızı hazırladıktan sonra kodu çalıştırın. Aşağı daki gibi bir gönderi oluşturmuş olursunuz.Ve yazılan mail adresine göndermiş olacaksınız.F8 ile yürüttüğünüz de " .To = Cells(2, 4)" kodunda direk olarak program sonlanır ve maili belirttiğiniz adrese gönderir.






Bu programı office2007 de yazmıştım o versiyonda güvenlikle ilgili sıkıntı çıkmıştı,elimde olmadığı için nasıl yapıldığını şuan söyliyemiyorum,böyle bir sorunla karşılaşısanız güven merkezi ayarlarını kurcalıyabilirsiniz.

Ben şuan Office 2016 kullanıyorum ve burada böyle bir sıkıntı yaşamadım.

238 görüntüleme0 yorum

Son Paylaşımlar

Hepsini Gör
  • Instagram
  • Facebook Sosyal Simge
  • Pinterest Sosyal Simge
  • YouTube
Mubertrzon

mubertrzon@mubertrzon.com

Tel: 00000000000

© 2018 mubertrzon

Marmara Üniversitesi
Teknik eğitim fakültesi