Automatisk afsendelse af celleområde i Excel via VBA

Har prøvet koden og hvis .Instruction = "Test" - linjen slettes - så afsendes mailen

En lille taste fejl:

Det hedder ikke '.Instruction', men '.Introduction'.

Hvis du lige ændre det, så burde det virke :-)

Hej begge, #1 & #2

Tak for jeres input-
Har prøvet begge jeres forslag, men jeg kan stadig ikke køre makroen.
Får fejl I linien: 
ActiveWorkbook.EnvelopeVisible = True

Kører Office 2010

Hej nak01

Selv tak
Hvad så, hvis du sletter den linje, som du får fejl i?

Hmmm...
Din kode virker hos mig - bortset fra, at du mangler et punktum foran 'Item.Send'.

Fejlen kan ligge i din Outlook, da '.MailEnvelope' metoden er temmelig kritisk med hensyn til brugen af 'Microsoft Outlook'.
Metoden KRÆVER, at 'Microsoft Outlook' er standardprogrammet til e-mails på din computer - det er altså ikke nok, at 'Microsoft Outlook' er installeret, og korrekt konfigureret til at kunne sende e-mails, hvis man så benytter et andet e-mail program som mail klient.
For det næste, så må versionen af 'Microsoft Outlook' ikke være af nyere dato, end din 'Microsoft Excel'.

Og, så tror jeg nok, at det også kræver, at regnearksfilen (workbook) skal være gemt først, men er ikke helt sikker...

Prøv lige, at kontrollere disse 4 ting...

#4
Har prøvet at slette linjen, men så melder den blot fejl på den næste.

#5
Ifølge vores IT support på arbejdet, så er Outlook sat som standard til e-mails.
Har godt nok Lotus Notes installeret også (tidligere standard), men det er Outlook der, som skrevet, nu er vores standard.
Vi har planer om snart, at skifte til Windows 10 og Office 2016.
Vil prøve, senere I dag, at teste makroen på en sådan maskine.

Helt sikkert at det vil være bedre

Hej begge to...

Problemet blev løst ved at køre makroen I Win 10 og Office 2016
Takker for input  :-)

Selv tak..

Som jeg skrev: Metoden er temmelig kritisk med hensyn til brugen af 'Outlook' - så din 'Lotus Notes' har helt sikkert være den skyldige...

Hejsa,
Har nu endelig fået ny maskine hvor tingene virker :-)
Tillader mig at genoptage denne tråd med et nyt ønske.
Nedenstående kode virker perfekt, men i mit aktive worksheet har jeg mange forskellige områder/udsnit jeg ønsker at sende til forskellige personer i organisationen.
For at undgå at oprette og vedligeholde hver enkelt makro hver gang, ville det være skønt at programmet selv henter brødtekst, subject og mailadresse fra en celle skrevet et vilkårligt sted på regnearket. Det vil sige, at koden selv henter en tekst skrevet i en celle. Håber nogen kan hjælpe.


Sub Mail_SL()
'
' Mail_SL Macro
'

'
    ActiveSheet.Range("L2:O60").Select
    ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
        .Introduction = "Her står en brødtekst"
        .Item.To = "nnnnnn@gmail.com"
        .Item.Subject = "Her står en subject tekst"
        .Item.Send
    End With

End Sub