Comedy code

[Greg Truby]

Suggest you edit that to make "Gods" lowercase -- "gods" lest brother Van.Geit hafta admonish you...

 

[Richard Schollar]

Good point!

Don't want to offend Brother Van Geit - these monks can be dangerous (you'll know what I mean if you've read the Da Vinci code )

 

[Oorang]

Erik is a Monk?

 

[Greg Truby]

Yes, but don't tell the Pope. I don't think his Holiness knows about Erik's young'uns...

 

[erik.van.geit]

Monk, Pope, layman are no Biblical terms. Let's respect the pope as human being, but this person has no more authority then any christian. When it comes to adore statues and objects I would only advise: "don't follow that example".

No I am not a monk: just a man who tries to find God and get in contact. Miracles will not bring people to God, but it's a real support for me that I was saved 3 years ago from a surgeon-operation. The fracture was just gone without any human intervention.


OK, guys,
Who will bring us back to the thread ?

 

[Greg Truby]

Who will bring us back to the thread ?
-e.v.g.

Sorry, Erik -- I'm not familiar with that concept -- can you use Colo's HTML maker to provide an example of your desired output?

 

[Oorang]

Who will bring us back to the thread ?

Option Explicit
Sub FixThread()
    Dim Thrd As Thread
    Dim Pst As Post
    Set Thrd = CurrentBoard.Threads("http://www.mrexcel.com/board2/viewtopic.php?t=246668")
    For Each Pst in Thrd.Posts
            If Pst.Author = "Greg Truby" Then Pst.Delete
    Next Pst
End Sub

 

[Greg Truby]

nicely done, aaron!

 

[Oorang]

:wink:

 

[Richard Schollar]

Great code Aaron! I notice that there's new posts by the Trubinator all the time - so maybe you should make that code recursive and across all threads?

Option Explicit
Sub FixThreads()
    Dim Thrd As Thread, Dim RemTrube As Date
    Dim Pst As Post
    RemTrube = Now + TimeValue("00:15:00")
    Set Thrd = CurrentBoard.Threads
    For Each Pst in Thrd.Posts
            If Pst.Author = "Greg Truby" Then Pst.Delete
    Next Pst
    Application.OnTime RemTrube, "FixThread"
End Sub

If it runs every 15 minutes, that'll limit Truby to only a potential 75 or so misdirecting posts