Marco code voor pop up venster te krijgen bij aktievatie macro

[davylenders123]

Heb via het forum hier een code kunnen samen stellen met veel hulp die een excel bestand opslaat en mails naar 2 personen.

Als de macro zijn werk heeft gedaan krijg ik een melding dat de mail goed is verstuurd met een pop up venster waar je op ok moet klikken.

Nu zou ik graag een melding krijgen onmiddelijk na dat je op de button klikt die de macro aktiveerd met de vraag of je zeker bent dat je de mail wil sturen met de keuzen tussen ja of nee.
Welke code moet ik dan toevoegen en waar juist?

Const EMBED_ATTACHMENT As Long = 1454
Const vaCopyTo As Variant = "" 'copy mailen naar: "adres"

Sub mail()


 Dim vaRecipients As Variant
  Dim noSession As Object
  Dim noDatabase As Object
  Dim noDocument As Object
  Dim noEmbedObject As Object
  Dim noAttachment As Object


stpath = "H:\patricia" 'locactie waar bijlage staat
stsubject = "hier komt het onderwerp van de mail te staan"
vamsg = "Hier komt de body (tekst) van je mail te staan" 'mailbody voorzien van gegevens
stfilename = "mailvoorbeeld.xlsm" 'Bestandsnaam
stattachment = stpath & "\" & stfilename 'bijlage = bestandlocatie + bestandsnaam
vaRecipients = VBA.Array("mijnmail@hotmail.com", "mijnmail@hotmail.com") 'mailadressen("eerste ontvanger" , "tweede ontvanger", enz.)

                  'Bepaal de Lotus Notes COM's Objecten.
                  Set noSession = CreateObject("Notes.NotesSession")
                  Set noDatabase = noSession.GETDATABASE("", "")
                  
                  'Als Lotus Notes niet open is open dan het mail-gedeelte ervan.
                  If noDatabase.IsOpen = False Then noDatabase.OPENMAIL
                 
                  'Maak de e-mail en de bijlage.
                  Set noDocument = noDatabase.CreateDocument
                  Set noAttachment = noDocument.CreateRichTextItem("stAttachment")
                  Set noEmbedObject = noAttachment.EmbedObject(EMBED_ATTACHMENT, "", stattachment)
                                 
                  'Voeg de gegevens toe aan de gemaakte e-mail eigenschappen.
                  With noDocument
                    .Form = "Memo"
                    .SendTo = vaRecipients
                    .CopyTo = vaCopyTo
                    .Subject = stsubject
                    .Body = vamsg
                    .SaveMessageOnSend = True
                    .PostedDate = Now()
                   .Send 0, vaRecipients
                  End With
                 
                          
                  'Verwijder objecten uit het geheugen.
                  Set noEmbedObject = Nothing
                  Set noAttachment = Nothing
                  Set noDocument = Nothing
                  Set noDatabase = Nothing
                  Set noSession = Nothing

MsgBox "The e-mail has successfully been created and distributed", vbInformation
End Sub

 

[cow18]

op 1e regel

If vbNo = MsgBox("wil je wel heel zeker die mail verzenden", vbYesNo) Then Exit Sub

 

[davylenders123]

op 1e regel

If vbNo = MsgBox("wil je wel heel zeker die mail verzenden", vbYesNo) Then Exit Sub

Bedankt :thumb: werkt perfect.