24. november 2017 - 15:16Der er
10 kommentarer og 1 løsning
Automatisk afsendelse af celleområde i Excel via VBA
Hejsa,
Jeg har set, at man automatisk (via en makro) kan afsende et bestemt område i et regneark helt automatisk uden at åbne outlook. Jeg får desværre en fejlmeddelelse i nummer 2 linie. Nogen der har en løsning?
ActiveSheet.Range("L2:O50").Select ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Instruction = "Test" .Item.To = "Mailadresse.com" .Item.Subject = "Test" Item.Send End With
End Sub
Har fundet ovenstående kode på Microsofts support hjemmeside.
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...
#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.
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
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.