VBA automatisch laten mailen in PDF om bepaalde tijd

Status
Niet open voor verdere reacties.
hier het bestand van Philiep, zonder het mailadres van IVO. Derhalve heb ik mijn bestand verwijderd en ik raad jullie aan dit ook te doen, anders wordt ivo nog jarenlang geconfronteerd v met mailtjes van helpmij-bezoekers.
 

Bijlagen

  • test2.xlsm
    40 KB · Weergaven: 30
die foutmelding krijg ik ook, maar alleen als ik het bestand vanaf de site benader. Sla het bestand op en open het opnieuw, dan moet de foutmelding niet verschijnen.
 
Ik heb nog eens getest, werkt zonder problemen. Eerst opslaan.
 
Ik snap niet wat ik verkeerd doe, maar bij mij werkt het echt niet.
 
het werkt! Nog een vraag! kan het bestand ook gedeeld worden? zodat er meerdere mensen tegelijk de bestellijst kunnen aanvullen?
En kan het ook als het bestand niet geopend is?
 
En mssn nog een vraag, stel dat de lijst leeg is, kan deze dan niet verzonden worden?
 
Macro's in gedeelde bestanden werken niet goed. Samengevoegde cellen in combinatie met macro's werken over het algemeen ook niet goed. Beide kan je dus beter niet gebruiken. De hele mailprocedure kan wat eenvoudiger. (met controle op een lege bestellijst)

Code:
Sub VerzendenAlsPDFenleegmakenenopslaan()
    Pad = "E:\Temp\" 'even aanpassen
    Otv = "hier mailadres invullen"
    Bst = "Bestelling" & Format(Now, "dd-mm-yyyy   hh.mm") & ".pdf"
    If Application.CountA(Sheets("bestelling").Columns(1)) = 2 Then Exit Sub
    
    Sheets("Bestelling").Range("A1:I42").ExportAsFixedFormat 0, Pad & Bst
    With CreateObject("Outlook.Application").createitem(0)
      .to = Otv
      .Subject = "Test"
      .Body = "zie bijlage"
      .Attachments.Add Pad & Bst
      .display 'of .Send
    End With
    Range("A9:I34").ClearContents
    'ActiveWorkbook.Close Savechanges:=True
End Sub
 
Knipsel.PNG

krijg ik dan en als ik op de verzenden knop druk gebeurt er niets.
En ik moet eerst op opslaan klikken voor dat bestand op de automatische manier verzonden gaat worden.
Kan dit ook als ik op opslaan en sluiten klik?
 
even aanpassen in de commentaarregel niet gelezen?
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan