Opslaan als PDF op netwerklocatie en PDV verzenden als mail

[vdhmark]

Hallo,

Voor een bepaalde toepassing ben ik op zoek naar de VBA code die het volgende kan:

Stap 1:
Opslaan van het aangegeven afdrukbereik van het huidige (actieve) werkblad als een PDF document. Hierbij dient:
- de opslaglocatie gelijk te zijn aan het pad dat is aangegeven in een bepaalde cel (zij bijlage cel F4);
- de bestandnaam gelijk te zijn aan hetgeen is aangegeven in een bepaalde cel (zie bijlage cel F5)

Stap 2:
Het zojuist aangemaakte PDF document mailen naar een emailadres (zie bijlage cel F6). Hierbij dient:
- het onderwerp van de e-mail overgenomen te worden uit een bepaalde cel (zie bijlage cel F7)
- de aanhef van de e-mail overgenomen te worden uit een bepaalde cel (zie bijlage cel F8)
- de tekst van de e-mail overgenomen te worden uit een bepaalde cel (zie bijlage cel F9). Eventueel mag dit ook een vast tekst zijn die in de VBA code is opgenomen.

Stap 1 dient zonder tussenkomst van de gebruiker uitgevoerd te worden. Bij stap 2 dient in Outlook een mail gemaakt te worden, waarbij handmatig op verzenden geklikt moet worden.

Op het forum heb ik een aantal zaken gevonden die een deel van de oplossing vormen. Helaas krijg ik nog niet voor elkaar wat ik graag zou willen.
Is er iemand die mij kan helpen.

Gr,
Mark

 

[snb]

gebruik iets in de vorm van

sub
  thisdocument.saveasfixedformat 0,"G:\OF\nieuw.pdf"
  
  with createobject("outlook.application").createitem(0)
    .to =...
    .subject = ...
    .attachments.add "G:\OF\nieuw.pdf"
    .send
  end with
End sub