Excel blad mailen naar ontvanger met VBA code

Status
Niet open voor verdere reacties.
B

basblok

Gebruiker
Lid geworden
11 nov 2011
Berichten
232
Geacht forum,

Heb eerder een andere vraag keurig opgelost gekregen deze vraag kwam direct daarna.

Is op de betreffende pagina bij het afsluiten van een werkblad (of helemaal afsluiten van Excel) het sheet als bijlage aan een nieuw bericht geadresseerd aan een vast e-mailadres te zenden door op de knop Verzenden te klikken?

Bas
 

Bijlagen

  • Prg. KNBB MH (Versie 9.2).xlsm
    1,2 MB · Weergaven: 43
Tabblad verzenden

Hallo VenE

Eerder ontving ik onderstaande code;

Deze werkt inderdaad perfect, maar ik had nog de vraag:
Kan een verzendcode worden toegevoegd zodat het betreffende blad (als bijlage) wordt verzonden.

Het lukt mij maar niet om dat werkend te krijgen.
Bij voorbaat dank voor je reactie.


Code:
Private Sub CommandButton1_Click()
ar = Sheets("Biljartpoint").Cells(1).CurrentRegion.Offset(, 1).Resize(, 12)
With Sheets("Bilartpoint klaar")
.UsedRange.ClearContents
.Cells(1).Resize(UBound(ar), 12) = ar
.Cells(1).CurrentRegion.Sort .Cells(1, 2), , , , , , , xlYes
End With
End Sub
Eventueel nog even de cel eigenschappen in de kolommen G en H aanpassen naar een tijdnotatie.
 

Bijlagen

  • Prg. KNBB Midden Holland.xlsm
    1,2 MB · Weergaven: 39
Hoi Bas,

Iemand genaamd VenE hebben we hier niet, wel VenA.
Maar die zal van dit draadje denk ik weinig mee krijgen tenzij hij er zich op heeft geabonneerd.

Ik zie dat je ActiveWorkbook.SendMail gebruikt en daarmee kan niet wat je wilt.
Daar zal je het voorbeeld voor moeten gebruiken waar ik de link van plaatste.

Je wilt het blad "Bilartpoint klaar" mailen?
En wil je dat dan als Excel document met alleen dat blad of als PDF?
Dan wil ik dat er wel voor je in bouwen.

Wat bedoel je met Verzendcode?
Hoe moet die er uit zien en waar?
 
Laatst bewerkt:
Excelblad verzenden naar ontvanger.

Hallo Ed,

Dankjewel voor je antwoord.

Ik wil graag dat ik dat als Excel document met alleen dat blad kan verzenden.
Ik waardeer het zeer wanneer je dat er voor mij in wil bouwen.

Met vriendelijke groet,
Bas
 
Tabblad verzenden

Hallo Ed,

Grote klasse, het is exact zoals gewenst.
Dankjewel.

Gr. Bas
 
Waarom zou dat niet gaan met Sendmail?

Code: 
Sub mailen()
 Sheets("Bilartpoint").Copy  'schrijffoutje van je? "Biljartpoint"
     With ActiveWorkbook
        .SaveAs "C:\Temp\basblok.xlsm", 52
        .SendMail "mailadreshier", "Afz. Bas Blok"
        .Close
       Kill "C:\Temp\basblok.xlsm"
    End With
End Sub
 
Tabblad verzenden

Hallo Ed,

Op het bureaublad staat het bestand weergegeven met een waarschuwingsteken erbij, zie afbeelding.
Is dat op de een of andere manier uit te schakelen of te verwijderen?

M.vr.gr. Bas
 

Bijlagen

  • Waarschuwingsteken.JPG
    Waarschuwingsteken.JPG
    10,7 KB · Weergaven: 30
  • Prg. KNBB Midden Holland-1.xlsm
    1,2 MB · Weergaven: 35
Dat is geen waarschuwing.
Het is een indicatie dat het gaat om een document met macro's.
Dat is het standaard Microsoft Office iccontje er voor.
 
Laatst bewerkt:
Hallo Ed.
Kan dat niet worden uitgeschakeld?
Bij een ander bestand dat vol zit met macro's heb ik die melding ook niet.
Wil je dat even uitleggen?
BVD Baas
 

Bijlagen

  • Toernooi-2020.xls
    653,5 KB · Weergaven: 28
Dat document is in Excel 2003 formaat en heeft een heel andere set icoontjes.
En, wat ik al zei, het is geen meldiing, puur een standaard icoontje voor .xlsm documenten.
 
Verzenden facturen

Beste Ed,

Graag zou ik zien dat de kop van een E-mail bericht alleen vermeld Factuur District Midden Holland.
Is dat aan te passen?

Met vriendelijke groet,
Bas Blok
 

Bijlagen

  • LogoDistrict.gif
    LogoDistrict.gif
    10,5 KB · Weergaven: 34
  • Nota's 1e hj 2020.xls
    294 KB · Weergaven: 34
  • Nota's 2e hj 2020.xls
    398,5 KB · Weergaven: 43
  • Factuur District Midden Holland.JPG
    Factuur District Midden Holland.JPG
    20,2 KB · Weergaven: 40
Geen probleem, maar dat kan je ook eenvoudig zelf aanpassen.
In deze gedaan:
Bekijk bijlage Nota's 2e hj 2020.xls

Het andere document dat je plaatste bevat niet de mailing benodigdheden.
 
Laatst bewerkt:
Verzenden facturen

Ed,

Bedankt voor de snelle aanpassing.
Je schrijft dat ik dat zelf ook eenvoudig kan aanpassen, wil je aangeven waar, dan weet ik dat hoe bij anderen bestandjes toe te passen.
Bij voorbaat dank voor je reactie.

Met vriendelijke groet,
Bas
 
Ik vergat een regel zag ik net. Bij deze gecorrigeerd:
Bekijk bijlage Nota's 2e hj 2020.xls

Zelf aanpassen
Druk in het open document op de toetscombinatie ALT+F11
Achtereenvolgens dubbelklik je op de plekken waar de pijlen naar wijzen in onderstaand plaatje, van links naar rechts:
Bas.JPG
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan