Macro: Excell bestand verzenden in attachement

[Perlut]

Hallo,
Ik heb een macro om een excell bestand te versturen wanneer je op een knop drukt.

MACRO ()
ActiveWorkbook.Save
ActiveWorkbook.SENDMAIL Recipients:=“perlut@gmail.com”, Subject:="ANALYSIS REQUEST"
ActiveWorkbook.Close SaveChanges:=False
end sub

Probleem is als ik een nog een mailadres aan de Recipients wil toevoegen dan dient de persoon die het document wil verzenden: 2 x op verzenden te drukken om de verzender aan het outlook bestand te zetten,

Ik heb nog een andere macro dat werkt met verschillende mail adressen,
maar hoe krijg ik het activeworkbook in de code?

Verzenden ()
With CreateObject("Outlook.Application").CreateItem(0)
.To = "perlut@gmail.com;bart.strosse@gmail.com”
.Subject = "ANALYSIS REQUEST"
.Body = "Een nieuwe analyse aanvraag"
.Display
End With

 

[spaarie]

Voeg deze toe tussen .Subject en .Body

.Attachments.Add ThisWorkbook.FullName

 

[Perlut]

bedankt voor de snelle reactie. het werkt perfect.

 

[Perlut]

Excell bestand ook versturen als PDF

Hallo,

Zou het mogelijk zijn om bij klikken op "send" dat het excell wordt omgezet in PDF formaat en als bijlage verzonden word?

Zo krijg ik niet het excell file zelf in mijn mailbox.
En kan er geen verwarring ontstaan bij "mogelijk per ongelijk" een checkbox aanklikken?

Alvast bedankt,

Per Lut

 

[HSV]

Hallo,

Voor die tijd omzetten lijkt me logischer.

Sub Verzenden()
ThisWorkbook.ExportAsFixedFormat 0, Replace(ThisWorkbook.fullname, ".xlsm", "")
 With CreateObject("Outlook.Application").CreateItem(0)
    .To = "[EMAIL="perlut@gmail.com;bart.strosse@gmail.com"]perlut@gmail.com;bart.strosse@gmail.com[/EMAIL]"
    .Subject = "ANALYSIS REQUEST"
    .Body = "Een nieuwe analyse aanvraag"
    .attachments.Add Replace(ThisWorkbook.fullName, ".xlsm", ".pdf")
    .Display
 End With
End Sub

 

[Perlut]

Excell naar PDF file werkt maar geeft alle sheet's weer

Hallo,
Als ik de code invoeg werkt het aanmaken van de PDF.
Probleem is dat alle sheet's worden afgedrukt.
Is het mogelijk om enkel het actieve sheet af te drukken?
Bvb sheet "Nl" is actief als je dan op de knop "send" drukt zou enkel deze sheet mogen afgedrukt worden en niet alle 2 actieve.

Bestaat er ook een code om het bestand af te sluiten met een Knop, het programma zou niet mogen vragen of het opgeslagen mag worden?


Groeten
Per Lut

 

[HSV]

Allebeide vragen ineen.
Hang de code aan een knop.

Sub Verzenden()
activesheet.ExportAsFixedFormat 0, Replace(ThisWorkbook.FullName, ".xlsm", "")
 With CreateObject("Outlook.Application").CreateItem(0)
    .To = "[EMAIL="mailadres1@gmail.com;mailadres2@gmail.com"]mailadres1@gmail.com;mailadres2@gmail.com[/EMAIL]"
    .Subject = "ANALYSIS REQUEST"
    .Body = "Een nieuwe analyse aanvraag"
    .attachments.Add Replace(ThisWorkbook.FullName, ".xlsm", ".pdf")
    .Display
 End With
 thisworkbook.close true
End Sub

 

[Perlut]

Bedankt bericht

Bedankt voor de hulp.