macro die eerste een pdf maakt van het aktief werkblad en dit dan doormailt

[davylenders123]

Heb hier via het forum een code kunnen samen stellen voor een excel bestand op te slaan en te mailen door middel van een knop.
Dit werkt allemaal perfect.

Er zijn stukken gebruikt uit de bestanden van ron maar het grooste gedeeld heeft niels voor mij gedaan.Omdat ik uit de bestanden van ron niet echt wijs geraakte.

Nu zou ik graag aan die code iets willen veranderen.
Dat hij door gebruik van die macro een pdf bestaand aanmaakt van het aktief werkblad, dit opslaat in een bepaald map en dat dan doormailt naar 3 personen.

Maar weet niet hoe er aan te beginnen .
Kan er hier iemand mee helpen ?

Hieronder de code die ik nu heb voor het excel bestand door te mailen

 

[davylenders123]

Hier de code. Sorry

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

ActiveWorkbook.SaveAs Filename:=("T:\Mag-Data\Mit pc\davy\uren zaterdag ploeg\reeds doorgestuurd" & "\uren zaterdag ploeg " & Format(DateValue([blad1!B1]), "dd-mm-yyyy") & ".xls")
stpath = "T:\Mag-Data\Mit pc\davy\uren zaterdag ploeg\reeds doorgestuurd" 'locactie waar bijlage staat
stsubject = "Uren zaterdag ploeg en welke wagens er deze week gepoetst zijn"
vamsg = "Jef & Mieke ." & vbCrLf & _
"Bij deze stuur ik jullie de uren van de kuisploeg als ook welke wagens we vandaag hebben gepoetst.," & vbCrLf & _
      "Gunther"

'mailbody voorzien van gegevens
stfilename = "uren zaterdag ploeg .xls" 'Bestandsnaam
stattachment = ("T:\Mag-Data\Mit pc\davy\uren zaterdag ploeg\reeds doorgestuurd" & "\uren zaterdag ploeg " & Format(DateValue([blad1!B1]), "dd-mm-yyyy") & ".xls")
vaRecipients = VBA.Array("mijn@voorbeeldmail.be", "mijn@voorbeeldmail2@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 "De e - mail is correct verstuurd ", vbInformation



End Sub