Ufdjrw

Plot of histogram similar to output from @risk

Why is information "lost" when it got into a black hole?

Is there a way to save my career from absolute disaster?

Why this way of making earth uninhabitable in Interstellar?

How many extra stops do monopods offer for tele photographs?

Recycling old answers

No sign flipping while figuring out the emf of voltaic cell?

Can a Bladesinger Wizard use Bladesong with a Hand Crossbow?

Is there always a complete, orthogonal set of unitary matrices?

How to get from Geneva Airport to Metabief?

Math-accent symbol over parentheses enclosing accented symbol (amsmath)

Unclear about dynamic binding

Help understanding this unsettling image of Titan, Epimetheus, and Saturn's rings?

Where do students learn to solve polynomial equations these days?

Is it professional to write unrelated content in an almost-empty email?

What flight has the highest ratio of time difference to flight time?

How to invert MapIndexed on a ragged structure? How to construct a tree from rules?

How to scale a tikZ image which is within a figure environment

WOW air has ceased operation, can I get my tickets refunded?

Are police here, aren't itthey?

Why is quantifier elimination desirable for a given theory?

Is it possible to replace duplicates of a character with one character using tr

RigExpert AA-35 - Interpreting The Information

Flying from Cape Town to England and return to another province

How to close or dismiss an Outlook Reminder via Outlook VBA

1

I want to run a Macro in Outlook at a certain time and so I'm using the Outlook Reminders to do it. I have written the below code, which successfully runs the Macro but after it has finished the If statement, it then pops up the reminder which I don't need to see and so therefore need to close/dismiss it.

Public Sub Application_Reminder(ByVal Item As Object)
If Item.Subject = "Refresh Data Test" Then
 Call RunExcelMacros.TestRun
End If
End Sub

Please can someone help suggest how I can dismiss the reminder?

vba outlook dismiss reminders

share|improve this question

asked Mar 7 at 16:34

seaside_escapeseaside_escape

334

add a comment | 

1

I want to run a Macro in Outlook at a certain time and so I'm using the Outlook Reminders to do it. I have written the below code, which successfully runs the Macro but after it has finished the If statement, it then pops up the reminder which I don't need to see and so therefore need to close/dismiss it.

Public Sub Application_Reminder(ByVal Item As Object)
If Item.Subject = "Refresh Data Test" Then
 Call RunExcelMacros.TestRun
End If
End Sub

Please can someone help suggest how I can dismiss the reminder?

vba outlook dismiss reminders

share|improve this question

asked Mar 7 at 16:34

seaside_escapeseaside_escape

334

add a comment | 

I want to run a Macro in Outlook at a certain time and so I'm using the Outlook Reminders to do it. I have written the below code, which successfully runs the Macro but after it has finished the If statement, it then pops up the reminder which I don't need to see and so therefore need to close/dismiss it.

Public Sub Application_Reminder(ByVal Item As Object)
If Item.Subject = "Refresh Data Test" Then
 Call RunExcelMacros.TestRun
End If
End Sub

Please can someone help suggest how I can dismiss the reminder?

vba outlook dismiss reminders

share|improve this question

asked Mar 7 at 16:34

seaside_escapeseaside_escape

334

Public Sub Application_Reminder(ByVal Item As Object)
If Item.Subject = "Refresh Data Test" Then
 Call RunExcelMacros.TestRun
End If
End Sub

share|improve this question

asked Mar 7 at 16:34

seaside_escapeseaside_escape

334

share|improve this question

asked Mar 7 at 16:34

seaside_escapeseaside_escape

334

asked Mar 7 at 16:34

seaside_escapeseaside_escape

334

asked Mar 7 at 16:34

seaside_escapeseaside_escape

334

1 Answer
1

active

oldest

votes

1

Okay, I think I've got it - the below seems to work, all code is setup in the "ThisOutlookSession" Module:

Private WithEvents OutlookReminders As Outlook.Reminders

Public Sub Application_Reminder(ByVal Item As Object)
Set OutlookReminders = Outlook.Reminders
If Item.Subject = "Refresh Data Test" Then
 Call RunExcelMacros.TestRun
End If
End Sub

Private Sub OutlookReminders_BeforeReminderShow(Cancel As Boolean)
Dim OutlookReminder As Reminder
'After the "Application_Reminder" has run it will then run this code straight after which stops the reminder from actually popping up
 For Each OutlookReminder In OutlookReminders
 If OutlookReminder.Caption = "Refresh Data Test" Then
 If OutlookReminder.IsVisible Then
 OutlookReminder.Dismiss
 Cancel = True
 End If
 Exit For
 End If
 Next OutlookReminder
End Sub

share|improve this answer

answered Mar 7 at 18:46

