Send Excel ark som email med VBA

Hej jjakobse,

Prøve denne kode:

isvar = MsgBox("Vil du sende dette ark?", vbYesNo, "Send excel-ark")

If isvar = vbYes Then
ActiveWorkbook.SendMail Recipients:=[E4].value, Subject:="Test", ReturnReceipt:=False
End If

Hilsen ExcelKen

Hej ExcelKen,

Hmm... Virker ikke.. Den skriver "Compile error: Invalid outside procedure"

Mangler der ikke noget SUB og End SUB..? :o)

Jo, men jeg var usikker på, om det skulle puttes ind et sted.
Her er koden som en Sub:

Sub SendArk()

isvar = MsgBox("Vil du sende dette ark?", vbYesNo, "Send excel-ark")

If isvar = vbYes Then
ActiveWorkbook.SendMail Recipients:=[E4].value, Subject:="Test", ReturnReceipt:=False
End If

End Sub



Hilsen Excel Ken

Gælder dette osse når det er en Engelsksproget version..? Skal der så stå Worksheet eller lignende istedet..?

Nej, det burde være ligegyldigt.

Du skal bare oprette et modul, hvor du kopierer koden ind.

Derefter kan du afspille det fra arket, f.eks. via en knap eller ved at trykke Alt+F8 og afspille makroen.

Vær opmærksom på, at Office kommer frem med en advarsel om, at et program forsøger at sende en email, og der advares om, at det kan være en visrus. Du skal blott svare JA, du ved, at du´selv afsender mailen.

Hej igen,

Det rykker da bare..!! :o)

Tusind tak for det, nu kan jeg komme videre..!!

Og ja, det burde Outlook jo gøre, men jeg har ClickYes installeret så det slipper jeg for.. :o) Hehe..

Men tak igen... Du har klart fortjent dine points..

Hilsen

Jesper