Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 04-12-2018, 02:20 AM
Welshgasman Welshgasman is offline Outlook code not running now and again? Windows 10 Outlook code not running now and again? Office 2007
Novice
Outlook code not running now and again?
 
Join Date: Jun 2011
Posts: 26
Welshgasman is on a distinguished road
Default Outlook code not running now and again?

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
Reply With Quote
 



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
Outlook code not running now and again? 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

Other Forums: Access Forums

All times are GMT -7. The time now is 01:47 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft