Outlook 2007 için hızlı cevaplama macrosu

Geçen gün Nod32 destek departmanındaki arkadaşların genel olarak aynı vermeleri gereken mail'ları hızlı bir şekilde yanıtlamak için bir yöntem araştırıyorlardı. Bende kendilerine bu konuda yardım edebileceğimi düşünerek onlara bir Outlook 2007 macrosu hazırladım (aslında bu kodu Outlook 2007 için yazmama karşın Outlook 2003 de de kullanılabiliyor).

Macro genel olarak 2 kısma ayrılıyor. İlk kısım bir frmOtoReply adlı bir userform ve görünümü aşağıdaki şekilde

Çalışma mantığı çok basit. Form ilk çalıştığında aşağıdaki kod çalışarak folderID değişkeninde belirtilen dizindeki (ki bu dizini bir public folder yaparak herkezin ortak erişimini sağlayabilirsiniz) postaları okuyor ve cmbBaslik isimli combobox'a yüklüyor.


'Dizindeki tüm mesajların başlıklarını combobox'a yükle
For msgno = 1 To dizin.Items.Count
cmbBaslik.AddItem (dizin.Items.Item(msgno).Subject)
Next


Buradaki folderID aslından exchange'deki her folder'ın sahip olduğu bir tekil numara (uniqid). Bu numara fedef dizin Outlook'dan seçildikten sonra form'u çalıştırıp Ekle düğmesine sağ tıklanarak elde edilebilir. Ben bunu yapan aşağıdaki kodu btnEkle düğmesinin MouseDown event'ine ekledim.


'Eğer Ekle düğmesine sağ tıklanırsa seçili dizinin FolderID 'sini textbox'a yaz
If Button = olMouseButtonRight Then
cmbBaslik.Text = ActiveExplorer.CurrentFolder.EntryID
Exit Sub
End If

Ve en sonunda Ekle düğmesine yazılan aşağıdaki kod sayesinde seçilen postanın içeriği açılan postanın başına eklenir, fakat bu ekleme yapılmadan ActiveInspector.CurrentItem item'ının BodyFormat property'si sayesinde önce postanın içeriğinin HTML olup olmadığı kontrol edilir ve içerik HTML ise eklenecek postanın HTML kodu, değilse düz yazı kodu eklenir.


