Mesajı açmadan e-posta başlığını görüntüleyin

1

Önce mesajı açmadan, bir klasördeki mesaj listesindeki e-posta başlıklarını görüntülemek istiyorum.

Mümkün mü?

microsoft-outlook

— Andy Joiner
kaynak

Peki aklında ne vardı? Bunu, Outlook'ta, iletiyi açmaktan başka bir noktada mı yapmanız gerekiyor? Bu hangi seçeneği bırakıyor?

— user193661

Hangi belirli başlıkları görmek istersiniz?

— thims

Bu durumda, kaynak posta sunucusunu kontrol etmek istedim. Geçmişte, açmadan önce spam ipuçlarını kontrol etmek istedim. Sadece posta başlığına ulaşmak için çok fazla tıklama var.

— Andy Joiner

4

Düğmeyi kişisel olarak Outlook Hızlı Erişim Araç Çubuğuna (QAT) koydum. Bunu yapmak için, Outlook penceresinin sol üst köşesindeki açılır menüyü tıklayın ve "Diğer Komutlar ..." ı seçin. "Hızlı Erişim Araç Çubuğunu Özelleştir" iletişim kutusunda "" listesinden "Tüm Komutlar" ı seçin ve Ekle & gt; & gt; sağ listedeki "Mesaj Seçenekleri ..." düğmesini tıklayın. Tamam'ı tıkla, oradasın.

Şimdi listeden istenen mesajı seçebilir ve "İnternet Başlıkları" nı göstermek için QAT üzerindeki bu yeni butona tıklayabilirsiniz.

— thims
kaynak

2

Seçili olan postanın başlığını görüntülemek için aşağıdaki VBA makrosunu çağırmak için bir düğme tanımlayın:

Public Sub mailHeaderView()
    Dim exp As Explorer
    Dim sel As Selection
    Dim please As String
    Dim s As String
    Dim mi As Outlook.mailItem
    Dim TransportMessageHeadersSchema As String

    ' https://social.msdn.microsoft.com/Forums/vstudio/en-US/e9342b09-02ba-441f-a824-5186bd9835a9/mailitemread-event?forum=outlookdev
    TransportMessageHeadersSchema = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"

    Set exp = Application.ActiveExplorer

    If exp Is Nothing Then
      MsgBox "No Explorer!"
    Else
      Set sel = exp.Selection

      please = " Please select one Mail!"
      If sel Is Nothing Then
        MsgBox "No Selection!" & please
      ElseIf sel.count > 1 Then
        MsgBox "Multiple selection!" & please
      ElseIf sel.count < 1 Then
        MsgBox "No Selection!" & please
      ElseIf sel.item(1).Class <> olMail Then
        MsgBox "No Mail selected!" & please
      Else
        Set mi = sel.item(1)

        If mi Is Nothing Then
          MsgBox "No mail selected!"
        Else
            s = mi.PropertyAccessor.GetProperty(TransportMessageHeadersSchema)

            MsgBox s, vbInformation, "Mail Header"
        End If
      End If
    End If
End Sub

Benzer bir makro tanımlanmıştır İşte . Bir açmak yerine MsgBoxposta başlığı metin editörü ya da web tarayıcısı üzerinden posta ya da metin dosyası olarak gösterilebilir.

— Axel Kemper
kaynak