seaside_escapeseaside_escape

334

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  You can accept your own answer as correct to close this Q out. Click the green checkmark.
  
  – HackSlash
  Mar 7 at 22:51
  

  
  
  
  

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55048705%2fhow-to-close-or-dismiss-an-outlook-reminder-via-outlook-vba%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

1

Okay, I think I've got it - the below seems to work, all code is setup in the "ThisOutlookSession" Module:

Private WithEvents OutlookReminders As Outlook.Reminders

Public Sub Application_Reminder(ByVal Item As Object)
Set OutlookReminders = Outlook.Reminders
If Item.Subject = "Refresh Data Test" Then
 Call RunExcelMacros.TestRun
End If
End Sub

Private Sub OutlookReminders_BeforeReminderShow(Cancel As Boolean)
Dim OutlookReminder As Reminder
'After the "Application_Reminder" has run it will then run this code straight after which stops the reminder from actually popping up
 For Each OutlookReminder In OutlookReminders
 If OutlookReminder.Caption = "Refresh Data Test" Then
 If OutlookReminder.IsVisible Then
 OutlookReminder.Dismiss
 Cancel = True
 End If
 Exit For
 End If
 Next OutlookReminder
End Sub

share|improve this answer

answered Mar 7 at 18:46

seaside_escapeseaside_escape

334

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  You can accept your own answer as correct to close this Q out. Click the green checkmark.
  
  – HackSlash
  Mar 7 at 22:51
  

  
  
  
  

add a comment | 

1

Okay, I think I've got it - the below seems to work, all code is setup in the "ThisOutlookSession" Module:

Private WithEvents OutlookReminders As Outlook.Reminders

Public Sub Application_Reminder(ByVal Item As Object)
Set OutlookReminders = Outlook.Reminders
If Item.Subject = "Refresh Data Test" Then
 Call RunExcelMacros.TestRun
End If
End Sub

Private Sub OutlookReminders_BeforeReminderShow(Cancel As Boolean)
Dim OutlookReminder As Reminder
'After the "Application_Reminder" has run it will then run this code straight after which stops the reminder from actually popping up
 For Each OutlookReminder In OutlookReminders
 If OutlookReminder.Caption = "Refresh Data Test" Then
 If OutlookReminder.IsVisible Then
 OutlookReminder.Dismiss
 Cancel = True
 End If
 Exit For
 End If
 Next OutlookReminder
End Sub

share|improve this answer

answered Mar 7 at 18:46

seaside_escapeseaside_escape

334

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  You can accept your own answer as correct to close this Q out. Click the green checkmark.
  
  – HackSlash
  Mar 7 at 22:51
  

  
  
  
  

add a comment | 

Okay, I think I've got it - the below seems to work, all code is setup in the "ThisOutlookSession" Module:

Private WithEvents OutlookReminders As Outlook.Reminders

Public Sub Application_Reminder(ByVal Item As Object)
Set OutlookReminders = Outlook.Reminders
If Item.Subject = "Refresh Data Test" Then
 Call RunExcelMacros.TestRun
End If
End Sub

Private Sub OutlookReminders_BeforeReminderShow(Cancel As Boolean)
Dim OutlookReminder As Reminder
'After the "Application_Reminder" has run it will then run this code straight after which stops the reminder from actually popping up
 For Each OutlookReminder In OutlookReminders
 If OutlookReminder.Caption = "Refresh Data Test" Then
 If OutlookReminder.IsVisible Then
 OutlookReminder.Dismiss
 Cancel = True
 End If
 Exit For
 End If
 Next OutlookReminder
End Sub

share|improve this answer

answered Mar 7 at 18:46

seaside_escapeseaside_escape

334

Private WithEvents OutlookReminders As Outlook.Reminders

Public Sub Application_Reminder(ByVal Item As Object)
Set OutlookReminders = Outlook.Reminders
If Item.Subject = "Refresh Data Test" Then
 Call RunExcelMacros.TestRun
End If
End Sub

Private Sub OutlookReminders_BeforeReminderShow(Cancel As Boolean)
Dim OutlookReminder As Reminder
'After the "Application_Reminder" has run it will then run this code straight after which stops the reminder from actually popping up
 For Each OutlookReminder In OutlookReminders
 If OutlookReminder.Caption = "Refresh Data Test" Then
 If OutlookReminder.IsVisible Then
 OutlookReminder.Dismiss
 Cancel = True
 End If
 Exit For
 End If
 Next OutlookReminder
End Sub

share|improve this answer

answered Mar 7 at 18:46

seaside_escapeseaside_escape

334

answered Mar 7 at 18:46

seaside_escapeseaside_escape

334

answered Mar 7 at 18:46

seaside_escapeseaside_escape

334