'Eğer aktif email HTML ise HTML olarak diğer formatlarda ise Plain text olarak yazıyı ekle
If ActiveInspector.CurrentItem.BodyFormat = olFormatHTML Then
ActiveInspector.CurrentItem.HTMLBody = _
dizin.Items.Item(cmbBaslik.ListIndex _
+ 1.HTMLBody & ActiveInspector.CurrentItem.HTMLBody

Else

ActiveInspector.CurrentItem.Body = _
dizin.Items.Item(cmbBaslik.ListIndex + 1).Body & _
ActiveInspector.CurrentItem.Body

End If

Bu formun kodunu ve formun kendisini aşağıdaki linklerden indirebilirsiniz.

Kod:
http://rapidshare.com/files/39623797/frmOtoReply_kod.txt.html
Form:

http://rapidshare.com/files/39623944/frmOtoReply.rar.html

Son olarak kodun ikinci kısmı ise bu formu çağıran çok basit bir yordamdan oluşuyor. Bu kodu da Outlook'u içinde bir macro'ya yazarak çalıştırabilirsiniz.

Sub otocvp()

frmOtoReply.Show

End Sub

Acronis artık NetSoft'da

26-6 da BT haber için hazırladığım Acronis haberi....

On yıla yakın bir süredir müşterilerine yedekleme ve felaketten kurtarma konularında proje yapan ve danışmanlık hizmeti sağlayan NetSoft Bilgisayar sistemleri, müşterilerine sunduğu çözümleri arttırmak ve son zamanların yükselen yedekleme trendi olan Disk İmajlama sistemini portföyüne katmak için bu konuda sektör lideri olan Acronis firmasının Türkiye dağıtıcılığını almıştır.

Yedekleme piyasasını yakından takip edenlerin de iyi bildiği gibi Acronis True Image uzun zamandır disk-temelli imaj yedekleme konusunda liderliğini sürdürmektedir. Bunun nedenlerinin en başında basit ve kullanıcı dostu arabirim, donanım bağımsız geri dönebilme yeteneği (örneğin Raid 5 diskli bir sunucudan aldığınızı imajın tek ide diskli bir makinaya dönülebilmesi) özellikle öne çıkmaktadır.

KOBİ’ler için tam koruma
Acronis True Image ailesi içinde bulundurduğu True Image Server ve True Image Workstation bileşenleri ise özellikle Kobi’lerin tüm verinin yedeklemesi ve ihtiyaç anında çok hızlı bir şekilde geri dönülmesi için ideal bir araç niteliğinde. Acronis tüm sunucu ve son kullanıcı verilerinizi, bunlar üstündeki ayarlarınızı, kurulmuş uygulamalarınızı, veritabanlarınızı ve kullanıcı ayarlarını hızlı bir şekilde ve tam bir paket halinde yedekliyor, diğer bir değişle makinanızın sizin yedek aldığınız andaki tam bir “fotoğrafını çekiyor” daha sonrada ihtiyacınız olduğu anda bütün bunları dakikalar içinde geri döndürerek çalışmalarınıza kaldığınız yerden devam edebilmenizi sağlıyor.

Acronis True Image yedekleme ortamı olarak DAS, SAN, NAS, RAID, tapeler, ağ sürücüleri, FTP/SFTP, USB ve FireWire depolama aygıtları, CDler, DVDler, ve takıp-çıkarılabilir sürücüler gibi geniş bir yelpazede yedekleme ortamı desteği sağlıyor. Böylece hem dosya sunucunuz üstündeki boş yere yedek alabilme gibi elinizdeki yatırımları koruyarak hemde SAN, Tape sürücü gibi daha kurumsal yedekleme opsiyonlarına destek vererek firmanızın büyümesinede ayak uydurabiliyor.

Her koşulda iş devamlığı
Imaj yedekleme sistemlerindeki en büyük sorunlardan biri donanımızın arızalandığı zaman yerine koyduğunuz yeni donanımın eskisi ile aynı olmamasıdır. Böyle durumlarda sorun, imajın hiç dönülememesi yada dönülse bile sistemin düzgün şekilde başlatılamamasıdır. Windows sistemlerinde bunun başlıca nedeni HAL olarakta bilinen ve windows’un farklı donanımlarda çalışmasını sağlayan Donanım Soyutlama katmanının ve depolama sistemi sürücülerinizin (Mass Storage Drivers) yedeği döndüğünüz sistemle uyuşmamasıdır. Acronis True Image bu aşamada Universal Restore Opsiyonunu sayesinde sisteminizin farklı bir donanıma dönülmesi sırasında bu iki hayati bileşenin değiştirilebilmesine olanak sağlayarak her türlü donanıma geri dönmenizi sağlamaktadır.

Secure Zone - Mobil Kullanıcıl için hayat kurtarıcı
Acronis True Image’in en dikkat çekici özelliklerinden birisi Acronis Secure Zone. Acronis Secure Zone disk’inizin bir bölümü üstünde şifrelenmiş ve gizlenmiş bir alan yaratarak özellikle ofisten uzakta çalışmak zorunda kalan dizüstü kullanıcıları için güvenli ve hızlı bir yedekleme ve kurtarma opsiyonu sağlamaktadır. Böylece BT yöneticilerinin kabusu durumundaki ofis dışındaki bir kullanıcının dizüstü bilgisayarındaki işletim sistemi çökmesi yada çok önemli bir sunumun yanlışlıkla silinmesi gibi ciddi sorunlar karşısında artık çok güçlü ve etkin bir seçenekleri var. Acronis True Image ayrıca “kullanıcı sisteme giriş yaptığı anda” çalışacak şekilde ayarlanarak mobil kullanıcıların ofise geldikleri anda otomatik olarak yedeklerini almakta ve bu kullanıcılar için ek bir güvenlik sağlayabilmektedir.

Felaketten Kurtarma ve İş Devamlılığı Sunumu

İki hafta önce çalıştığım firma olan NetSoft için, Serkan arkadaşımında yardımı ile Acronis ve Double-Take ile Felaketten Kurtarma ve İş Sürekliliği Semineri verdim.

Seminere yaklaşık 20 bayii katıldı. Herkes konuyla bir hayli ilgiliydi ve hepsi uzun uğraşlar sonucunda hazırlamış olduğum prezantasyonu beğendiler. Sonuç olarak bende bu sunumu blog'uma koymayı uygun buldum. Sunumu aşağıdaki link'den indirebilirsiniz.


http://rapidshare.com/files/37986431/BCP.rar


Tabii bu sunumu izlemek için makinanızda Powerpoint 2007'nin tam sürümü olmalı. Fakat eğer makinanızda bu program yoksa http://www.microsoft.com/downloads/details.aspx?familyid=048dc840-14e1-467d-8dca-19d2a8fd7485&displaylang=en linkinden PowerPoint Viewer 2007 'yi indirebilirsiniz.

Eğer genede dosyayı açmakla ilgisi sorun yaşıyor iseniz Powerpoint 2003 versiyonunu aşağıdaki link'den indirebilirsiniz.

http://rapidshare.com/files/38100245/BCP.rar.html

Tabiiki Felaketten kurtarma ve İş devamlılığı konuları 1-2 saatlik bir sunuma sığmayacak kadar kapsamlı ve önemli bir konu. Fakat aslında benim burada yapmaya çalıştığım bu konularla ilgili bir farkındalık yaratmak ve üstünde çokta fazla düşünülmeyen bu konulara biraz dikkat çekmekti.

Sunum yarı teknik ve yarı satış ağırlıklıydı, çünkü sonuç olarak buraya katılanlar bizim bayilerimizdi ve tabiiki onların satış konusunda ellerini güçlendirmek bizim için önemliydi. Bunun yanında müşterilere gittikleri zaman teknik olarak yeterli olmalarını sağlamak için de onlara hem Acronis hem de Double-Take hakkında, teknik sunumum yanında küçük bir ofise yetecek kadar sistem içeren gerçek zamanlı demolar yaptık.


Acronis tarafında Universal Restore opsiyonu yüklü bir True Image Server 9.1 ile 3 diskli Raid 5 bir HP sunucu üzerinden alınan disk imajı normal IDE disk içeren bir PC ye dönülerek Acronis'in bu konudaki başarısı birde bu kişilerin gözlerinin önünde kanıtlamış oldu.


Double-Take demosunda ise katılımcılara bir Exchange sunucunun Double-Take ile nasıl korunulabileceği ve felaket anında DT'in onları böylesi bir baş ağrısından nasıl koruyabileceği gösterildi.


Sunum yaklaşık 5 saat sürdü fakat bu bile böylesi kapsamlı bir konu için yeterince uzun değildi.

Sanırım bir sonraki sunumu biraz daha uzun tutmam gerekecek...

Merhaba

Merhaba dünya...

Uzun süredir yapmayı düşündüğüm blog sitesini nihayet hayata geçirmeyi başardım. Aslında bu kadar kolayca yapılabilen bir şeyi neden bu kadar uzun süre hayata geçirmediğimin kesin bir açıklaması yok.

Bu blog kişisel bazı konular içerse de ağırlıklı olarak iş deneyimlerimi paylaşmak için bir platform olması için kurulmuştur.

En kısa zamanda görüşmek üzere...