Results 1 to 8 of 8
  1. #1
    cpsr
    Guest

    Viewing link details

    When I view HTML messages in the preview pane, holding my mouse over a link displays the URL info in the bottom left of my screen. But... when I read the same mail message as a 'proper' (opened) email, that URL info isn't displayed anywhere. How can I see where I am about to click through to?

    Thanks!
    CR.

  2. #2
    Platinum Lounger
    Join Date
    Jan 2001
    Location
    Roanoke area, Virginia, USA
    Posts
    3,729
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Viewing link details

    sorry, no.

    it's missing completely from the next version BTW, unless it magically made it back in at the very end. (it RTMd today so i doubt it)

  3. #3
    cpsr
    Guest

    Re: Viewing link details

    Thanks Mary. I feel a bit exposed when clicking through to a location I'm not completely sure of (but never from Woody's newsletters!). I guess the preview pane wins the day. Ta, CR.

  4. #4
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    A Link Lister (VBA)

    I have this problem too, and you have inspired me. Behold, the LinkLister Subprocedure:<pre>
    Sub LinkLister()
    Set myOlApp = GetObject(, "outlook.application")
    If myOlApp.ActiveInspector.EditorType <> olEditorHTML Then
    MsgBox "Not an HTML message."
    Set myOlApp = Nothing
    Exit Sub
    End If
    Set myMailItem = myOlApp.ActiveInspector.CurrentItem
    Dim strCodeArray() As String
    strCodeArray = Split(myMailItem.HTMLBody, "<a href=", , vbTextCompare)

    If UBound(strCodeArray()) = 0 Then
    MsgBox "No links found."
    Set myMailItem = Nothing
    Set myOlApp = Nothing
    Exit Sub
    End If
    Dim strNoteBody As String, intCount As Integer, intFirstGT
    Dim myNote As NoteItem
    Set myNote = CreateItem(olNoteItem)
    myNote.Width = 600
    myNote.Height = 500
    strNoteBody = "Links in -> " & myMailItem.Subject & vbCrLf & "(From -> "
    strNoteBody = strNoteBody & myMailItem.SenderName & " - at - "
    strNoteBody = strNoteBody & myMailItem.SentOn & ")"
    Set myMailItem = Nothing
    For intCount = 1 To UBound(strCodeArray())
    strCodeArray(intCount) = Replace(strCodeArray(intCount), vbCrLf, " ")
    intFirstGT = InStr(1, strCodeArray(intCount), ">")
    strNoteBody = strNoteBody & vbCrLf & vbCrLf & _
    "Desc: " & Mid(strCodeArray(intCount), _
    intFirstGT + 1, InStr(1, strCodeArray(intCount), "</a>", _
    vbTextCompare) - (intFirstGT + 1)) & vbCrLf
    strNoteBody = strNoteBody & "URL: " & Mid(strCodeArray(intCount), 2, _
    intFirstGT - 3)
    Next
    While InStr(1, strNoteBody, " ")
    strNoteBody = Replace(strNoteBody, " ", " ")
    Wend
    myNote.Body = strNoteBody
    myNote.Display
    myNote.Top = 50
    Set myNote = Nothing
    Set myOlApp = Nothing
    End Sub
    </pre>

    Quick and easy, but it does lead to an accumulation of useless notes. Small price to pay for not having to code a UserForm, I say.

  5. #5
    Platinum Lounger
    Join Date
    Jan 2001
    Location
    Roanoke area, Virginia, USA
    Posts
    3,729
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: A Link Lister (VBA)

    if you want to blow the links, instead of using notes, get the zaphtml macro from <A target="_blank" HREF=http://www.slipstick.com>http://www.slipstick.com</A> and display the urls in the message body. it converts them as the messages arrive.

    PS - I'm getting invalid call or procedure on the code - and missing the namespace

  6. #6
    cpsr
    Guest

    Re: A Link Lister (VBA)

    Jefferson, that's great - thanks heaps! My own word of caution - if cut-n-pasting Jefferson's code, make sure that the line:

    While InStr(1, strNoteBody, " ")

    AND the following line come across with TWO spaces between the quote marks. Else we are into infinite loop territory!

    Thanks again! CR.

  7. #7
    cpsr
    Guest

    Re: A Link Lister (VBA)

    On mine, the missing namespace happens when viewing in preview pane, but not with the message opened 'properly'. CR.

  8. #8
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: A Link Lister (VBA)

    I guess I rushed through and didn't test everything.

    The <A target="_blank" HREF=http://www.slipstick.com/dev/code/zaphtml.htm>ZapHtml</A> macro uses an ingenious trick, but if I allowed all incoming HTML messages to be preconverted I would wreck the format of one of my daily reports...

    Someone who wants to do it on demand could run this (derived from slipstick):

    Sub FlipToRTF()
    ActiveInspector.CurrentItem.Body = ActiveInspector.CurrentItem.Body
    End Sub

    Again, this assumes the message is open rather than previewed.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •