Merhaba borasar,
Konu ile ilgili makro oluşturarak bu durumu gerçekleştirebilirsiniz.
1) Outlook içerisinde boş bir menü alanına sağ tuş tıklayın daha sonra gelen menüden "Araç çubuklarını özelleştir.."e tıklayalım gelen pencerede sağ kısımda "Geliştirici" menüsünü göreceksiniz bunu
işaretleyip "Tamam" diyelim.
2) Üst kısıma yeni bir araç çubuğu gelmiş olması gerekir bu araç çubuğuna tıkladığımız zaman solda "Makro" ibaresini göreceğiz buna tıklayalım ve sonrasında "Makrolar"a Gelen ekranda isim kısmına test yazalım ve
oluştur diyelim karşımıza bir kod ekranı gelecektir bu ekrana aşağıdaki kodu yapıştıralım. Mail adreslerini "test@test.com" olan bölgeye yerleştirebilirsiniz. Bu ekranda sağ üst kısımda kaydet diyelim ve pencereleri
kapatlım.
3) Makro menüsünü eklediğimiz alana tekrar gideceğiz Outlook içerisinde boş bir menü alanına sağ tuş tıklayın daha sonra gelen menüden "Araç çubuklarını özelleştir.."e tıklayalım gelen pencerede sağ alt
kısımda "Yeni sekme" ibaresine tıklayalım yeni bir sekme oluşacaktır. Sol kısımda en üstte bulunan açılır menüden "Popüler komutlar" seçeneği yerine "Makro"ları seçelim ve alt kısıma bizim test olarak oluşturduğumuz
projeyi göreceksiniz onu seçip orta alandaki "Ekle" botununa tıklayın işlem bittiğinde "Tamam" butonuna tıklayalım.
Outlook araç çubuklarına yeni sekme eklenmiş olduğunu göreceksini buna tıkladığınızda içerisinde bizim hazırladığımız proje gelecektir bunada tıkladığınızda yeni boş mail ve CC kısmının istediğiniz mail adresleriyle birlikte geldiğini
göreceksiniz.
Sub test()
Dim myOLItem As Outlook.MailItem
Set myOLItem = Application.CreateItem(olMailItem)
With myOLItem
.Subject = " "
.BodyFormat = olFormatHTML
.Cc = "test@test.com"
.Importance = olImportanceHigh
End With
myOLItem.Display
End Sub
Mehmet Hakan TATLICI
Microsoft Destek Mühendisi - Moderator
