Focus on the userform

[Anastasios Diamantopoulos]

I have created a VBA Macro which uses the ItemSend Even to modify the Subject of an email. Form within ItemSend I call a userform (ExampleForm.Show vbModal)with 3 buttons. The userform works perfectly well and when the user clicks a button the Subject is replaced and the mail is fired. However when the user clicks on the Send button and the userform comes up, the user is able to click outside the form on the mail and make changes. How can I focus only on the userform without allowing the user to click elsewhere?

 

[Michael Bauer]

vbModal is unknown in VBA so it passes zero, which is the opposite you want. Call it with 1 instead.

 

[Anastasios Diamantopoulos]

This is the statement I call the form: ExampleForm.Show vbModal. How this will be when I want to call it with 1?

 

[Michael Bauer]

Replace vbmodal by 1. It's that simple.

 

[Anastasios Diamantopoulos]

I did it and it does not work.
I call the ExampleForm.Show vbModal from the ItemSend, when I click on the email's send button the form appears but while the form is opened I can click (outside the form) on the email and make changes.
This is what I try to avoid. I do not want the user to be able to click outside the form.

 

[Michael Bauer]

Please show the new code.

 

[Anastasios Diamantopoulos]

The code is as follows:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
strSubject = Item.Subject
If Len(Trim(strSubject)) = 0 Then
prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"
If MsgBox(prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then
Cancel = True
End If
End If
If (Left(strSubject, 3) <> "P1-" And Left(strSubject, 3) <> "P2-" And Left(strSubject, 2) <> "P3-") Then
EmailPrioForm.Show vbModal
End If
End Sub

 

[Michael Bauer]

As mentioned, vbModal does not work. You need to replace that word by the figure 1.

 

[Anastasios Diamantopoulos]

A I mentioned, I replaced EmailPrioForm.Show vbModal

with EmailPrioForm.Show 1

and it does not work. They have exactly the same behavior.

 

[Michael Bauer]

How should we know if you show a different code?
Anyway, figured it, instead of calling the form directly by its name, use a variable:
dim fm as new EmailPrioForm
fm.show 1

 

[Anastasios Diamantopoulos]

Hmmm, this did not work either.

 

[Michael Bauer]

Is the code running in Outlook, or in another host like Excel? If Outlook, show the code you're really using.

 

[Anastasios Diamantopoulos]

Excuse me, but what makes you believe that I'm not showing the code I'm really using...?

Outlook 2007:

ThisOutlookSession:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
Dim myForm As New EmailPrioForm
strSubject = Item.Subject
If Len(Trim(strSubject)) = 0 Then
prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"
If MsgBox(prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then
Cancel = True
End If
End If
If (Left(strSubject, 3) <> "P1-" And Left(strSubject, 3) <> "P2-" And Left(strSubject, 2) <> "P3-" And Cancel <> True) Then
myForm.Show 1
End If
End Sub


EmailPrioForm:
Private Sub CommandButton1_Click()
Dim Item As MailItem
Set Item = Outlook.Application.ActiveInspector.CurrentItem
Item.Subject = "P1-" + Item.Subject
Unload Me
End Sub

' Subject Identifier: Action
Private Sub CommandButton2_Click()
Dim Item As MailItem
Set Item = Outlook.Application.ActiveInspector.CurrentItem
Item.Subject = "P2-" + Item.Subject
Unload Me
End Sub

' Subject Identifier: Decision
Private Sub CommandButton3_Click()
Dim Item As MailItem
Set Item = Outlook.Application.ActiveInspector.CurrentItem
Item.Subject = "P3-" + Item.Subject
Unload Me
End Sub

 

[Michael Bauer]

Because that's often the case, and here the code worked. Now I've copied all your code into my IDE, and sometimes the window is modal, sometimes it is not. I'm sorry, I don't have more ideas.

 

[Anastasios Diamantopoulos]

Any other ideas on how can I make my form Modal?

 

[Anastasios Diamantopoulos]

Hi,
I actually found the trick to work and it looks preety simple. Just had to initialise the form with a focus to one of its buttons and did the trick:

Private Sub UserForm_Initialize()
Me.CommandButton1.SetFocus
End Sub