Email met bijlage versturen vanuit macro

[MJONK]

Goedemiddag,

Ik gebruik onderstaande code die ik gevonden heb op het forum om een blad te mailen met een bepaald onderwerp e.d.

Nu is mijn vraag, ik wil graag het blad ook meesturen als bijlage.

Ook zou ik graag, in de email alleen hetgene meesturen dat geselecteerd is.


Hopelijk kan iemand mij op weg helpen.

Sub opslag()


ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = "Goedemiddag, hier is de bestelling voor morgen"
.Item.To = "emailadressen"
.Item.Subject = "bestelling voor" & " " & Date + 1
.Item.Send
End With



End Sub

Alvast bedankt.

 

[MJONK]

Ik heb nu een code van ron de bruin gebruikt, helemaal super zijn site.

Ik zit echter wel nog met een vraag, met de code send.email kun je geen text in het bericht typen.

Is er een andere code die dit vervangt zodat dit wel mogelijk is?

alvast bedankt.

MJonk

 

[Roncancio]

Ik heb nu een code van ron de bruin gebruikt, helemaal super zijn site.

Ik zit echter wel nog met een vraag, met de code send.email kun je geen text in het bericht typen.

Is er een andere code die dit vervangt zodat dit wel mogelijk is?

alvast bedankt.

MJonk

In deze topic is uitgelegd hoe je een bestand kan versturen inclusief bijlage(n) en bijgevoegde ekst.

Met vriendelijke groet,


Roncancio

 

[MJONK]

hartstikke bedankt! ik kom al een eind verder,

vervolgens nog een vraag,

ik gebruik nu dit voor de datum van morgen in het onderwerp:

.Subject = "Bestelling xxxx voor " & Date + 1


Jullie raden het probleem al, op vrijdag en feestdagen gaat dit mis. Heeft iemand ideeën hoe dit op te lossen?