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:
Userform:
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:
Code:
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:
Code:
Private Sub cmdCancel_Click()
bCancel = True
Unload frmSparen
frmSparen.Hide
End Sub