Print side | Luk vindue

Mail i VBA

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Del dine regneark
Forum beskrivelse: I dette forum kan du dele dine regneark med andre brugere
Alle typer regneark kan uploades og det anbefales at lave en lille vejledning,
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3313
Udskrevet den: 22.Nov.2024 kl. 06:21


Emne: Mail i VBA
Besked fra: EXCELGAARD
Emne: Mail i VBA
Posteringsdato: 07.Jan.2018 kl. 17:12
For de af jer, der nogensinde har haft behov for at arbejde med mail i VBA:

www.excelgaard.dk/Bib/Mail%20Makroer/ www.excelgaard.dk/Bib/Mail Makroer/



-------------
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.


Svar:
Besked fra: Ib Hansen
Posteringsdato: 07.Jan.2018 kl. 23:54
Ja, hvis jeg f.eks. har lavet et skema, der skal sendes videre, er det rart, hvis det kan gøres direkte fra Excel.

Som f.eks.  uploads/1125/Blodtryksskema_ver._5.01.xlsm" rel="nofollow - Blodtryk

Men det er måske ikke dét, du mener ?



-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)

Besked fra: EXCELGAARD
Posteringsdato: 08.Jan.2018 kl. 08:03
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 Smile



-------------
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.

Besked fra: EXCELGAARD
Posteringsdato: 08.Jan.2018 kl. 08:25
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  Smile


-------------
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.

Besked fra: Ib Hansen
Posteringsdato: 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 LOL

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 Confused



-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)

Besked fra: EXCELGAARD
Posteringsdato: 08.Jan.2018 kl. 18:43
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.

Besked fra: EXCELGAARD
Posteringsdato: 08.Jan.2018 kl. 18:46
Citér 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
Velkommen i klubben - hvorfor skulle du have det lettere end os andre Geek


-------------
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.

Besked fra: Ib Hansen
Posteringsdato: 08.Jan.2018 kl. 20:59
Tak, men jeg ved, jeg har det sværere end nogle andre herinde LOL

Jeg kigger på eksemplet Thumbs Up


-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)


Print side | Luk vindue