Outllook 2016 VBA k...
 
Bildirimler
Hepsini Temizle

Outllook 2016 VBA kod ile otomatik yanıt-ilet HTML Biçimde kullanma?  

  RSS
Ömer Yılmaz
(@omeryilmaz)
Üye

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.
Alıntı
Gönderildi : 16/01/2019 13:28
Hakan Uzuner
(@hakanuzuner)
Kıdemli Üye Yönetici

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.
*****************************************************************

CevapAlıntı
Gönderildi : 17/01/2019 16:00
Ömer Yılmaz
(@omeryilmaz)
Üye

[quote user="Hakan UZUNER"]

Merhaba

Bir test makineniz yok mu?

Görünürde kodda bir sorun yok.

[/quote]

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.

CevapAlıntı
Gönderildi : 17/01/2019 16:13
Hakan Uzuner
(@hakanuzuner)
Kıdemli Üye Yönetici

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.
*****************************************************************

CevapAlıntı
Gönderildi : 17/01/2019 16:40
Paylaş: