Outlook code not running now and again?

Welshgasman · #1 12-18-2018, 08:39 AM

Hi Graham,
Thank you for the reply.

There is no Initialize_handler any more, that was removed/replaced as you said it was not necessary.?

Code is now as below and in module ThisOutlookSession, where it has always been located. The other day it stopped working almost immediately.

If I restart Outlook it then works again (for a short while at least) which was the same effect when using the Initialize_handler method.

Code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strGreeting As String
    Dim iTime As Integer
    Dim strBody As String, strDivCode As String
    strGreeting = ""
    strDivCode = "<div class=WordSection1><p class=MsoNormal>"
    iTime = Val(Format(Now(), "hh"))
  
    ' Quit if not a mail item
    If TypeName(Item) <> "MailItem" Then
        Exit Sub
    End If
    
    Select Case iTime
    Case Is < 12
        strGreeting = "morning "
    Case Is < 17
        strGreeting = "afternoon "
    Case Else
        strGreeting = "evening "
    End Select

    strGreeting = "Good " & strGreeting

    
    strBody = Item.HTMLBody
    strBody = Replace(strBody, "Good day", strGreeting)
    'strBody = Replace(strBody, strDivCode, strDivCode & strGreeting)
  
    Item.HTMLBody = strBody
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Outlook Macros not Running from a Toolbar	OTPM	Outlook	0	03-16-2017 09:52 AM
Outlook 2007 running v-e-r-y s-l-o-w-l-y on old XP machine	Jennifer Murphy	Outlook	4	03-10-2017 01:07 AM
you must restart any running copies of outlook...	otuatail	Outlook	2	12-13-2015 03:38 AM
Running outlook on what is now a slave drive.	alexb123	Outlook	1	01-13-2012 10:48 AM
Outlook 2010 won't open links if Internet Explorer 8 is already running	Svart Testare	Outlook	0	01-28-2010 11:35 AM