Starte Outlook vha. makro

sub email()

ActiveSheet.SendMail Recipients:="bruger@domæne.dk", Subject:="tekst"

end sub

Du kan også bare højreklikke på en celle og vælge hyperlink og mailadresse.

acw -> Den returnerer "Kørselsfejl 438 objektet understøtter ikke denne egenskab eller metode".
jimse -> Skal køre via en kommandoknap, så hyperlink virker ikke i dette tilfælde.

ActiveSheet.SendMail - betyder det ikke, at den sender arket?
Det skal den ikke, den skal "bare" starte en New Message i Outlook op.

Prøv med:

Private Sub CommandButton1_Click()
Dim myOlApp As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myRecipient = myItem.Recipients.Add("dorte.kronsell@dbtu.dk")
myItem.Display
End Sub

Hvort du selvfølgelig retter mail adressen til det korrekte.

Lige som en followup til jkrons's kode, så du får body og subject med

Private Sub CommandButton1_Click()
Dim myOlApp As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)
Set myRecipient = myitem.Recipients.Add("dorte.kronsell@dbtu.dk")
With myitem
    .Subject = "Nye regneark"
    .Body = "Hermed fremsendes nye regneark"
    .Display
    ' .Send
End With
End Sub

jkrons -> Det var lige det jeg skulle bruge.
Bak -> Du kom lige et spørgsmål mht. subject. i forkøbet :o)

Velbekomme :-) Tak for point.

jkrons -> http://www.eksperten.dk/spm/402239  //hører ik til spm.