When more than "ItemSend" is needed

Status
Not open for further replies.

ENLLP

New Member
Hi could someone help?

I have a Add-in in Outlook (Newforma) that uses the Application_ItemSend function. You can send an email by clicking on Outlooks Send button or on this Addins button.

I wanted to write a small msgbox to remind people to use the Addin when they click on Outlook's Send button.

However because both these buttons trigger the Application_ItemSend my macro runs regardless which button I click.

I need a way to only trigger my code when the Send button is pressed by the user not when the Application_ItemSend function is sent please?

I am a beginner to VBA so if answers could be in full that would be most helpful.

Thank you in advance, here's the code I have done so far:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If MsgBox("Make sure you are sending using Newforma - Are you sure you want to send this message?", vbYesNo + vbQuestion + vbMsgBoxSetForeground, "WARNING - NEWFORMA BYPASS ?") = vbNo Then

Cancel = True

End If


End Sub
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Looking for what? If you only need to support Outlook 2010 and older, that would be easier. If 2013 and up, what language would you be using, do you have Visual Studio for creating an Addin? If you don´t have any experience in creating and deploying Addins, I´d first ask the vendor of NewForma to customize their Addin for you. That could be cheaper.
 

ENLLP

New Member
I can see I'm getting a flat "No it cant be done" in this forum ;-) but in some others their exploring the idea of using the Cancel button as a trigger. this still hasn't work but its made me think that clicking on the cancel might cause an event that can be used to differentiate between the 2?

Private Sub Newforma()
' Cancel = True is a flag indicating Newforma invoked Application_ItemSend
Application_ItemSend CreateItem(0), True
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If Cancel = False Then ' User clicked the Send button
If MsgBox("Make sure you are sending using Newforma - Are you sure you want to send this message?", vbYesNo + vbQuestion + vbMsgBoxSetForeground, "WARNING - NEWFORMA BYPASS ?") = vbNo Then

Cancel = True

End If

Else
' Cancel starts as True when Application_ItemSend was invoked by Newforma
' Reverse the Cancel
Cancel = False

End If

End Sub
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Maybe you´d get better answers if you´d share details. We still don´t know which versions of outlook you want to support. If using NewForma´s Send button instead of Outlook´s button is important, NewForma really could be interested in overwriting Outlook´s button as mentioned. Did you ask them?

Since the NewForma Addin for sure doesn´t call your NewForma procedure when you click its Send button, that approach cannot work.
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
C blocking two or more word domains separated by period/dot Using Outlook 4
C How to use VBA to show only items x days old or more Outlook VBA and Custom Forms 1
N VBA to delete duplicates by message-id on common pst for 2 or more emails Outlook VBA and Custom Forms 0
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5
B Looking to filter (or just find/search) for only messages that the sender has sent more than 1 messa Using Outlook 2
B When I add more search strings to RULES, it is not processing them Using Outlook 3
O Display more months in 'Tasks' Using Outlook 3
A BCM does not work with Windows 10 1703 any more BCM (Business Contact Manager) 3
K adding more rules to 'different domains check' macro Outlook VBA and Custom Forms 2
Diane Poremsky Booking meetings more than 180 days out New Slipstick.com Articles 1
Diane Poremsky Could not complete the operation. One or more parameter values are not valid. New Slipstick.com Articles 0
W Showing more months in the Calendar nav pane Using Outlook 10
B Search Folder for search messages in more than one account and / or multiple PST folders Using Outlook 3
C Quick Parts signatures suddenly require more letters Using Outlook 2
Diane Poremsky Make 'today' stand out more in the calendar New Slipstick.com Articles 0
Diane Poremsky More Tools and Utilities for Sharing Outlook Data New Slipstick.com Articles 0
N To do bar - show more than 30 days of appointments Using Outlook 0
Q shortcut to more stationery Using Outlook 4
F Missing "More Settings" in Outlook 2007 Professional Using Outlook 8
O Stop more than one person responding to an email? Using Outlook 1
J Show three or more months in Calendar Using Outlook 1
M Can't open same msg file more than once at the same time in Outlook 2010 Using Outlook 7
A Setting RULES with more than one condition in MS OUTLOOK Using Outlook 6
T using IMAP with a single email account on two or more computers Using Outlook 3
C Whose brilliant idea was to make it more difficult to scroll in Outlook? Using Outlook 0
G "database is not compatible with BCM for Outlook 2013" & more BCM (Business Contact Manager) 0
C Using iCloud in more than one Outlook profile Using Outlook 0
B Consolidating more than one Outlook profiles Using Outlook 1
dolke Strange Outlook behavior when receiving emails. More info in the content... Using Outlook 7
M No More Spam Mail Using Outlook 1
K Need to get OOO messages more than once for the same email box Using Outlook 2
Y BCM Contacting 2 or more contacts under one account BCM (Business Contact Manager) 2
S Help with optimizing Outlook (With BCM and more) Using Outlook 3
B Would like to add more fields in the Genral contacts tab Using Outlook 1
C Looking for way to tie a Business Contact to more than one Account BCM (Business Contact Manager) 5
T More than one outlook account to setup & move Using Outlook 1
D Add-In or Other to Make Outlook More "OneNote Like"? Using Outlook 5
J why "Could not complete the operation. One or more parameter values are not valid"? Using Outlook 2
C print more than one month per page in outlook 2010 calendar Using Outlook 5
M Appointments with more than one day are not shown correctly at iPhone after Service Pack 3 for Exchange 2007 Using Outlook 2
M More email addresses in contacts Using Outlook 1
A Cannot send to one or more delegates Using Outlook 2
D Saved draft with more than 100MB file attached disappears Using Outlook 1
B Calendar - Shared Calendar does not show calendar meetings after Dec 31 2010..... read more... Using Outlook 1
J Microsoft Outlook - How can I read emails that are more than 12 months old? Using Outlook 2
T More Oulook 2010 Error Messages Using Outlook 1
S How to get more detail on "Microsoft.Exchange.Data.Mime.Encoders.ByteEncoderException" Using Outlook 3
I Outlook 2007 showing more than one e-mail address Using Outlook 2
M .wav files won't play any more Using Outlook 1
K Can I customize OL2010 month view calendar to be more legible; skip confusing colors and show more a Using Outlook 1
Similar threads


















































Top