![]() |
#1
|
|||
|
|||
![]()
Hi all,
I found some code on the net and modified it for my needs. For the most part, it works fine. However some times the code does not run, until I close Outlook and open it up again. I shut down my computer each evening. I am looking for any tips that would explain why it might stop working.? The code is located in ThisOutlookSession module TIA Code:
Option Explicit Public WithEvents myOlApp As Outlook.Application Private Sub Application_Startup() Initialize_handler End Sub Public Sub Initialize_handler() Set myOlApp = Outlook.Application End Sub Private Sub myOlApp_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 |
|
![]() |
||||
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 |
![]() |
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 |