Gelen e-postayı düz metne dönüştürmek için görünüm kuralı

4

Hepimiz e-postalarına bir ton önemsiz işaret koymaya karar veren ve okumayı neredeyse imkansız kılan insanlar var. Sahip olmak istediğim, bir e-posta belirli bir kişiden (veya muhtemelen gruptan) gelir gelmez, otomatik olarak html yerine düz metne dönüştürdüğü bir kuraldır. Herhangi bir fikir?

microsoft-outlook email-filter

— aron.duby
kaynak

Bunu sunucuda yapmak daha iyi olurdu, ama bunun her zaman mümkün olmadığını anladım.

— Justin Dearing

4

Ekran hakkında endişeleniyorsanız ve gerçekten dönüştürmeniz gerekmiyorsa, "Düz Metin Olarak Oku" talimatları için buraya bakın. http://support.microsoft.com/kb/831607

— niton
kaynak

Hrm çok daha basit ve orijinal mesajları değiştirmez

— Justin Dearing

bunu bir kuralla kullanmanın ya da bir şekilde onu bir kişiye bağlamanın bir yolu var mı?

— aron.duby

@ aron.duby burada açıklanan yöntem bir kullanıcı için değil, geneldir. VBA yöntemimi kullanın, belki görüntü yüklü iletinin bir kopyasını yalnızca bir kullanıcıya uygulamak için kullanın.

— Justin Dearing

4

Bu sorunu sadece belirli e-postaları almak için bir posta kuralı atayarak "çözdüm" ve "Önemsiz" e taşıdım. Önemsizde, tüm e-postalar düz metne dönüştürülür.

Böylece, önemsiz e-posta klasörümde bu sorunlu e-postaları okudum; bu durum, sorunlu e-postayı yanlışlıkla gözden geçirdiğimde bir dakikalığına "yanıt vermiyor" durumundaki durumdan çok daha iyi.

DÜZENLEME: E-postayı "kaçırmamak" için posta kuralına bir bildirim uyarısı ekledim

— Wes
kaynak

2

VBA ile bir mesajı düzenleyebilirsiniz. MSDN’ye göre _MailItem.BodyFormat özellik olFormatPlain tüm biçimlendirmeleri iptal eder.

VBA'nın Outlook filtreleme kurallarına daha güçlü bir alternatif olarak kullanılmasına ilişkin bu makale sizi doğru yöne yerleştirmelisiniz.

— Justin Dearing
kaynak

0

İstenen VBA'yı içeren bir kural, ItemAdd ve NewMailEx uyarıcılarıyla birlikte burada bulunabilir.

http://www.outlookcode.com/article.aspx?id=62

Sub ConvertToPlain(MyMail As MailItem)
Dim strID As String
Dim objMail As Outlook.MailItem

strID = MyMail.EntryID
Set objMail = Application.Session.GetItemFromID(strID)
objMail.BodyFormat = olFormatPlain
objMail.Save

Set objMail = Nothing
End Sub

ItemAdd ve NewMailEx çözümleri için, böyle bir SenderName veya SenderEmailAddress için test ederek dönüşümü sınırlayabilirsiniz.

If objMail.SenderName = "Mailer, HTML" Then
    objMail.BodyFormat = olFormatPlain
    objMail.Save
End if

SenderName'i bununla bulabilirsiniz. (Bilinmeyen nedenlerden dolayı göndericilerimden birinin SenderEmailAdresi yok.)

Sub Addresses_CurrentItem()

Dim olMail As Object

On Error Resume Next
Set olMail = ActiveInspector.currentItem

If olMail Is Nothing Then
' might be in the explorer window
    If (ActiveExplorer.selection.Count = 1) And _
     (ActiveExplorer.selection.Item(1).Class = olMail) Then
        Set olMail = ActiveExplorer.selection.Item(1)
    End If
End If
On Error GoTo 0

If olMail Is Nothing Then

MsgBox "Problem." & vbCr & vbCr & "Try again " & _
"under one of the following conditions:" & vbCr & _
    "-- You are viewing a single email message." & vbCr & _
    "-- You have only one message selected.", _
vbInformation
Exit Sub
End If

If TypeOf olMail Is MailItem Then

Debug.Print "  Sender    : " & olMail.SenderName   
Debug.Print "  SenderEmailAddress: " & olMail.SenderEmailAddress & vbCr

End If

End Sub

— niton
kaynak