Forum
Merhaba,
Özellikle Fotokopi makineden gelen scan dosyaları bir yerlere göndermek için yanıtla veya ielt olayında outlook düz metin yapıyor.
İletiyi yeni pencere açıp html biçim yapma sonra tekrar imza ekleme(imza logolu) uzun iş oluyor.
Ayarlarda devamlı html diye bir seçenek göremedim. Bazı eklentiler var güvenmedim.
VBA bilgim yok bir sistede VB kod buldum kullanayım mı?
Sub
AlwaysReplyInHTML()
Dim
oSelection
As
Outlook.Selection
Dim
oItem
As
Object
'Get the selected item
Select
Case
TypeName(Application.ActiveWindow)
Case
"Explorer"
Set
oSelection = Application.ActiveExplorer.Selection
If
oSelection.Count > 0
Then
Set
oItem = oSelection.Item(1)
Else
MsgBox
"Please select an item first!"
, vbCritical,
"Reply in HTML"
Exit
Sub
End
If
Case
"Inspector"
Set
oItem = Application.ActiveInspector.CurrentItem
Case
Else
MsgBox
"Unsupported Window type."
& vbNewLine &
"Please select or open an item first."
, _
vbCritical,
"Reply in HTML"
Exit
Sub
End
Select
Dim
oMsg
As
Outlook.MailItem
Dim
oMsgReply
As
Outlook.MailItem
Dim
bPlainText
As
Boolean
'Change the message format and reply
If
oItem.
Class
= olMail
Then
Set
oMsg = oItem
If
oMsg.BodyFormat = olFormatPlain
Then
bPlainText =
True
End
If
oMsg.BodyFormat = olFormatHTML
Set
oMsgReply = oMsg.Reply
If
bIsPlainText =
True
Then
oMsg.BodyFormat = olFormatPlain
End
If
oMsg.Close (olSave)
oMsgReply.Display
'Selected item isn't a mail item
Else
MsgBox
"No message item selected. Please select a message first."
, _
vbCritical,
"Reply in HTML"
Exit
Sub
End
If
'Cleanup
Set
oMsgReply =
Nothing
Set
oMsg =
Nothing
Set
oItem =
Nothing
Set
oSelection =
Nothing
End
Sub
Bu kodu kendi bilgisayarımda çalıştırdım iletileri artık otomatik olarak HTML biçimde yanıtlamaya başladı. Kodu txt dosyasına atıp NOD32 taradım sıkıntı olmadı yine emin olmak için siz değerli insanlara sormak istedim.
saygılarımla.
Merhaba
Bir test makineniz yok mu?
Görünürde kodda bir sorun yok.
Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************
Merhaba
Bir test makineniz yok mu?
Görünürde kodda bir sorun yok.
Merhaba Hakan bey,
Ne yazıkki yok bütçe ayırmıyorlar. Halbuki bir tanede yedek pc bulunsun sizlerin pc arızalandığında 2-3gün belkide 1 hafta boş boş beklemeyin yedektekini kullanırsınız desemde anlatamıyorum/anlamıyor/anlamak istemiyorlar vs.... Benimde yoğunluk çok virtualbox ta deneyemedim kendimde çalıştırdım NOD32 çalışır durumda bir sorun olmadı. Kodu muhasebe departmanı pc de çalıştıracağım için tereddüt etmiştim.
Teşekkür ederim.
Sizin adınıza üzüldüm, gerçekten Türkiye de IT işi yapmak zor.
Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************