Det er præcist, hvad man kan med funktionerne - men, man er ikke begrænset til 'Microsoft Outlook', men kan benytte 'Thunderbird', 'Gmail', 'Hotmail', eller et, næsten, hvilken som helst mail klient, som man vil benytte.
Man flytter blot modulet ind i sin egen workbook, og kalder funktionen, som det er vist og forklaret her: /send-automatisk-mail-med-vedhftede-filer_topic3293.html"/send-automatisk-mail-med-vedhftede-filer_topic3293.html
Download eventuelt regnearket i den tråd, og læs kommentarerne - kodeeksemplet er på dansk, og det er samtlige kommentarer i kodeeksemplet også, så det burde være let, at forstå.
Og, dette er generelt måden, man bruger mine koder på: Flyt modulet ind i egen workbook, og kald funktionen: 10 sekunders arbejder, og alt virker
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Personligt anbefaler jeg, at man starter med, at forsøge, at sende sine mail med 'Microsoft Outlook', da 'MS Outlook' typisk installeres sammen med Excel, så, de fleste, der benytter Excel, benytter typisk også 'Outlook'.
Man bør dernæst falde tilbage på 'CDO mail', hvis 'Outlook' fejler.
Hvis man benytter de funktioner, som jeg linker til, i starten af denne tråd, kunne det se således ud:
If olClient = True Then SendMail_Outlook "mail@excelgaard.dk", "Budget", "Tag et kig på vedhæftede regneark.", False, "WB" Exit Sub ElseIf cdoSMTP = "" Then Application.Run "OpenDialog_CDO", 2 ' Opret SMTP indstillinger til fremtidig brug If cdoSMTP = "" Then Exit Sub ' SMTP indstillinger blev ikke oprettet End If SendMail_CDO "mail@excelgaard.dk", "Budget", "Tag et kig på vedhæftede regneark.", cdoSMTP, "WB"
Det kan da næsten ikke være mere enkelt, at sende mail fra VBA
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
Sendt: 08.Jan.2018 kl. 10:20
Ja, det ser let ud, men jeg har lidt svært ved at overskue, hvad der foregår i koden og hvordan jeg retter den til, så den passer til mit ark.
Koden i Blodtrykskemaet, er en jeg fandt på nettet. Den tilrettede jeg på min egen klodsede måde og derfor er den også noget rodet, men den virker.
Koden sender med Outlook og skulle gerne komme med en advarsel, hvis Outlook ikke er installeret.
Jeg kan bare ikke tjekke om den kode virker, da jeg har Outlook installeret og ikke ønsker at afinstallere den.
Samtidig vedhæfter den skemaet som PDF, der navngives i arket.
Og det er dét jeg har brug for i den perfekte verden.
1. Gemme skemaet som PDF, eksempelvis navngivet som dags dato.
Den kan hente navnet fra en celle, jeg definerer.
2. Tjekke om Outlook er installeret.
3. Hvis ikke, åbne et andet mail program, installeret på computeren.
4. Vedhæfte det gemte ark i mailen.
5. Hvis der ikke er et mail program installeret.
Komme med en advarsel, der fortælle man skal vedhæfte PDF'en manuelt.
Jeg har så mange ideer til mange gode ark.
Det kniber bare med at føre dem ud i livet, da jeg hele tiden famler mig frem med VBA
Mit næste projekt er en Køre- Hviletids beregner. Det findes så at sige ikke på nettet, hvis man ikke vil købe et professionelt program, for mange tusinde kroner. Men hold nu fast, der er mange koder, der skal passe sammen med Userforme og Textboxe, hvis det skal regne rigtigt
Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o)
Jeg har hermed opdateret filen, så filen nu indeholder et separat modul, kaldet 'VBA_SendMail_Examples', med en række eksempler på, hvordan man kan sende og arbejde med mails i makro/VBA.
Eksemplerne inkludere:
SendMail_Select_Client Hvordan man kan vælge, hvilken mail klient, man ønsker, at benytte
SendMail_ActiveWorkbook Hvordan man hurtigt kan sende den aktive regnearksfil, som en vedhæftning til en e-mail
SendMail_Workbook_PDF Hvordan man konvertere en regnearksfil til et PDF dokument og sender det som en vedhæftning til en e-mail
SendMail_Worksheet_PDF Hvordan man konvertere et faneblad/regneark til et PDF dokument og sender det som en vedhæftning til en e-mail
SendMail_Worksheet_Embedded Hvordan man sender et faneblad/regneark som indlejret i teksten i en e-mail
SendMail_Range_Embedded Hvordan man sender et celleområde som indlejret i teksten i en e-mail
Worksheet_Change Hvordan man kan holder øje med om noget bestemt sker i et regneark, og sende en mail, når en bestemt værdi opnås, eller overskrides, eller noget andet...
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Du kan ikke oprette nye emner i dette forum Du kan ikke besvare beskeder i dette forum Du kan ikke slette dine beskeder i dette forum Du kan ikke redigere dine beskeder i dette forum Du kan ikke oprette afstemninger i dette forum Du kan ikke stemme i dette forum
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Mail i VBA
Emne funktioner
Jeg har så mange ideer til mange gode ark.
