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…

“MS Outlook ile Otomatik E-posta Yazalım! [Makro]” üzerine 5 yorum

  1. Merhaba, faydalı paylaşım için teşekkürler. Ancak benim üşengeçliğim hat safhada ve raporu da excel’den otomatik almak istiyorum. Çünkü raporu süzerek farklı 22 kişiye gönderiyorum!

    ne dersiniz mümkün mü?

    Yanıtla
  2. elinize sağlık. aklıma birşey geldi şimdi… sadece konu kısmına “TKN” yazısını sabitleyip değişmesini engelleyebilir miyiz? yani konu kısmının ilk 3 karakteri sabit gelicek ve devamına konu yazacağız. ama içerik istenildiği gibi değiştirilebilir olacak… nasıl yapabiliriz…

    Yanıtla
  3. Hocam öncelikle elinize sağlık kod çalıştı. Ancak yazı stilini nasıl değiştirebilirim. Birde üstte altta yazsın gibi düzenleme nasıl yapabilirim. Şimdiden teşekkürler. İyi günler.

    Yanıtla
  4. Merhaba,

    Hocam outlookta mail atarken konu yazılmadığı zaman “Bu ileti öğesini konu olmadan mı göndermek istiyorsunuz? diye uyarı veriyor. Mail atarken mailde ek olmadığı zaman da bu tarz bir uyarıyı makro ile verdirtebilir miyiz?

    Yanıtla

Yorum yapın