MS Outlook ile Otomatik E-posta Yazalım! [Makro]

Korkmayın öyle sayfalar dolusu satır satır kod yazmaktan bahsetmiyorum! İşimizi otomatize hale getirmekten bahsediyorum… Aslında tembellik de diyebiliriz… Gerçi ben bilgisayar uzmanlarına tembel adamlar dediğimde millet alınıyor, “Ona üşengeçlik diyelim” diye çıkışan arkadaşlara da hak vermek lazım!

Neyse anlayacağınız üzere bugün bir işimi otomatik hale getirerek tembellik yapmak istedim.

Hikaye şöyle başlıyor…

Her gün bir müşterime 9-10 defa bazı durumlarda daha fazla rapor veriyorum. Raporlarım genelde kısa raporlar ve her seferinde e-postama…

Merhabalar Özlem Hanım, 

Aşağıdaki gibi dikkatimizi çeken bazı özel durumlarını bilginize sunarım.

[Rapor]

Saygılarımızla

Aynı kişiye o kadar çok bu formatta e-posta atıyorum ki, her seferinde aynı başlığı, e-postayı ve sonraki saygılar ifadesini yazarken insana böyle bir üşengeçlik geliyor ki sormayın… 🙂

Neyse, bugün düşündüm!

Bu rapor içeriği her seferinde değişiyor, buna yapacak bir şey yok. Fakat şu e-posta mesajındaki giriş ve saygılar bölümlerini hiç değiştirmiyorum. Acaba nasıl otomatize hale getirip? Bu cümleleri yazmaktan kurtulabilirim?

Daha önceki yazılarımdan belki takip edenler hatırlayabilir…

Excel üzerinde VB ile sıklıkla makro yazar ve kullanırım! Hatta VB ile yaptığım Excel üzerindeki yazılıma bir göz atmanızı tavsiye ederim! Bunu görenler “Abi bu Excel mi?” diye şaşırıp kalabiliyor 🙂

Gelelim üstteki e-postayı nasıl otomatize hale getireceğimize?

Öncelikle Outlook üzerinde “Geliştirici” menüsünü aktif ediyoruz.

Dosya > Seçenekler > Şeridi Özelleştir > Geliştirici kutusunu işaretleyelim! Ardından da Outlook üzerinde Geliştirici sekmesinin geldiğini görebilirsiniz…

Şimdi sıra, makromuzu yazmaya geldi…

Geliştirici sekmesi üzerinden Visual Basic butonuna basıyoruz ve Visual Basic kod editör karşımıza geliyor. Buraya ihtiyacımız olan kodları yazıyoruz…

Benim ihtiyacım her gün tekrarladığım işleri otomatize bir hale getirmekti!

İhtiyaçlarım;

E-posta adresi, konu başlığı, konu içeriği

Bu üçlüyü otomatik olarak tek bir tuşa bastığım zaman, Outlook yeni mail açsın ve kime kısmını, konu başlığını son olarak da içeriği yazıp e-postaya raporu eklemek için hazır hale getirsin! Ben de raporu yazıp, “Gönder” butonuna basarak bu işi bitireyim…

Rapor içeriği farklı olunca insana böyle bir nahoşluk, istemsizlik, tembellik havası gelmiyor. Çünkü rapor içeriğim her seferinde farklı…

Kod:

Sub MAKROADIMIZ() // 'Makro İsmimiz'
Dim OutApp As Outlook.Application 'Uygulama'
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem) 'Otomatik Yeni E-posta Açsın'

With NewMail 'Otomatik Yeni E-postayı Yazsın'
.To = "[email protected]" 'Otomatik Kime Kısmını Doldursun'
.Subject = "İlk Makrolu E-postamız..." 'Otomatik Konu Başlığını Doldursun'
.Body = "Merhabalar Hamza Bey, ilk makrolu e-postamızı bilginize sunarız. Saygılarımızla" 'Otomatik İçeriği, Saygıları yazsın'
.Save 'Kayıt'
.Display 'Görüntüleme'
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

Kayıt edip kapattığınızda, artık makro hazır hale geldi! Şimdi Outlook açıkken, “Geliştirici Sekmesi” altından “Makrolar” menüsüne tıklıyoruz. Oluşturduğumuz makronun adına tıklıyoruz.

Artık otomatik olarak “yeni e-posta” açacak, “kime kısmını, konu başlığını dolduracak” aynı zamanda “E-posta gövdesine” saygılarınızı sunup, e-postanızı hazır hale getirmiş olacaksınız…

Not: Makro güvenliğini kapatıp, bu uygulamayı deneyiniz. Microsoft Office yazılımı içerisinde makrolar varsayılan olarak devre dışı bırakılmıştır. Güvenlik merkezinden bu ayarı değiştirebilirsiniz…

Not: Makro virüslerine karşın, makrolarınızı seçenekli bir hale getirin! Hadi kolay gelsin…