excel opslaan celnaam en email

Status
Niet open voor verdere reacties.
J

johnym

Gebruiker
Lid geworden
1 dec 2020
Berichten
30
beste,

ik zoek een vba om een geopend excel bestand op te slaan met celnaam d17 en dit bestand door te mailen.
het bestand met nieuwe naam mag ook ergens bewaard worden
lukt dit allemaal in 1 beweging ?
ben hier echt een beginner in

alvast bedankt voor de reacties
 
Veel informatie geef je niet, maar dit is wel de basis:
Code: 
Private Sub OpslaanEnMailen()
    Dim Bestand As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    Bestand = Range("D17")
    ThisWorkbook.SaveCopyAs Bestand
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "johnym@helpmij.nl"
        .CC = ""
        .BCC = ""
        .Subject = "Dit is het onderwerp"
        .Body = "Bij deze het bestand"
        .Attachments.Add Bestand
        .Send
    End With
End Sub
 
beste edmoor, bedankt al voor de feedback, ik probeer meer info te geven
ik open dus mijn bestandje(.xlsm) daar geef ik in vak d17 telkens een ander nummer in
deze sheet wil ik dan ook telkens zo doormailen en ergens opslaan zonder dat het originele overschreven wordt.

mvg
 
hoe laat ik uw vba werken ? met macro, of knop invoegen ?
 
Als je een voorbeeld documentje plaatst zal ik het er voor je in maken.
 
bestandje gepost, bij openen dient dat knopje "leegmaken" om enkele cellen inhoudelijk te wissen en nieuwe info in te vullen

mvg
 

Bijlagen

  • Kopie van complaint 3163-1.xlsm
    234,5 KB · Weergaven: 18
dag edmoor, ik krijg een foutmelding bij Set OutMail = OutApp.CreateItem(0)
 
Ik niet.
Je hebt wel Outlook?
 
Dan heb ik zo geen idee waarom die foutmelding gegeven wordt.
De code is standaard en wordt heel veel gebruikt.
Wat is de exacte foutmelding?
 
er verschijnt foutmelding: fout-2147467259(80004005) tijdens uitvoering
de bewerking is mislukt
 
Plaats je document eens waarin je die foutmelding krijgt.
 
ik heb uw bestand gesaved en dat getest.
 

Bijlagen

  • Kopie van complaint 3163-1-1.xlsm
    234,8 KB · Weergaven: 15
Die doet het hier prima.
Dan weet ik zo ook niet wat er mis is.
 
Die is verstuurd d.m.v. die knop in het document.
Werkt dus prima hier.
 
heel erg bedankt om mij al zo te helpen, ik zoek hier verder naar het probleem, ik hou u op de hoogte, mvg:thumb::thumb:
 
Kijk eens in de VBA editor bij Extra > Verwijzingen of minimaal die bovenste 4 zijn aangevinkt:
Extra.PNG
 
deze zijn aangevinkt
 

Bijlagen

  • Knipsel.JPG
    Knipsel.JPG
    16,3 KB · Weergaven: 22
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan