Makro mail af område i et Excellsheet
Hejsa,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 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.
PS: Det er altid det samme område der sendes, men følgeteksten er som regel forskellig.
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