code in outlook session moet gebruik maken van gegevens

[SPeters]

Hallo,

Ik heb in outlook een macro gebouwd die op basis van een gekozen e-mailadres een userform laat zien, welke de medewerkers moeten invullen.
Wanneer de medewerker op de commandbutton "cancel" klikt, komt er een message box. Wanneer de medewerker de vraag bevestigd,moet de verzendmethode stoppen. Ik heb een boolean geplaatst op de command button, en de messagebox in de outlooksession geplaatst. Het lijkt er nu op dat de messagebox gelijktijdig met de userform wordt uitgevoerd, waardoor de waarde die in de userform wordt meegegeven, nog niet bekend is.
Hoe kan ik ervoor zorgen dat de messagebox pas start nadat de userform is uitgevoerd.

Outlooksession:

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

Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Dim Msg As Outlook.MailItem
Dim sRecip As Outlook.recipient
Dim bCancel As Boolean
Dim prompt As String

   
Set olApp = Application
Set objNS = olApp.GetNamespace("MAPI")
Set Msg = Item
Set objItem = Application.ActiveInspector.CurrentItem


Dim str1 As String
Dim str2 

Dim answer
Dim strName As String

str1 = Msg.To
str2 = "Test@test.nl"




If InStr(1, str1, str2) Then
strSubject = ""
    Load frmSparen
    frmSparen.Show
    
           
        
            If bCancel = True Then
        prompt = "Weet je zeker dat je deze mail niet wilt archiveren" & "?"
           If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
           Cancel = True
           Else
           frmSparen.Show
           End If
        End If
    
     
      
   strSubject = "REKNR " & Format(strRekeningnummer, "0000000000")
Msg.Subject = strSubject
End If

Userform:

Private Sub cmdCancel_Click()

bCancel = True

Unload frmSparen
frmSparen.Hide
    
End Sub

 

[snb]

Het lijkt me handiger de gebruiker eerst een userform te tonen en daarin een keuze te laten maken wat te doen.
Achter de commandbutton zet je dan de code om de gekozen aktie uit te voeren.

 

[SPeters]

Hoi snb,

Hartelijk dank voor je snelle reactie. Ik begrijp alleen niet geheel wat je bedoelt. In mijn outlook session start ik toch ook eerst de userform op. Het probleem is dat de code in outlook session doorloopt en er dus op dat moment nog geen keuze is gemaakt in de userform.

 

[snb]

Wat dacht jij dat

Application.ActiveInspector.CurrentItem

dan doet ?