bijlage bij mail opdracht

[phobia]

Sub SendMail(TheName, TheAddress)
Dim objMessage, Rcpt

Rcpt = Chr(34) & TheName & Chr(34) & "<" & TheAddress & ">"
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "This Month's Sales"
objMessage.From = """Acme Sales"" <me@my.com>"
objMessage.To = Rcpt
objMessage.HTMLBody = TextBody

objMessage.Send

End Sub

Ik wil hier een rapport als bijlage bij doen, maar hoe???

 

[paul.jacobs]

waar werk je mee? 2003 of 2007

 

[phobia]

ik maak het in 2007, maar wil het laten draaien onder 2003

2003 draai op het werk.

 

[paul.jacobs]

nou je kan het simpel maken met een macro.
hier zie je een voorbeeld


:thumb:

 

[phobia]

kan weinig zien op de foto, maar blijft de mail functie dan wel gelijk aan wat ik nu heb?

Ik ben een newby en autodydact

Ik wil namelijk met 1 druk op de knop verzenden. Het liefst zou ik de inhoud van het rapport in de body hebbeb verwerkt!