Sende mail fra excel / smtp

Sub sendMail()
    Set msg = CreateObject("JMail.Message")
    msg.addrecipient "min@mail.dk", "Modtager"
    msg.From = "afsender@mail.dk"
    msg.fromname = "Afsender"
    msg.Subject = "Dette er en test"
    msg.Body = "TEST"
    msg.Send ("smtp.mail.dk")
    Set msg = Nothing
End Sub

JMail kan downloades gratis fra www.dimac.net

... tak supertekst, mon der findes en løsning uden extra komponenter ...

Er Outlook at betragte som sådan - eller?

Tidligere har der været sendt via notes, men de har ændret i deres opsætning, hvorfor vi er på jagt efter en ny vej ...

vil gerne hav lukket, ikke jeg har fået noget brugbart.

Supertekst vil du have point ...

No cure - no pay :-)

Så må jeg jo ofre mig og tage point'ne tilbage.