• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Marco code voor pop up venster te krijgen bij aktievatie macro

Status
Niet open voor verdere reacties.

davylenders123

Gebruiker
Lid geworden
20 jun 2010
Berichten
902
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?

Code:
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
 
op 1e regel
Code:
If vbNo = MsgBox("wil je wel heel zeker die mail verzenden", vbYesNo) Then Exit Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan