hoe zorgen dat je de melding niet meer krijgt om te verwijderen (vba code)

[davylenders123]

Ik heb een code die een excel file doormaild via lotus notus.
Het rode deel verwijderd 3 tabbladen die niet mee mogen worden gemaild.

Als dit stukje code werkt krijg ik elke keer de volgende melding.

"De bladen die zijn geselecteerd om te worden verwijderd , bevatten moggelijk gegevens.Als u de gegevens permanent wilt verwijderen, kikt u op verwijderen"
En daar staan 2 butons bij verwijderen & annuleren

Deze melding vraagt hij 3 keer.

Wat moet er aan de code worden gewijzigd dat ik die meldingen niet meer krijg en dat de 3 tab bladen gewoon worden verwijderd bij het drukken op de buton mailen.

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


If vbNo = MsgBox("Ben je wel zeker dat je die mail wil verzenden", vbYesNo) Then Exit Sub
If vbNo = MsgBox("Heb je lotus notus open staan?", vbYesNo) Then Exit Sub

[COLOR="red"]Sheets("adres").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("dokter").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("postcodes").Select
    ActiveWindow.SelectedSheets.Delete[/COLOR]    
    ActiveSheet.Unprotect Password:="1230"
    Cells.Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("E11").Select
    ActiveSheet.Protect Password:="1230", DrawingObjects:=True, Contents:=True, Scenarios:=True


ActiveWorkbook.SaveAs Filename:=("T:\Mag-Data\Mit pc\davy\Mensura Controle\controle al doorgemaild" & "\Controle aanvraag   " & Sheets("controle").Cells(1, 14).Value & " Doorgestuurd op " & Format(Now, "dd-mm-yyyy hh" & "u " & "mm") & ".xls")
stpath = "T:\Mag-Data\Mit pc\davy\Mensura Controle\controle al doorgemaild" 'locactie waar bijlage staat
stsubject = "Controle aanvraag   " & Sheets("controle").Cells(1, 14).Value & " Doorgestuurd op  " & Format(Now, "dd-mm-yyyy hh" & "u " & "mm") & ".xls" _

vamsg = "Goedemorgen, " & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
" Bij deze stuur ik u een controle aanvraag voor een werknemer van ons." & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
"Dit zit in een excel file die jullie kunnen afdrukken als jullie willen. " & vbCrLf & vbCrLf & _
"Het verslag van de controle arts mag naar het volgende mail adres gestuurd worden. " & vbCrLf & vbCrLf & _
" ghj@bjh.be" & vbCrLf & vbCrLf & _
" " & vbCrLf & vbCrLf & _
      "Met Vriendelijke Groeten" & vbCrLf & vbCrLf & _
      "De Hoofdmagazijniers"


'mailbody voorzien van gegevens
stfilename = "Dagstaat Magazijniers .xls" 'Bestandsnaam
stattachment = ("T:\Mag-Data\Mit pc\davy\Mensura Controle\controle al doorgemaild" & "\Controle aanvraag   " & Sheets("controle").Cells(1, 14).Value & " Doorgestuurd op " & Format(Now, "dd-mm-yyyy hh" & "u " & "mm") & ".xls")
vaRecipients = VBA.Array("jjjjjj@hotmail.hn", "jjjjj@kij.be") '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 "De e - mail is correct verstuurd ", vbInformation



End Sub

 

[Warme bakkertje]

Zet bovenaan de regels

Application.Displayalerts = False

en onderaan de regels

Application.DisplayAlerts = True

 

[davylenders123]

Rudi,

Bedankt .:thumb:

Probleempje is opgelost.